Added null schema, jsonString default converter and test for simple c…

…ases of native types

source/JSONSchema-Core-Tests.package/JSONSchemaDefinitionTests.class/instance/testSimpleArrayDefinition.st

@@ -0,0 +1,8 @@
+tests
+testSimpleArrayDefinition
+	| definition schema string |
+	string := '{"type":"array"}'.
+	definition := JSONSchemaDefinition fromString: string.
+	schema := definition schema.
+	self assert: schema class equals: JSONSchemaArray.
+	self assert: schema jsonString equals: string

source/JSONSchema-Core-Tests.package/JSONSchemaDefinitionTests.class/instance/testSimpleBooleanDefinition.st

@@ -0,0 +1,8 @@
+tests
+testSimpleBooleanDefinition
+	| definition schema string |
+	string := '{"type":"boolean"}'.
+	definition := JSONSchemaDefinition fromString: string.
+	schema := definition schema.
+	self assert: schema class equals: JSONSchemaBoolean.
+	self assert: schema jsonString equals: string

source/JSONSchema-Core-Tests.package/JSONSchemaDefinitionTests.class/instance/testSimpleIntegerDefinition.st

@@ -0,0 +1,8 @@
+tests
+testSimpleIntegerDefinition
+	| definition schema string |
+	string := '{"type":"integer"}'.
+	definition := JSONSchemaDefinition fromString: string.
+	schema := definition schema.
+	self assert: schema class equals: JSONSchemaInteger.
+	self assert: schema jsonString equals: string

source/JSONSchema-Core-Tests.package/JSONSchemaDefinitionTests.class/instance/testSimpleNullDefinition.st

@@ -0,0 +1,8 @@
+tests
+testSimpleNullDefinition
+	| definition schema string |
+	string := '{"type":"null"}'.
+	definition := JSONSchemaDefinition fromString: string.
+	schema := definition schema.
+	self assert: schema class equals: JSONSchemaNull.
+	self assert: schema jsonString equals: string

source/JSONSchema-Core-Tests.package/JSONSchemaDefinitionTests.class/instance/testSimpleNumberDefinition.st

@@ -0,0 +1,8 @@
+tests
+testSimpleNumberDefinition
+	| definition schema string |
+	string := '{"type":"number"}'.
+	definition := JSONSchemaDefinition fromString: string.
+	schema := definition schema.
+	self assert: schema class equals: JSONSchemaNumber.
+	self assert: schema jsonString equals: string

source/JSONSchema-Core-Tests.package/JSONSchemaDefinitionTests.class/instance/testSimpleObjectDefinition.st

@@ -0,0 +1,8 @@
+tests
+testSimpleObjectDefinition
+	| definition schema string |
+	string := '{"type":"object"}'.
+	definition := JSONSchemaDefinition fromString: string.
+	schema := definition schema.
+	self assert: schema class equals: JSONSchemaObject.
+	self assert: schema jsonString equals: string

source/JSONSchema-Core-Tests.package/JSONSchemaDefinitionTests.class/instance/testSimpleStringDefinition.st

@@ -0,0 +1,8 @@
+tests
+testSimpleStringDefinition
+	| definition schema string |
+	string := '{"type":"string"}'.
+	definition := JSONSchemaDefinition fromString: string.
+	schema := definition schema.
+	self assert: schema class equals: JSONSchemaString.
+	self assert: schema jsonString equals: string

source/JSONSchema-Core-Tests.package/JSONSchemaDefinitionTests.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "TestCase",
+	"category" : "JSONSchema-Core-Tests",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "JSONSchemaDefinitionTests",
+	"type" : "normal"
+}

source/JSONSchema-Core.package/JSONSchema.class/instance/jsonString.st

@@ -0,0 +1,3 @@
+conversion
+jsonString
+	^ NeoJSONWriter toString: self

source/JSONSchema-Core.package/JSONSchemaNull.class/class/typeName.st

@@ -0,0 +1,3 @@
+instance creation
+typeName
+	^ 'null'

source/JSONSchema-Core.package/JSONSchemaNull.class/properties.json

@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "JSONPrimitiveSchema",
+	"category" : "JSONSchema-Core-Model",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "JSONSchemaNull",
+	"type" : "normal"
+}

source/JSONSchema-Core.package/JSONSchemaObject.class/instance/properties.st

@@ -1,4 +1,4 @@
 accessing
 properties 
-	^ properties ifNil: [ 
-		properties := Dictionary new ]
+	^ properties "ifNil: [ 
+		properties := Dictionary new ]"