]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/txon/txon-tests.factor
factor: second stab at [ ] [ ] unit-test -> { } [ ] unit-test
[factor.git] / extra / txon / txon-tests.factor
index 6d294c741963ad4f43c0e6f1a1cff814c4bdffa2..1420419efd9e15a377f88f30bf5b8f369e53a3fa 100644 (file)
@@ -3,54 +3,54 @@ USING: tools.test txon ;
 
 IN: txon.tests
 
-[ "ABC" ] [ "ABC" >txon ] unit-test
+{ "ABC" } [ "ABC" >txon ] unit-test
 
-[ "A\\`C" ] [ "A`C" >txon ] unit-test
+{ "A\\`C" } [ "A`C" >txon ] unit-test
 
-[ "123" ] [ 123 >txon ] unit-test
+{ "123" } [ 123 >txon ] unit-test
 
-[ "1\n2\n3" ] [ { 1 2 3 } >txon ] unit-test
+{ "1\n2\n3" } [ { 1 2 3 } >txon ] unit-test
 
-[ "a:`123`\nb:`456`" ] [ H{ { "a" 123 } { "b" 456 } } >txon ] unit-test
+{ "a:`123`\nb:`456`" } [ H{ { "a" 123 } { "b" 456 } } >txon ] unit-test
 
-[ "foo" ] [ "foo" txon> ] unit-test
+{ "foo" } [ "foo" txon> ] unit-test
 
-[ "foo" ] [ "   foo   " txon> ] unit-test
+{ "foo" } [ "   foo   " txon> ] unit-test
 
-[ H{ { "foo" "" } } ]
+{ H{ { "foo" "" } } }
 [ "foo:``" txon> ] unit-test
 
-[ H{ { "foo" " " } } ]
+{ H{ { "foo" " " } } }
 [ "foo:` `" txon> ] unit-test
 
-[ H{ { "name" "value" } } ]
+{ H{ { "name" "value" } } }
 [ "name:`value`" txon> ] unit-test
 
-[ H{ { "name" "value" } } ]
+{ H{ { "name" "value" } } }
 [ "  name:`value`  " txon> ] unit-test
 
-[ H{ { "foo`bar" "value" } } ]
+{ H{ { "foo`bar" "value" } } }
 [ "foo\\`bar:`value`" txon> ] unit-test
 
-[ H{ { "foo" "bar`baz" } } ]
+{ H{ { "foo" "bar`baz" } } }
 [ "foo:`bar\\`baz`" txon> ] unit-test
 
-[ { H{ { "name1" "value1" } } H{ { "name2" "value2" } } } ]
+{ { H{ { "name1" "value1" } } H{ { "name2" "value2" } } } }
 [ "name1:`value1`name2:`value2`" txon> ] unit-test
 
-[ H{ { "name1" H{ { "name2" "nested value" } } } } ]
+{ H{ { "name1" H{ { "name2" "nested value" } } } } }
 [ "name1:`  name2:`nested value` `" txon> ] unit-test
 
-[ "name1:`name2:`nested value``" ]
+{ "name1:`name2:`nested value``" }
 [
     H{ { "name1" H{ { "name2" "nested value" } } } } >txon
 ] unit-test
 
-[
+{
     H{
         { "name1" H{ { "name2" "value2" } { "name3" "value3" } } }
     }
-] [
+} [
     "
     name1:`
         name2:`value2`
@@ -59,11 +59,11 @@ IN: txon.tests
     " txon>
 ] unit-test
 
-[
+{
     H{
         { "name1" H{ { "name2" H{ { "name3" "value3" } } } } }
     }
-] [
+} [
     "
     name1:`
         name2:`
@@ -73,4 +73,4 @@ IN: txon.tests
     " txon>
 ] unit-test
 
-[ H{ { "a" { "1" "2" "3" } } } ] [ "a:`1\n2\n3`" txon> ] unit-test
+{ H{ { "a" { "1" "2" "3" } } } } [ "a:`1\n2\n3`" txon> ] unit-test