eJson tests initial import

json_test/test_json_reader.e

@@ -0,0 +1,41 @@
+indexing
+	description: "Objects that ..."
+	author: ""
+	date: "$Date$"
+	revision: "$Revision$"
+
+class
+	EXAMPLE_JSON_READER
+
+create
+	make
+feature -- Access
+	make is
+			--
+			do
+				test_create_reader
+			end
+
+	test_create_reader is
+			--
+			local
+				reader:JSON_READER
+				condition:BOOLEAN
+			do
+				create reader.make("{%"key%":%"value%"}")
+
+				from
+					condition:=false
+				until condition
+
+				loop
+					if reader.has_next then
+						print (reader.read)
+						reader.next
+					else
+						condition:=true
+					end
+				end
+			end
+
+end