unit test updates.

Author: jacobwilliams

src/tests/jf_test_3.f90

@@ -40,7 +40,7 @@ subroutine test_3(error_cnt)
     write(error_unit,'(A)') ''
 
     error_cnt = 0
-    call json%initialize()
+    call json%initialize(allow_duplicate_keys=.false.)
     if (json%failed()) then
         call json%print_error_message(error_unit)
         error_cnt = error_cnt + 1

src/tests/jf_test_8.f90

@@ -38,7 +38,7 @@ subroutine test_8(error_cnt)
     character(len=*),parameter :: str_invalid = '{ "label": "foo",'//newline//' "value : "bar" }'
 
     error_cnt = 0
-    call json%initialize()
+    call json%initialize(allow_duplicate_keys=.false.)
     if (json%failed()) then
         call json%print_error_message(error_unit)
         error_cnt = error_cnt + 1