Added test case to check for exponent markers in float encodings.
Sat Jun 25 08:17:08 PDT 2011 rpgoldman@sift.info
* Added test case to check for exponent markers in float encodings.
diff -rN -u old-cl-json/t/testencoder.lisp new-cl-json/t/testencoder.lisp
--- old-cl-json/t/testencoder.lisp 2014-07-23 02:56:32.000000000 -0700
+++ new-cl-json/t/testencoder.lisp 2014-07-23 02:56:32.000000000 -0700
@@ -32,6 +32,10 @@
(is (string= "0" (encode-json-to-string 0)))
(is (string= "13" (encode-json-to-string 13)))
(is (string= "13.02" (encode-json-to-string 13.02)))
+ (is (string= "13.02" (encode-json-to-string 13.02D0)))
+ (is (string= "13.02" (encode-json-to-string 13.02L0)))
+ (is (string= "13.02" (encode-json-to-string 13.02S0)))
+ (is (string= "13.02" (encode-json-to-string 13.02E0)))
(is-same-number 2e10)
(is-same-number -1.3234e-10)