Merge pull request #18 from kilianmh/feat/integer-type

Feat: Support integer type

README.md

@@ -27,6 +27,7 @@ Type          | Remarks
 `:any`        | Guesses the way to encode and decode the value 
 `:string`     | Enforces a string value
 `:number`     | Enforces a number value
+`:integer`    | Enforces a integer value
 `:hash-table` | Enforces a hash table value
 `:vector`     | Enforces a vector value
 `:list`       | Enforces a list value

src/to-json.lisp

@@ -43,6 +43,10 @@
   "Return the number VALUE"
   value)
 
+(defmethod to-json-value ((value integer) (json-type (eql :integer)))
+  "Return the integer VALUE"
+  value)
+
 (defmethod to-json-value ((value hash-table) (json-type (eql :hash-table)))
   "Return the hash-table VALUE"
   value)

src/to-lisp.lisp

@@ -47,6 +47,10 @@
   "Return the number VALUE"
   value)
 
+(defmethod to-lisp-value ((value integer) (json-type (eql :integer)))
+  "Return the number VALUE"
+  value)
+
 (defmethod to-lisp-value ((value hash-table) (json-type (eql :hash-table)))
   "Return the hash-table VALUE"
   value)

tests/encode-decode.lisp

@@ -38,6 +38,11 @@
     (is (= (get-number obj)
            (get-number (obj-rt obj))))))
 
+(test integer
+  (for-all ((obj (gen-object)))
+    (is (= (get-integer obj)
+           (get-integer (obj-rt obj))))))
+
 (test hash-table
   (for-all ((obj (gen-object)))
     (is (equalp (get-hash-table obj)

tests/tests.lisp

@@ -31,6 +31,10 @@
            :reader get-number
            :json-type :number
            :json-key "num")
+   (integer :initarg :integer
+	    :reader get-integer
+	    :json-type :integer
+	    :json-key "int")
    (hash :initarg :hash-table
          :reader get-hash-table
          :json-type :hash-table
@@ -119,6 +123,7 @@
 (defun gen-object (&key
                      (string (gen-string))
                      (number (gen-float))
+		     (integer (gen-integer))
                      (hash-table (gen-hash-table))
 		     (obj-hash-table
 		      (gen-hash-table
@@ -134,6 +139,7 @@
     (make-instance 'test-class
                    :string (funcall string)
                    :number (funcall number)
+		   :integer (funcall integer)
                    :hash-table (funcall hash-table)
                    :any-hash-table (funcall hash-table)
                    :obj-hash-table (funcall obj-hash-table)