make sure unit test JSON prints are going to error_unit

Author: jacobwilliams

src/tests/jf_test_01.F90

@@ -72,7 +72,7 @@ subroutine test_1(error_cnt)
       ! print the parsed data to the console
       write(error_unit,'(A)') ''
       write(error_unit,'(A)') 'printing the file...'
-      call json%print_file()
+      call json%print_file(error_unit)
       if (json%failed()) then
         call json%print_error_message(error_unit)
         error_cnt = error_cnt + 1
@@ -336,7 +336,7 @@ subroutine test_1(error_cnt)
 
       write(error_unit,'(A)') ''
       write(error_unit,'(A)') 'printing the modified structure...'
-      call json%print_file()
+      call json%print_file(error_unit)
       if (json%failed()) then
         call json%print_error_message(error_unit)
         error_cnt = error_cnt + 1
@@ -370,7 +370,7 @@ subroutine test_1(error_cnt)
 
       write(error_unit,'(A)') ''
       write(error_unit,'(A)') 'printing the modified structure...'
-      call json%print_file()
+      call json%print_file(error_unit)
       if (json%failed()) then
         call json%print_error_message(error_unit)
         error_cnt = error_cnt + 1
@@ -379,7 +379,7 @@ subroutine test_1(error_cnt)
       write(error_unit,'(A)') ''
       write(error_unit,'(A)') 'printing the modified structure (compact mode)...'
       call json%initialize(no_whitespace=.true.)
-      call json%print_file()
+      call json%print_file(error_unit)
       if (json%failed()) then
         call json%print_error_message(error_unit)
         error_cnt = error_cnt + 1

src/tests/jf_test_05.F90

@@ -60,7 +60,7 @@ subroutine test_5(error_cnt)
 
         ! print the parsed data to the console:
         write(error_unit,'(A)') 'print file...'
-        call json%print_file()
+        call json%print_file(error_unit)
         if (json%failed()) then
             call json%print_error_message(error_unit)
             error_cnt = error_cnt + 1

src/tests/jf_test_22.F90

@@ -57,7 +57,7 @@ subroutine test_22(error_cnt)
       ! print the parsed data to the console
       write(error_unit,'(A)') ''
       write(error_unit,'(A)') 'printing the file...'
-      call json%print_file()
+      call json%print_file(error_unit)
       if (json%failed()) then
         call json%print_error_message(error_unit)
         error_cnt = error_cnt + 1

src/tests/jf_test_23.F90

@@ -68,7 +68,7 @@ subroutine test_23(error_cnt)
       ! print the parsed data to the console
       write(error_unit,'(A)') ''
       write(error_unit,'(A)') 'printing the file...'
-      call json%print_file()
+      call json%print_file(error_unit)
       if (json%failed()) then
         call json%print_error_message(error_unit)
         error_cnt = error_cnt + 1

src/tests/jf_test_30.F90

@@ -44,7 +44,7 @@ subroutine test_30(error_cnt)
 
         call json%initialize(escape_solidus=(i==1), stop_on_error=.true.)
         call json%load_from_string(str)
-        call json%print_file()
+        call json%print_file(error_unit)
 
         if (json%failed()) then
             call json%print_error_message(error_unit)