Merge pull request #195 from jacobwilliams/coverage-increases

updating unit tests for coverage increases.

Author: jacobwilliams

src/tests/jf_test_15.f90

@@ -66,6 +66,21 @@ subroutine test_15(error_cnt)
     call file1%info('this path does not exist',found,var_type,n_children)
     call file1%initialize()
 
+    call file1%check_for_errors(status_ok,error_msg)
+    call file1%clear_exceptions()
+    call file1%destroy()
+    file1 = json_file(p2,json)  !constructor
+    call file1%destroy(destroy_core=.true.)
+
+    call json%initialize(   verbose=.false.,&
+                            compact_reals=.true.,&
+                            print_signs=.false.,&
+                            real_format='E',&
+                            spaces_per_tab=4,&
+                            strict_type_checking=.true.,&
+                            trailing_spaces_significant=.false.,&
+                            case_sensitive_keys=.true.)
+
     call json%get_child(p2,-99,p)  !invalid index
     call json%initialize()  !clear exceptions
 

src/tests/jf_test_16.f90

@@ -112,7 +112,6 @@ subroutine test_16(error_cnt)
         write(error_unit,'(A)') 'Error: this should have failed.'
         error_cnt = error_cnt + 1
     else
-        write(error_unit,'(A)') 'Success: This operation is not allowed.'
         call json%clear_exceptions()
     end if
     nullify(p1)
@@ -132,6 +131,86 @@ subroutine test_16(error_cnt)
     nullify(p1)
     nullify(p2)
 
+    call json%destroy(p)
+
+    !...........................................................................
+    ! other special cases:
+
+    !swap first and last items in a list
+    write(error_unit,'(A)') ''
+    write(error_unit,'(A)') '.....................................'
+    write(error_unit,'(A)') ''
+    write(error_unit,'(A)') 'Original:'
+    call json%parse(p, '{ "color": "red", "width": 10, "height": 2 }')
+    if (json%failed()) then
+        call json%print_error_message(error_unit)
+        error_cnt = error_cnt + 1
+    end if
+    call json%print(p,error_unit)
+    write(error_unit,'(A)') ''
+    write(error_unit,'(A)') 'Swap: color <-> height'
+    call json%get(p,'color',p1)
+    call json%get(p,'height',p2)
+    call json%swap(p1,p2)
+    if (json%failed()) then
+        call json%print_error_message(error_unit)
+        error_cnt = error_cnt + 1
+    end if
+    call json%print(p,output_unit)
+    nullify(p1)
+    nullify(p2)
+    call json%destroy(p)
+
+    !p2 is first child:
+    write(error_unit,'(A)') ''
+    write(error_unit,'(A)') '.....................................'
+    write(error_unit,'(A)') ''
+    write(error_unit,'(A)') 'Original:'
+    call json%parse(p, '{ "color": "red", "width": 10, "height": 2 }')
+    if (json%failed()) then
+        call json%print_error_message(error_unit)
+        error_cnt = error_cnt + 1
+    end if
+    call json%print(p,error_unit)
+    write(error_unit,'(A)') ''
+    write(error_unit,'(A)') 'Swap: width <-> color'
+    call json%get(p,'width',p1)
+    call json%get(p,'color',p2)
+    call json%swap(p1,p2)
+    if (json%failed()) then
+        call json%print_error_message(error_unit)
+        error_cnt = error_cnt + 1
+    end if
+    call json%print(p,output_unit)
+    nullify(p1)
+    nullify(p2)
+    call json%destroy(p)
+
+    !p2 is last child:
+    write(error_unit,'(A)') ''
+    write(error_unit,'(A)') '.....................................'
+    write(error_unit,'(A)') ''
+    write(error_unit,'(A)') 'Original:'
+    call json%parse(p, '{ "color": "red", "width": 10, "height": 2 }')
+    if (json%failed()) then
+        call json%print_error_message(error_unit)
+        error_cnt = error_cnt + 1
+    end if
+    call json%print(p,error_unit)
+    write(error_unit,'(A)') ''
+    write(error_unit,'(A)') 'Swap: width <-> height'
+    call json%get(p,'width',p1)
+    call json%get(p,'height',p2)
+    call json%swap(p1,p2)
+    if (json%failed()) then
+        call json%print_error_message(error_unit)
+        error_cnt = error_cnt + 1
+    end if
+    call json%print(p,output_unit)
+    nullify(p1)
+    nullify(p2)
+    call json%destroy(p)
+
     end subroutine test_16
 
 end module jf_test_16_mod