update unit test.

Author: jacobwilliams

src/tests/jf_test_1.f90

@@ -62,7 +62,6 @@ subroutine test_1(error_cnt)
       ! print the parsed data to the console
       write(error_unit,'(A)') ''
       write(error_unit,'(A)') 'printing the file...'
-      !write(output_unit,'(A)') '{ "part a" :' !Wrap 3 outputs to make stdout valid json
       call json%print_file()
       if (json%failed()) then
         call json%print_error_message(error_unit)
@@ -79,12 +78,14 @@ subroutine test_1(error_cnt)
       write(error_unit,'(A)') ''
       write(error_unit,'(A)') 'printing each variable [namelist style]'
       write(error_unit,'(A)') ''
+      call core%initialize(unescape_strings=.false.)
       call core%traverse(p,print_json_variable)
 
       namelist_style = .false.
       write(error_unit,'(A)') ''
       write(error_unit,'(A)') 'printing each variable [JSON style]'
       write(error_unit,'(A)') ''
+      call core%initialize(unescape_strings=.true.)
       call core%traverse(p,print_json_variable)
 
       ! -------------------------
@@ -232,7 +233,6 @@ subroutine test_1(error_cnt)
 
       write(error_unit,'(A)') ''
       write(error_unit,'(A)') 'printing the modified structure...'
-      !write(output_unit,'(A)') ', "part b" : '
       call json%print_file()
       if (json%failed()) then
         call json%print_error_message(error_unit)
@@ -267,9 +267,7 @@ subroutine test_1(error_cnt)
 
       write(error_unit,'(A)') ''
       write(error_unit,'(A)') 'printing the modified structure...'
-      !write(output_unit,'(A)') ', "part c" : '
       call json%print_file()
-      !write(output_unit,'(A)') '}'
       if (json%failed()) then
         call json%print_error_message(error_unit)
         error_cnt = error_cnt + 1