"{ Encoding: utf8 }"

"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#JSONTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression-Files and Encodings'

!

!JSONTests class methodsFor:'documentation'!

documentation

"

    Notice that there are frameworks for JSON:

        goodies/json

    and: 

        JSONReader/JSONPrinter from goodies/communications.

    This tests the second one.

"

! !

!JSONTests class methodsFor:'queries'!

coveredClassNames

    "These classes can be instrumented for coverage analysis,

     before running the suite to provide coverage analysis/report"

    ^ #( JSONReader JSONPrinter )

    "Created: / 06-07-2011 / 21:27:03 / cg"

    "Modified: / 21-03-2019 / 22:28:33 / Claus Gittinger"

! !

!JSONTests methodsFor:'setup'!

setUp

    JSONPrinter isNil ifTrue:[

        Smalltalk loadPackage:'stx:goodies/communication'

    ].

! !

!JSONTests methodsFor:'tests'!

test01_simple

    self assert:(JSONPrinter toJSON:true) = 'true'.

    self assert:(JSONPrinter toJSON:false) = 'false'.

    self assert:(JSONPrinter toJSON:nil) = 'null'.

    self assert:(JSONPrinter toJSON:123) = '123'.

    self assert:(JSONPrinter toJSON:0) = '0'.

    self assert:(JSONPrinter toJSON:-0) = '0'.

    self assert:(JSONPrinter toJSON:-1) = '-1'.

    self assert:(JSONPrinter toJSON:-123) = '-123'.

    self assert:(JSONPrinter toJSON:123.0) = '123.0'.

    self assert:(JSONPrinter toJSON:1e3) = '1000.0'.

    self assert:(JSONPrinter toJSON:10e3) = '10000.0'.

    self assert:(JSONPrinter toJSON:'hello') = '"hello"'.

    self assert:(JSONPrinter toJSON:'') = '""'.

    self assert:(JSONPrinter toJSON:'"a"') = '"\"a\""'.

!

