[ execute( a b -- ? ) ] 2with map
first4 ;
-[ f f f f ] [ "hello" "hi" test-equality ] unit-test
-[ t f f f ] [ "hello" "h\u0000e9llo" test-equality ] unit-test
-[ t t f f ] [ "hello" "HELLO" test-equality ] unit-test
-[ t t t f ] [ "hello" "h e l l o." test-equality ] unit-test
-[ t t t t ] [ "hello" "\0hello\0" test-equality ] unit-test
-[ { "good bye" "goodbye" "hello" "HELLO" } ]
+{ f f f f } [ "hello" "hi" test-equality ] unit-test
+{ t f f f } [ "hello" "h\u0000e9llo" test-equality ] unit-test
+{ t t f f } [ "hello" "HELLO" test-equality ] unit-test
+{ t t t f } [ "hello" "h e l l o." test-equality ] unit-test
+{ t t t t } [ "hello" "\0hello\0" test-equality ] unit-test
+{ { "good bye" "goodbye" "hello" "HELLO" } }
[ { "HELLO" "goodbye" "good bye" "hello" } sort-strings ]
unit-test