USING: arrays kernel math namespaces sequences kernel.private
-sequences.private strings sbufs tools.test vectors bit-arrays
+sequences.private strings sbufs tools.test vectors
generic vocabs.loader ;
IN: sequences.tests
[ f ] [ f V{ } like f V{ } like eq? ] unit-test
-[ ?{ f t } ] [ 0 2 ?{ f t f } subseq ] unit-test
-
[ V{ f f f } ] [ 3 V{ } new-sequence ] unit-test
[ SBUF" \0\0\0" ] [ 3 SBUF" " new-sequence ] unit-test