Revert "factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring...

[factor.git] / extra / crypto / xor / xor-tests.factor

diff --git a/extra/crypto/xor/xor-tests.factor b/extra/crypto/xor/xor-tests.factor
index c4c7ad8b276bfc3f353d006da1f8f23d62d05ca6..aaa7c431a7fc6d21c414478af4af29a33de2fa99 100644 (file)
--- a/extra/crypto/xor/xor-tests.factor
+++ b/extra/crypto/xor/xor-tests.factor
@@ -8,17 +8,17 @@ IN: crypto.xor.tests
 [ "" "asdf" dupd xor-crypt xor-crypt ] [ T{ empty-xor-key } = ] must-fail-with
 
 ! a xor a = 0
-{ "\0\0\0\0\0\0\0" } [ "abcdefg" dup xor-crypt ] unit-test
+[ "\0\0\0\0\0\0\0" ] [ "abcdefg" dup xor-crypt ] unit-test
 
-{ { 15 15 15 15 } } [ { 10 10 10 10 } { 5 5 5 5 } xor-crypt ] unit-test
+[ { 15 15 15 15 } ] [ { 10 10 10 10 } { 5 5 5 5 } xor-crypt ] unit-test
 
-{ "asdf" } [ "asdf" "key" [ xor-crypt ] [ xor-crypt ] bi >string ] unit-test
-{ "" } [ "" "key" xor-crypt >string ] unit-test
-{ "a longer message...!" } [
+[ "asdf" ] [ "asdf" "key" [ xor-crypt ] [ xor-crypt ] bi >string ] unit-test
+[ "" ] [ "" "key" xor-crypt >string ] unit-test
+[ "a longer message...!" ] [
     "a longer message...!"
     "." [ xor-crypt ] [ xor-crypt ] bi >string
 ] unit-test
-{ "a longer message...!" } [
+[ "a longer message...!" ] [
     "a longer message...!"
     "a very long key, longer than the message even."
     [ xor-crypt ] [ xor-crypt ] bi >string