factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test

[factor.git] / extra / io / encodings / detect / detect-tests.factor

diff --git a/extra/io/encodings/detect/detect-tests.factor b/extra/io/encodings/detect/detect-tests.factor
index ad3016a83be6b84d96b46f032425345269f135a2..35751ef7f19c807987b9c3ef9a1f54ec84862daf 100644 (file)
--- a/extra/io/encodings/detect/detect-tests.factor
+++ b/extra/io/encodings/detect/detect-tests.factor
@@ -6,39 +6,39 @@ io.encodings.utf8 namespaces tools.test ;
 IN: io.encodings.detect.tests
 
 ! UTF encodings with BOMs
-[ utf16be ] [ HEX{ FEFF 0031 0032 0033 } detect-byte-array ] unit-test
-[ utf16le ] [ HEX{ FFFE 3100 3200 3300 } detect-byte-array ] unit-test
-[ utf32be ] [ HEX{ 0000FEFF 00000031 00000032 00000033 } detect-byte-array ] unit-test
-[ utf32le ] [ HEX{ FFFE0000 31000000 32000000 33000000 } detect-byte-array ] unit-test
-[ utf8 ] [ HEX{ EF BB BF 31 32 33 } detect-byte-array ] unit-test
+{ utf16be } [ HEX{ FEFF 0031 0032 0033 } detect-byte-array ] unit-test
+{ utf16le } [ HEX{ FFFE 3100 3200 3300 } detect-byte-array ] unit-test
+{ utf32be } [ HEX{ 0000FEFF 00000031 00000032 00000033 } detect-byte-array ] unit-test
+{ utf32le } [ HEX{ FFFE0000 31000000 32000000 33000000 } detect-byte-array ] unit-test
+{ utf8 } [ HEX{ EF BB BF 31 32 33 } detect-byte-array ] unit-test
 
 ! XML prolog
-[ utf8 ]
+{ utf8 }
 [ """<?xml version="1.0"?>""" >byte-array detect-byte-array ]
 unit-test
 
-[ utf8 ]
+{ utf8 }
 [ """<?xml version="1.0" encoding="UTF-8"?>""" >byte-array detect-byte-array ]
 unit-test
 
-[ latin1 ]
+{ latin1 }
 [ """<?xml version='1.0' encoding='ISO-8859-1'?>""" >byte-array detect-byte-array ]
 unit-test
 
-[ latin1 ]
+{ latin1 }
 [ """<?xml version='1.0' encoding="ISO-8859-1" """ >byte-array detect-byte-array ]
 unit-test
 
 ! Default to utf8 if decoding succeeds and there are no nulls
-[ utf8 ] [ HEX{ } detect-byte-array ] unit-test
-[ utf8 ] [ HEX{ 31 32 33 } detect-byte-array ] unit-test
-[ utf8 ] [ HEX{ 31 32 C2 A0 33 } detect-byte-array ] unit-test
-[ latin1 ] [ HEX{ 31 32 A0 33 } detect-byte-array ] unit-test
-[ koi8-r ] [
+{ utf8 } [ HEX{ } detect-byte-array ] unit-test
+{ utf8 } [ HEX{ 31 32 33 } detect-byte-array ] unit-test
+{ utf8 } [ HEX{ 31 32 C2 A0 33 } detect-byte-array ] unit-test
+{ latin1 } [ HEX{ 31 32 A0 33 } detect-byte-array ] unit-test
+{ koi8-r } [
     koi8-r default-8bit-encoding [
         HEX{ 31 32 A0 33 } detect-byte-array
     ] with-variable
 ] unit-test
 
-[ binary ] [ HEX{ 31 32 33 C2 A0 00 } detect-byte-array ] unit-test
-[ binary ] [ HEX{ 31 32 33 C2 A0 00 30 } detect-byte-array ] unit-test
+{ binary } [ HEX{ 31 32 33 C2 A0 00 } detect-byte-array ] unit-test
+{ binary } [ HEX{ 31 32 33 C2 A0 00 30 } detect-byte-array ] unit-test