added some additional checking for potential errors in the test cases (doesn't currently change the output).

Author: jacobwilliams

src/json_example.f90

@@ -62,6 +62,7 @@ program json_test
     character(len=*),parameter :: filename5 = 'test5.json'        !
 
     !initialize the module:
+    !call json_initialize(verbose=.true.)
     call json_initialize()
 
     !run the tests:
@@ -94,6 +95,8 @@ subroutine test_6()
     character(len=*),dimension(2),parameter :: files = ['invalid.json ',&
                                                         'invalid2.json']
 
+    call json_initialize()
+
     write(*,'(A)') ''
     write(*,'(A)') '================================='
     write(*,'(A)') '   EXAMPLE 6 : invalid JSON files'
@@ -136,6 +139,8 @@ subroutine test_5()
     type(json_file) :: json   
     logical :: found
 
+    call json_initialize()
+
     write(*,'(A)') ''
     write(*,'(A)') '================================='
     write(*,'(A)') '   EXAMPLE 5'
@@ -193,6 +198,8 @@ subroutine memory_leak_test()
 
     integer :: i
 
+    call json_initialize()
+
     write(*,'(A)') ''
     write(*,'(A)') '================================='
     write(*,'(A)') '   MEMORY LEAK TEST'
@@ -234,6 +241,8 @@ subroutine test_4()
     character(len=10) :: istr
     character(len=:),allocatable :: string
 
+    call json_initialize()
+
     write(*,'(A)') ''
     write(*,'(A)') '================================='
     write(*,'(A)') '   EXAMPLE 4'
@@ -302,6 +311,8 @@ subroutine test_2()
 
     integer :: iunit
 
+    call json_initialize()
+
     write(*,'(A)') ''
     write(*,'(A)') '================================='
     write(*,'(A)') '   EXAMPLE 2'
@@ -424,6 +435,8 @@ subroutine test_3()
     character(len=10) :: str
     real(wp),dimension(:),allocatable :: rvec
 
+    call json_initialize()
+
     write(*,'(A)') ''
     write(*,'(A)') '================================='
     write(*,'(A)') '   EXAMPLE 3'
@@ -515,6 +528,8 @@ subroutine test_1()
     logical :: found
     type(json_value),pointer :: p
 
+    call json_initialize()
+
     write(*,'(A)') ''
     write(*,'(A)') '================================='
     write(*,'(A)') '   EXAMPLE 1'
@@ -632,29 +647,35 @@ subroutine test_1()
 
         call json%get('files', p)           !in the middle of a list
         call json_remove(p)
-        
+        if (json_failed()) call print_error_message()
+       
         call json%get('data(1).array', p)   !at the end of a list
         call json_remove(p)
-        
+        if (json_failed()) call print_error_message()
+       
         call json%get('data(2).number', p)  !at the beginning of a list
         call json_remove(p)
+        if (json_failed()) call print_error_message()
 
         write(*,'(A)') ''
         write(*,'(A)') 'printing the modified structure...'
         call json%print_file()       
+        if (json_failed()) call print_error_message()
 
         write(*,'(A)') ''
         write(*,'(A)') ' Test replacing data from the json structure:'
 
         call json%get('data(1)', p)
         call json_update(p,'name','Cuthbert',found)
+        if (json_failed()) call print_error_message()
 
         !call json%get('data(2)', p)
         !call json_update(p,'real',[1.0_wp, 2.0_wp, 3.0_wp],found)   !don't have one like this yet...
 
         write(*,'(A)') ''
         write(*,'(A)') 'printing the modified structure...'
         call json%print_file()       
+        if (json_failed()) call print_error_message()
 
     end if
 
@@ -676,7 +697,7 @@ subroutine print_error_message()
 
     character(len=:),allocatable :: error_msg
     logical :: status_ok
-
+    
     !get error message:
     call json_check_for_errors(status_ok, error_msg)