Added test cases from getest to autotest. First version.

2011-07-11 12:07:05 +00:00
parent 6188f99615
commit 05b4bd90f5
9 changed files with 1236 additions and 0 deletions
--- a/test/autotest/test_suite/json_book_collection_converter.e
+++ b/test/autotest/test_suite/json_book_collection_converter.e
@@ -0,0 +1,79 @@
+note
+    description: "A JSON converter for BOOK_COLLECTION"
+    author: "Paul Cohen"
+    date: "$Date: 2010-03-08 20:46:59 -0300 (Mon, 08 Mar 2010) $"
+    revision: "$Revision: 82 $"
+    file: "$HeadURL: https://svn.origo.ethz.ch/ejson/branches/POC-converters-factory/test/json_book_collection_converter.e $"
+
+class JSON_BOOK_COLLECTION_CONVERTER
+
+inherit
+    JSON_CONVERTER
+
+create
+    make
+
+feature {NONE} -- Initialization
+
+    make
+        local
+            ucs: STRING_32
+        do
+            create ucs.make_from_string ("")
+            create object.make (ucs)
+        end
+
+feature -- Access
+
+    object: BOOK_COLLECTION
+
+feature -- Conversion
+
+    from_json (j: like to_json): detachable like object
+        local
+            ucs: detachable STRING_32
+            ll: LINKED_LIST [BOOK]
+            b: detachable BOOK
+            ja: detachable JSON_ARRAY
+            i: INTEGER
+        do
+            ucs ?= json.object (j.item (name_key), Void)
+            check ucs /= Void end
+            create Result.make (ucs)
+            ja ?= j.item (books_key)
+            check ja /= Void end
+            from
+                i := 1
+                create ll.make
+            until
+                i > ja.count
+            loop
+                b ?= json.object (ja [i], "BOOK")
+                check b /= Void end
+                ll.force (b)
+                i := i + 1
+            end
+            check ll /= Void end
+            Result.add_books (ll)
+        end
+
+    to_json (o: like object): JSON_OBJECT
+        do
+            create Result.make
+            Result.put (json.value (o.name), name_key)
+            Result.put (json.value (o.books), books_key)
+        end
+
+feature    {NONE} -- Implementation
+
+    name_key: JSON_STRING
+        once
+            create Result.make_json ("name")
+        end
+
+    books_key: JSON_STRING
+        once
+            create Result.make_json ("books")
+        end
+
+end -- class JSON_BOOK_COLLECTION_CONVERTER