sequences: Add assert-string=.

assert-sequence= prints strings as sequences of numbers, which is less
useful for writing unit tests.
modern-harvey2
Doug Coleman 2017-09-16 16:45:42 -05:00
parent f32b6a171c
commit 3c8da3722d
1 changed files with 5 additions and 0 deletions
core/sequences

View File

@ -694,6 +694,11 @@ ERROR: assert-sequence got expected ;
: assert-sequence= ( a b -- )
2dup sequence= [ 2drop ] [ assert-sequence ] if ;
ERROR: assert-string got expected ;
: assert-string= ( a b -- )
2dup sequence= [ 2drop ] [ assert-string ] if ;
<PRIVATE
: sequence-hashcode-step ( oldhash newpart -- newhash )