eJson tests initial import

2008-05-24 15:04:36 +00:00
parent 308fa7f2e7
commit de347f6c98
9 changed files with 561 additions and 0 deletions
--- a/json_test/application.e
+++ b/json_test/application.e
@@ -0,0 +1,162 @@
+indexing
+	description	: "System's root class"
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	APPLICATION
+
+create
+	make
+
+feature -- Initialization
+
+	make is
+			-- Run application.
+		do
+			print ("JSON OBJECT%N")
+			test_json_object
+
+			print ("%NJSON STRING%N")
+			test_json_string
+
+			print ("%NJSON NUMBER%N")
+			test_json_number
+
+			print ("%NJSON NULL%N")
+			test_json_null
+
+			print ("%NJSON BOOLEAN%N")
+			test_json_boolean
+
+			print ("%NJSON ARRAY%N")
+			test_json_array
+
+			print ("%NJSON READER%N")
+			test_json_reader
+
+			print ("%NJSON PARSER%N")
+			test_json_parser
+
+		end
+
+	test_json_object is
+			--
+			local
+							jo:JSON_OBJECT
+			do
+				create jo.make
+				jo.put (create {JSON_STRING}.make_json("myKey"), create {JSON_STRING}.make_json ("MyValue"))
+				print (jo.to_json)
+			end
+
+	test_json_string is
+			--
+			local
+				js:JSON_STRING
+			do
+				create js.make_json ("Json String example")
+				print (js.to_json)
+			end
+
+	test_json_number is
+			--
+			local
+				jnr,jni:JSON_NUMBER
+			do
+				create jnr.make_real (12.3)
+				print (jnr.to_json)
+				print ("%N")
+				create jni.make_integer (123)
+				print (jni.to_json)
+
+
+			end
+
+
+	 test_json_null is
+			--
+			local
+				jnull:JSON_NULL
+			do
+
+				create jnull
+				print (jnull.to_json)
+
+			end
+
+	test_json_boolean is
+			--
+			local
+				jbt,jbf:JSON_BOOLEAN
+			do
+				create jbt.make_boolean (true)
+				print (jbt.to_json)
+
+				print ("%N")
+				create jbf.make_boolean (false)
+				print (jbf.to_json)
+
+			end
+
+
+	test_json_array is
+			--
+			local
+				ja:JSON_ARRAY
+
+				jo: JSON_OBJECT
+			do
+				create ja.make_array
+				ja.add (create{JSON_STRING}.make_json ("valor1"))
+				ja.add (create{JSON_NUMBER}.make_integer (10))
+				ja.add (create{JSON_NULL} )
+				ja.add (create{JSON_BOOLEAN}.make_boolean (true))
+
+				create jo.make
+				jo.put (create {JSON_STRING}.make_json("myKey"), create {JSON_STRING}.make_json ("MyValue"))
+
+				ja.add (jo)
+				print (ja.to_json)
+
+			end
+
+	test_json_reader is
+			--
+			local
+			     jr:EXAMPLE_JSON_READER
+			do
+                 create jr.make
+                 jr.test_create_reader
+			end
+
+   	test_json_parser is
+			--
+			local
+			     jp:EXAMPLE_JSON_PARSER
+			do
+                 create jp
+                 print("%N ARRAY PARSING %N")
+                 jp.test_json_array
+
+                 print("%N GLOSSATY PARSING %N")
+                 jp.test_json_glossary_from_file
+
+                 print("%N NUMBER PARSING %N")
+                 jp.test_json_number
+
+                 print("%N OBJECTS PARSING %N")
+                 jp.test_json_objects_with_string
+
+                 print("%N STRING PARSING %N")
+                 jp.test_json_string
+
+
+
+
+			end
+
+
+
+
+end -- class APPLICATION