sequences: Add assert-string=.
assert-sequence= prints strings as sequences of numbers, which is less useful for writing unit tests.modern-harvey2
parent
f32b6a171c
commit
3c8da3722d
|
@ -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 )
|
||||
|
|
Loading…
Reference in New Issue