test02_arrays

    self assert:(JSONPrinter toJSON:#()) = '[]'.

    self assert:(JSONPrinter toJSON:#(1 2 3)) = '[1,2,3]'.

    self assert:(JSONPrinter toJSON:#(true false -1 'a')) = '[true,false,-1,"a"]'.

    self assert:(JSONPrinter toJSON:#( (1) ('a') (nil))) = '[[1],["a"],[null]]'.

    self assert:(JSONReader fromJSON:'[]') = #().

    self assert:(JSONReader fromJSON:'[1,2,3]') = #(1 2 3).

    self assert:(JSONReader fromJSON:'[true,false,-1,"a"]') = #(true false -1 'a').

    self assert:(JSONReader fromJSON:'[[1],["a"],[null]]') = #( (1) ('a') (nil)).

!

test03_encodeDecode

    "/ self assert:(JSONReader fromJSON:'"\uD83C\uDFBC"') = (Character value:0x1F3BC) asString.

    #(

        true false nil

        123 0 -1 -123 

        123.0 10e4 1e5

        -123.0 -10e4 -1e5

        -123.0e+5 -123.0e-5

        ''

        'a'

        'hello'

        c'hello\nworld'

        c'hello\tworld'

        '"'

        '""'

        'a"b"c'

        ()

        (1)

        (1 2 3)

        ('a' 2.0 (true false nil) 3)

    ) do:[:each |

        |encoding decoded|

        encoding := JSONPrinter encode:each.

        decoded := JSONReader decode:encoding.

        self assert:((decoded = each) or:[decoded isFloat and:[decoded isAlmostEqualTo:each nEpsilon:2]])

    ].

    self should:[ (JSONReader fromJSON:'[1,2,]') ] raise:JSONConversionError.

    self should:[ (JSONReader fromJSON:'[,]') ] raise:JSONConversionError.

    self should:[ (JSONReader fromJSON:'{ "foo": "bla", }') ] raise:JSONConversionError.

    self should:[ (JSONReader fromJSON:'0x123') ] raise:JSONConversionError.

!

test04_encodeDecodeJSON5

    #(

        '123' 123

        '0'   0 

        '-1'  -1

        '-123' -123 

        '0x123' 0x123

        '0x0'   0

        '-0x1'  -1

        '-0x123' -0x123 

        '123.0' 123.0

        '10e4'  10e4

        '1e5'   1e5

        '-123.0' -123.0 

        '-10e4'  -10e4 

        '-1e5'   -1e5

        '-123.0e+5' -123.0e+5 

        '-123.0e-5' -123.0e-5

        '.123' 0.123

        '[1,2,]' #(1 2)

    ) pairWiseDo:[:json :expected |

        |decoded|

        decoded := JSONReader fromJSON5:json.

        self assert:((decoded = expected) or:[decoded isFloat and:[decoded isAlmostEqualTo:expected nEpsilon:2]])

    ].

    self should:[ (JSONReader fromJSON5:'[,]') ] raise:JSONConversionError.

    self shouldnt:[ (JSONReader fromJSON5:'{ "foo": "bla", }') ] raise:JSONConversionError.

!

test05_JSON5

    |j o|

    "/ self assert:(JSONReader fromJSON5:'''\uD83C\uDFBC''') = (Character value:0x1F3BC) asString.

    "/ self assert:(JSONReader fromJSON5:'"\uD83C\uDFBC"') = (Character value:0x1F3BC) asString.

    j := '

{

  // comments

  unquoted: ''and you can quote me on that'',

  singleQuotes: ''I can use "double quotes" here'',

  lineBreaks: "Look, Mom!! \

No \\n''s!!",

  hexadecimal: 0xdecaf,

  leadingDecimalPoint: .8675309, andTrailing: 8675309.,

  positiveSign: +1,

  trailingComma: ''in objects'', andIn: [''arrays'',],

  "backwardsCompatible": "with JSON",

}

'.

    self should:[ (JSONReader fromJSON:j) ] raise:JSONConversionError.

    o := JSONReader fromJSON5:j.

    #(

        unquoted 'and you can quote me on that' 

        singleQuotes 'I can use "double quotes" here' 

        lineBreaks 'Look, Mom!! No \n''s!!'

        hexadecimal 0xdecaf

        leadingDecimalPoint 0.8675309

        andTrailing 8675309.0

        positiveSign 1

        trailingComma 'in objects'

        andIn #('arrays')

        backwardsCompatible 'with JSON'

    ) pairWiseDo:[:key :expected |

        |got|

        got := o at:key.

        self assert:((got = expected) or:[got isFloat and:[got isAlmostEqualTo:expected nEpsilon:2]])

    ].

!

test10_typed

    self assert:((JSONPrinter new typeInfoFormat:#stx) 

                    encode:(10@20)) = '{"@__type__":"Point","@__value__":{"x":10,"y":20}}'.

    self assert:((JSONReader new typeInfoFormat:#stx) 

                    decode:'{"@__type__":"Point","@__value__":{"x":10,"y":20}}')

                = (10@20).

"/    self assert:((JSONPrinter new typeInfoFormat:#stx) 

"/                    encode:(Color red)) = '{"@type":"Point","@value":{"x":10,"y":20}}'.

"/    self assert:((JSONReader new typeInfoFormat:#stx) 

"/                    decode:'{"@type":"Point","@value":{"x":10,"y":20}}')

"/                = (10@20).

!

test11_typedV2

    self assert:((JSONPrinter new typeInfoFormat:#stx2) 

                    encode:(10@20)) = '{"@__type__":"Point","x":10,"y":20}'.

    self assert:((JSONReader new typeInfoFormat:#stx2) 

                    decode:'{"@__type__":"Point","x":10,"y":20}')

                = (10@20).

! !

!JSONTests class methodsFor:'documentation'!

version_CVS

    ^ '$Header$'

! !