From 81f0321e32211037a19739e52e2c53eb575e1a19 Mon Sep 17 00:00:00 2001
From: alisdair sullivan <alisdairsullivan@yahoo.ca>
Date: Mon, 4 Feb 2013 23:15:50 -0800
Subject: [PATCH] add tests for stricter parsing of opts

---
 src/jsx_to_term.erl | 4 +++-
 src/jsx_verify.erl  | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/jsx_to_term.erl b/src/jsx_to_term.erl
index c5ed81c..d8fb0bd 100644
--- a/src/jsx_to_term.erl
+++ b/src/jsx_to_term.erl
@@ -137,7 +137,9 @@ opts_test_() ->
             #opts{post_decode=F},
             parse_opts([{post_decode, F}])
         )},
-        {"post decode wrong arity", ?_assertError(badarg, parse_opts([{post_decode, G}]))}
+        {"post decode wrong arity", ?_assertError(badarg, parse_opts([{post_decode, G}]))},
+        {"invalid opt flag", ?_assertError(badarg, parse_opts([error]))},
+        {"invalid opt tuple", ?_assertError(badarg, parse_opts([{error, true}]))}
     ].
 
 
diff --git a/src/jsx_verify.erl b/src/jsx_verify.erl
index ff13950..93388b1 100644
--- a/src/jsx_verify.erl
+++ b/src/jsx_verify.erl
@@ -108,7 +108,9 @@ opts_test_() ->
         {"repeated keys false", ?_assertEqual(
             #opts{repeated_keys=false},
             parse_opts([{repeated_keys, false}])
-        )}
+        )},
+        {"invalid opt flag", ?_assertError(badarg, parse_opts([error]))},
+        {"invalid opt tuple", ?_assertError(badarg, parse_opts([{error, true}]))}
     ].