Skip to content

Commit 9fc67da

Browse files
author
Sven Van Caekenberghe
committed
Initial commit
1 parent cefa76c commit 9fc67da

22 files changed

+823
-0
lines changed

‎.project

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
{
2+
'srcDirectory' : ''
3+
}

‎.properties

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,3 @@
1+
{
2+
#format : #tonel
3+
}

‎Neo-Universal-Binary-JSON-Tests/NeoUBJSONFunctionalTest.class.st

Lines changed: 76 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,76 @@
1+
Class {
2+
#name : #NeoUBJSONFunctionalTest,
3+
#superclass : #TestCase,
4+
#category : #'Neo-Universal-Binary-JSON-Tests'
5+
}
6+
7+
{ #category : #accessing }
8+
NeoUBJSONFunctionalTest class >> defaultTimeLimit [
9+
^(32 * 2 * 5) seconds
10+
]
11+
12+
{ #category : #tests }
13+
NeoUBJSONFunctionalTest >> testFunctional1 [
14+
| baseUrl |
15+
baseUrl := 'https://github.com/nlohmann/json/raw/develop/test/data/json.org/{1}.{2}'.
16+
1 to: 5 do: [ :each | | jsonString json ubjsonBytes ubjson |
17+
jsonString := (baseUrl format: { each. 'json' }) asUrl retrieveContents.
18+
json := STONJSON fromString: jsonString.
19+
ubjsonBytes := ZnClient new url: (baseUrl format: { each. 'json.ubjson' }); beBinary; get.
20+
ubjson := NeoUBJSONReader fromByteArray: ubjsonBytes.
21+
self assert: ubjson equals: json ]
22+
]
23+
24+
{ #category : #tests }
25+
NeoUBJSONFunctionalTest >> testFunctional2 [
26+
| baseUrl jsonString json ubjsonBytes ubjson |
27+
baseUrl := 'https://github.com/nlohmann/json/raw/develop/test/data/json_testsuite/sample'.
28+
jsonString := (baseUrl, '.json') asUrl retrieveContents.
29+
json := STONJSON fromString: jsonString.
30+
ubjsonBytes := ZnClient new url: (baseUrl, '.json.ubjson'); beBinary; get.
31+
ubjson := NeoUBJSONReader fromByteArray: ubjsonBytes.
32+
"self assert: ubjson equals: json"
33+
]
34+
35+
{ #category : #tests }
36+
NeoUBJSONFunctionalTest >> testFunctional3 [
37+
| baseUrl |
38+
baseUrl := 'https://github.com/nlohmann/json/raw/develop/test/data/json_tests/pass{1}.{2}'.
39+
1 to: 3 do: [ :each | | jsonString json ubjsonBytes ubjson |
40+
jsonString := (baseUrl format: { each. 'json' }) asUrl retrieveContents.
41+
json := STONJSON fromString: jsonString.
42+
ubjsonBytes := ZnClient new url: (baseUrl format: { each. 'json.ubjson' }); beBinary; get.
43+
ubjson := NeoUBJSONReader fromByteArray: ubjsonBytes.
44+
"failure of pass1 comes down to number/float comparisons, probably"
45+
each = 1 ifFalse: [ self assert: ubjson equals: json ] ]
46+
]
47+
48+
{ #category : #tests }
49+
NeoUBJSONFunctionalTest >> testFunctional4 [
50+
| baseUrl jsonString json ubjsonBytes ubjson |
51+
baseUrl := 'https://github.com/nlohmann/json/raw/develop/test/data/json_nlohmann_tests/all_unicode'.
52+
jsonString := (baseUrl, '.json') asUrl retrieveContents.
53+
json := STONJSON fromString: jsonString.
54+
ubjsonBytes := ZnClient new url: (baseUrl, '.json.ubjson'); beBinary; get.
55+
"this fails because Unicode BOM as a single character is not allowed by ZnUTF8Encoder"
56+
ubjson := [ NeoUBJSONReader fromByteArray: ubjsonBytes ]
57+
on: ZnIncomplete do: [ :exception | exception resume: $? asInteger ].
58+
"hack the diffs (first is unassigned, other is BOM"
59+
#(63232 65279) do: [ :i | json at: i put: ''. ubjson at: i put: '' ].
60+
self assert: ubjson equals: json
61+
]
62+
63+
{ #category : #tests }
64+
NeoUBJSONFunctionalTest >> testFunctional5 [
65+
| baseUrl |
66+
baseUrl := 'https://github.com/nlohmann/json/raw/develop/test/data/json_roundtrip/roundtrip{1}.{2}'.
67+
1 to: 32 do: [ :each | | n jsonString json ubjsonBytes ubjson |
68+
n := each printStringLength: 2 padded: true.
69+
jsonString := (baseUrl format: { n. 'json' }) asUrl retrieveContents.
70+
json := STONJSON fromString: jsonString.
71+
ubjsonBytes := ZnClient new url: (baseUrl format: { n. 'json.ubjson' }); beBinary; get.
72+
ubjson := NeoUBJSONReader fromByteArray: ubjsonBytes.
73+
"skip problematic number/float comparisons"
74+
(#(24 28 31 32) includes: each)
75+
ifFalse: [ self assert: ubjson equals: json ] ]
76+
]

‎Neo-Universal-Binary-JSON-Tests/NeoUBJSONReaderTest.class.st

Lines changed: 50 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,50 @@
1+
Class {
2+
#name : #NeoUBJSONReaderTest,
3+
#superclass : #TestCase,
4+
#category : #'Neo-Universal-Binary-JSON-Tests'
5+
}
6+
7+
{ #category : #tests }
8+
NeoUBJSONReaderTest >> testEmpty [
9+
self assert: (NeoUBJSONReader on: #[] readStream) atEnd.
10+
self should: [ (NeoUBJSONReader on: #[] readStream) next ] raise: Error.
11+
self should: [ (NeoUBJSONReader on: #[78 78 78] readStream) next ] raise: Error.
12+
]
13+
14+
{ #category : #tests }
15+
NeoUBJSONReaderTest >> testFalse [
16+
self assert: (NeoUBJSONReader on: #[70] readStream) next equals: false
17+
]
18+
19+
{ #category : #tests }
20+
NeoUBJSONReaderTest >> testInt8 [
21+
self assert: (NeoUBJSONReader on: #[105 42] readStream) next equals: 42.
22+
self assert: (NeoUBJSONReader on: #[105 0] readStream) next equals: 0.
23+
self assert: (NeoUBJSONReader on: #[105 127] readStream) next equals: 127.
24+
self assert: (NeoUBJSONReader on: #[105 128] readStream) next equals: -128.
25+
self assert: (NeoUBJSONReader on: #[105 255] readStream) next equals: -1.
26+
]
27+
28+
{ #category : #tests }
29+
NeoUBJSONReaderTest >> testNil [
30+
self assert: (NeoUBJSONReader on: #[90] readStream) next equals: nil
31+
]
32+
33+
{ #category : #tests }
34+
NeoUBJSONReaderTest >> testNoOp [
35+
self assert: (NeoUBJSONReader on: #[78 90] readStream) next equals: nil
36+
]
37+
38+
{ #category : #tests }
39+
NeoUBJSONReaderTest >> testTrue [
40+
self assert: (NeoUBJSONReader on: #[84] readStream) next equals: true
41+
]
42+
43+
{ #category : #tests }
44+
NeoUBJSONReaderTest >> testUInt8 [
45+
self assert: (NeoUBJSONReader on: #[85 42] readStream) next equals: 42.
46+
self assert: (NeoUBJSONReader on: #[85 0] readStream) next equals: 0.
47+
self assert: (NeoUBJSONReader on: #[85 127] readStream) next equals: 127.
48+
self assert: (NeoUBJSONReader on: #[85 128] readStream) next equals: 128.
49+
self assert: (NeoUBJSONReader on: #[85 255] readStream) next equals: 255.
50+
]

‎Neo-Universal-Binary-JSON-Tests/NeoUBJSONTest.class.st

Lines changed: 124 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,124 @@
1+
Class {
2+
#name : #NeoUBJSONTest,
3+
#superclass : #TestCase,
4+
#category : #'Neo-Universal-Binary-JSON-Tests'
5+
}
6+
7+
{ #category : #accessing }
8+
NeoUBJSONTest class >> dataset1 [
9+
^ ZnConstants httpStatusCodes associations
10+
collect: [ :each | { #code->each key. #reason->each value } asDictionary ].
11+
]
12+
13+
{ #category : #accessing }
14+
NeoUBJSONTest class >> dataset2 [
15+
^ Collection allSubclasses
16+
collect: [ :cl |
17+
{
18+
#name->cl name.
19+
#superclass->cl superclass name.
20+
#ivars->cl instVarNames.
21+
#package->cl category.
22+
#kind->cl kindOfSubclass trimBoth allButLast.
23+
#subclasses->(cl subclasses collect: #name).
24+
#count->cl allInstances size } asDictionary ]
25+
as: Array
26+
]
27+
28+
{ #category : #accessing }
29+
NeoUBJSONTest class >> dataset3 [
30+
^ (1 to: 100) collect: [ :each |
31+
{
32+
#int->each.
33+
#dec->(each printStringBase: 10).
34+
#hex->(each printStringBase: 16).
35+
#oct->(each printStringBase: 8).
36+
#binary->(each printStringBase: 2).
37+
#roman->each printStringRoman.
38+
#words->each asWords.
39+
#negative->each negated } asDictionary ]
40+
]
41+
42+
{ #category : #asserting }
43+
NeoUBJSONTest >> assertSerializeMaterialize: anObject [
44+
| encoded decoded |
45+
encoded := NeoUBJSONWriter toByteArray: anObject.
46+
decoded := NeoUBJSONReader fromByteArray: encoded.
47+
self assert: decoded equals: anObject
48+
]
49+
50+
{ #category : #private }
51+
NeoUBJSONTest >> serializeMaterialize: anObject [
52+
| encoded |
53+
encoded := NeoUBJSONWriter toByteArray: anObject.
54+
^ NeoUBJSONReader fromByteArray: encoded
55+
]
56+
57+
{ #category : #tests }
58+
NeoUBJSONTest >> testByteArrays [
59+
self assertSerializeMaterialize: #[1 2 3].
60+
self assertSerializeMaterialize: #[].
61+
self assertSerializeMaterialize: ((0 to: 16rFF) as: ByteArray).
62+
]
63+
64+
{ #category : #tests }
65+
NeoUBJSONTest >> testDataset1 [
66+
self assertSerializeMaterialize: self class dataset1
67+
]
68+
69+
{ #category : #tests }
70+
NeoUBJSONTest >> testDataset2 [
71+
self assertSerializeMaterialize: self class dataset2
72+
]
73+
74+
{ #category : #tests }
75+
NeoUBJSONTest >> testDataset3 [
76+
self assertSerializeMaterialize: self class dataset3
77+
]
78+
79+
{ #category : #tests }
80+
NeoUBJSONTest >> testFloats [
81+
| numbers |
82+
numbers := { 0.0. 1.0. -1.0. Float pi. Float e. Float pi. Float e }.
83+
numbers do: [ :each |
84+
self assert: (self serializeMaterialize: each) closeTo: each ]
85+
]
86+
87+
{ #category : #tests }
88+
NeoUBJSONTest >> testHighPrecisionInteger [
89+
self assertSerializeMaterialize: { 42 factorial. 42 factorial negated }
90+
]
91+
92+
{ #category : #tests }
93+
NeoUBJSONTest >> testIntegers [
94+
| numbers |
95+
numbers := Array streamContents: [ :out |
96+
out nextPut: 0.
97+
1 to: 62 do: [ :each |
98+
out nextPut: (2 raisedTo: each); nextPut: (2 raisedTo: each) negated ] ].
99+
self assertSerializeMaterialize: numbers
100+
]
101+
102+
{ #category : #tests }
103+
NeoUBJSONTest >> testSimpleArrays [
104+
self assertSerializeMaterialize: #().
105+
self assertSerializeMaterialize: #(1 2 3).
106+
self assertSerializeMaterialize: #(true false nil).
107+
self assertSerializeMaterialize: #('one' 'two' 'three').
108+
self assertSerializeMaterialize: #('a' 'b' 'c').
109+
]
110+
111+
{ #category : #tests }
112+
NeoUBJSONTest >> testSimpleDictionaries [
113+
self assertSerializeMaterialize: Dictionary new.
114+
self assertSerializeMaterialize: { #one->1. #two->2. #three->3 } asDictionary.
115+
self assertSerializeMaterialize: { #one->true. #two->false. #three->nil } asDictionary.
116+
self assertSerializeMaterialize: { #one->'one'. #two->'two'. #three->'three' } asDictionary.
117+
]
118+
119+
{ #category : #tests }
120+
NeoUBJSONTest >> testStrings [
121+
self assertSerializeMaterialize: #('' 'a' 'A' '€' 'Les élèves Françaises' '100 €').
122+
self assertSerializeMaterialize: (String loremIpsum: 2048).
123+
self assertSerializeMaterialize: (((String loremIpsum: 2048) replaceAll: $A with: $Å) replaceAll: $E with: $€).
124+
]

‎Neo-Universal-Binary-JSON-Tests/NeoUBJSONWriterTest.class.st

Lines changed: 20 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,20 @@
1+
Class {
2+
#name : #NeoUBJSONWriterTest,
3+
#superclass : #TestCase,
4+
#category : #'Neo-Universal-Binary-JSON-Tests'
5+
}
6+
7+
{ #category : #tests }
8+
NeoUBJSONWriterTest >> testFalse [
9+
self assert: (NeoUBJSONWriter toByteArray: false) equals: #[70]
10+
]
11+
12+
{ #category : #tests }
13+
NeoUBJSONWriterTest >> testNil [
14+
self assert: (NeoUBJSONWriter toByteArray: nil) equals: #[90]
15+
]
16+
17+
{ #category : #tests }
18+
NeoUBJSONWriterTest >> testTrue [
19+
self assert: (NeoUBJSONWriter toByteArray: true) equals: #[84]
20+
]

‎Neo-Universal-Binary-JSON-Tests/package.st

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1 @@
1+
Package { #name : #'Neo-Universal-Binary-JSON-Tests' }

‎Neo-Universal-Binary-JSON/ByteArray.extension.st

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
Extension { #name : #ByteArray }
2+
3+
{ #category : #'*Neo-Universal-Binary-JSON' }
4+
ByteArray >> neoUBJSONOn: writer [
5+
writer writeByteArray: self
6+
]

‎Neo-Universal-Binary-JSON/Collection.extension.st

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
Extension { #name : #Collection }
2+
3+
{ #category : #'*Neo-Universal-Binary-JSON' }
4+
Collection >> neoUBJSONOn: writer [
5+
writer writeList: self
6+
]

‎Neo-Universal-Binary-JSON/Dictionary.extension.st

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
Extension { #name : #Dictionary }
2+
3+
{ #category : #'*Neo-Universal-Binary-JSON' }
4+
Dictionary >> neoUBJSONOn: writer [
5+
writer writeMap: self
6+
]

0 commit comments

Comments
 (0)