1 USING: tools.test txon ;
3 { "ABC" } [ "ABC" >txon ] unit-test
5 { "A\\`C" } [ "A`C" >txon ] unit-test
7 { "123" } [ 123 >txon ] unit-test
9 { "1\n2\n3" } [ { 1 2 3 } >txon ] unit-test
11 { "a:`123`\nb:`456`" } [ H{ { "a" 123 } { "b" 456 } } >txon ] unit-test
13 { "foo" } [ "foo" txon> ] unit-test
15 { "foo" } [ " foo " txon> ] unit-test
18 [ "foo:``" txon> ] unit-test
20 { H{ { "foo" " " } } }
21 [ "foo:` `" txon> ] unit-test
23 { H{ { "name" "value" } } }
24 [ "name:`value`" txon> ] unit-test
26 { H{ { "name" "value" } } }
27 [ " name:`value` " txon> ] unit-test
29 { H{ { "foo`bar" "value" } } }
30 [ "foo\\`bar:`value`" txon> ] unit-test
32 { H{ { "foo" "bar`baz" } } }
33 [ "foo:`bar\\`baz`" txon> ] unit-test
35 { { H{ { "name1" "value1" } } H{ { "name2" "value2" } } } }
36 [ "name1:`value1`name2:`value2`" txon> ] unit-test
38 { H{ { "name1" H{ { "name2" "nested value" } } } } }
39 [ "name1:` name2:`nested value` `" txon> ] unit-test
41 { "name1:`name2:`nested value``" }
43 H{ { "name1" H{ { "name2" "nested value" } } } } >txon
48 { "name1" H{ { "name2" "value2" } { "name3" "value3" } } }
61 { "name1" H{ { "name2" H{ { "name3" "value3" } } } } }
73 { H{ { "a" { "1" "2" "3" } } } } [ "a:`1\n2\n3`" txon> ] unit-test