From f47e89e54f778906618f6eabafcb107fbbb40f18 Mon Sep 17 00:00:00 2001
From: alisdair sullivan <alisdairsullivan@yahoo.ca>
Date: Tue, 26 Feb 2013 23:16:53 -0800
Subject: [PATCH] add tests for single quoted strings in objects

---
 src/jsx_decoder.erl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/jsx_decoder.erl b/src/jsx_decoder.erl
index 522cf80..9675ee5 100644
--- a/src/jsx_decoder.erl
+++ b/src/jsx_decoder.erl
@@ -1788,6 +1788,21 @@ single_quoted_string_test_() ->
         {"string with embedded single quotes", ?_assertEqual(
             [{string, <<"quoth the raven, 'nevermore'">>}, end_json],
             decode(<<34, "quoth the raven, 'nevermore'", 34>>, [])
+        )},
+        {"escaped single quote", ?_assertEqual(
+            [{string, <<"quoth the raven, 'nevermore'">>}, end_json],
+            decode(<<39, "quoth the raven, \\'nevermore\\'", 39>>, [single_quoted_strings])
+        )},
+        {"escape single quote", ?_assertEqual(
+            [{string, <<"quoth the raven, \\'nevermore\\'">>}, end_json],
+            decode(<<39, "quoth the raven, \\'nevermore\\'", 39>>, [single_quoted_strings, escaped_strings])
+        )},
+        {"single quoted key", ?_assertEqual(
+            [start_object,
+                {key, <<"key">>}, {string, <<"value">>},
+                {key, <<"another key">>}, {string, <<"another value">>},
+            end_object, end_json],
+            decode(<<"{'key':'value','another key':'another value'}">>, [single_quoted_strings])
         )}
     ].