remove math.blas.syntax and merge parsing words into math.blas.vectors/matrices
[factor/jcg.git] / basis / json / reader / reader-tests.factor
blobe97d45babe179f928e83cc285dc50a60ea680b9b
1 USING: arrays json.reader kernel multiline strings tools.test
2 hashtables json ;
3 IN: json.reader.tests
5 { f } [ "false" json> ] unit-test
6 { t } [ "true" json> ] unit-test
7 { json-null } [ "null" json> ] unit-test
8 { 0 } [ "0" json> ] unit-test
9 { 102 } [ "102" json> ] unit-test
10 { -102 } [ "-102" json> ] unit-test
11 { 102 } [ "+102" json> ] unit-test
12 { 1000.0 } [ "1.0e3" json> ] unit-test
13 { 1000.0 } [ "10e2" json> ] unit-test
14 { 102.0 } [ "102.0" json> ] unit-test
15 { 102.5 } [ "102.5" json> ] unit-test
16 { 102.5 } [ "102.50" json> ] unit-test
17 { -10250.0 } [ "-102.5e2" json> ] unit-test
18 { -10250.0 } [ "-102.5E+2" json> ] unit-test
19 { 10.25 } [ "1025e-2" json> ] unit-test
20 { 0.125 } [ "0.125" json> ] unit-test
21 { -0.125 } [ "-0.125" json> ] unit-test
23 ! not widely supported by javascript, but allowed in the grammar, and a nice
24 ! feature to get
25 { -0.0 } [ "-0.0" json> ] unit-test
27 { " fuzzy  pickles " } [ <" " fuzzy  pickles " "> json> ] unit-test
28 { "while 1:\n\tpass" } [ <" "while 1:\n\tpass" "> json> ] unit-test
29 ! unicode is allowed in json
30 { "ß∂¬ƒ˚∆" } [ <" "ß∂¬ƒ˚∆""> json> ] unit-test
31 { 8 9 10 12 13 34 47 92 } >string 1array [ <" "\b\t\n\f\r\"\/\\" "> json> ] unit-test
32 { HEX: abcd } >string 1array [ <" "\uaBCd" "> json> ] unit-test
34 { { } } [ "[]" json> ] unit-test 
35 { { 1 "two" 3.0 } } [ <" [1, "two", 3.0] "> json> ] unit-test
36 { H{ } } [ "{}" json> ] unit-test
38 ! the returned hashtable should be different every time
39 { H{ } } [ "key" "value" "{}" json> ?set-at "{}" json> nip ] unit-test
41 { H{ { "US$" 1.0 } { "EU€" 1.5 } } } [ <" { "US$":1.00, "EU\u20AC":1.50 } "> json> ] unit-test
42 { H{
43     { "fib" { 1 1 2 3 5 8 H{ { "etc" "etc" } } } }
44     { "prime" { 2 3 5 7 11 13 } }
45 } } [ <" {
46     "fib": [1, 1,  2,   3,     5,         8,
47         { "etc":"etc" } ],
48     "prime":
49     [ 2,3,     5,7,
50 11,
52 ]      }
53 "> json> ] unit-test
55 { 0 } [ "      0" json> ] unit-test
56 { 0 } [ "0      " json> ] unit-test
57 { 0 } [ "   0   " json> ] unit-test