All tests writing json to stdout write valid json

 - Tests 1 and 8 were writing multiple json structures
   to stdout, which prevented the output being piped
   into json lint. Now some additional print statements
   are used to combine each test's three json structures
   into a since json structure. (Other text is sent to
   stderr.)

Author: zbeekman

src/tests/jf_test_1.f90

@@ -101,6 +101,7 @@ 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)
@@ -232,6 +233,7 @@ 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)
@@ -260,7 +262,9 @@ 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

src/tests/jf_test_8.f90

@@ -99,7 +99,9 @@ subroutine test_8(error_cnt)
         call json_print_error_message(error_unit)
         error_cnt = error_cnt + 1
     end if
-    call json_print(p,OUTPUT_UNIT)  ! print to console
+    write(output_unit,'(A)') '{ "part a" : '
+    call json_print(p,output_unit)  ! print to console
+    write(output_unit,'(A)') ','
     if (json_failed()) then
         call json_print_error_message(error_unit)
         error_cnt = error_cnt + 1
@@ -120,7 +122,9 @@ subroutine test_8(error_cnt)
         call json_print_error_message(error_unit)
         error_cnt = error_cnt + 1
     end if
-    call json_print(p,OUTPUT_UNIT)  ! print to console
+    write(output_unit,'(A)') '"part b" : '
+    call json_print(p,output_unit)  ! print to console
+    write(output_unit,'(A)') ','
     if (json_failed()) then
         call json_print_error_message(error_unit)
         error_cnt = error_cnt + 1
@@ -143,7 +147,9 @@ subroutine test_8(error_cnt)
         write(error_unit,'(A)') 'This should have failed!'
         error_cnt = error_cnt + 1
     end if
-    call json_print(p,OUTPUT_UNIT)  ! print to console
+    write(output_unit,'(A)') '"part c" : '
+    call json_print(p,output_unit)  ! print to console
+    write(output_unit,'(A)') '}'
     if (json_failed()) then
         call json_print_error_message(error_unit)
         error_cnt = error_cnt + 1