Increase coverage via test 7

Author: zbeekman

src/tests/jf_test_7.f90

@@ -63,9 +63,12 @@ subroutine test_7(error_cnt)
 
     integer,intent(out) :: error_cnt
 
-    type(json_value),pointer :: root,a,b,c,d,e,e1,e2,escaped_string
+    type(json_value),pointer :: root,a,b,c,d,e,e1,e2,escaped_string,p
     logical :: found
+    character(kind=CK,len=1), dimension(:), allocatable :: strvec
+    character(kind=CK,len=:), allocatable :: string
 
+    found=.false.
     error_cnt = 0
     call json_initialize()
     if (json_failed()) then
@@ -141,6 +144,12 @@ subroutine test_7(error_cnt)
         call json_print_error_message(error_unit)
         error_cnt = error_cnt + 1
     end if
+    call json_get_child(a,'chars',p)
+    call json_get(p,strvec)
+    if (json_failed()) then
+        call json_print_error_message(error_unit)
+        error_cnt = error_cnt + 1
+    end if
     call json_create_object(c,'c')
     if (json_failed()) then
         call json_print_error_message(error_unit)
@@ -202,23 +211,6 @@ subroutine test_7(error_cnt)
         call json_print_error_message(error_unit)
         error_cnt = error_cnt + 1
     end if
-        call json_create_object(escaped_string,'escaped string')
-    if (json_failed()) then
-        call json_print_error_message(error_unit)
-        error_cnt = error_cnt + 1
-    end if
-    call json_add(escaped_string,'escaped string',&
-         '\/'//&
-         achar(8)//&
-         achar(12)//&
-         achar(10)//&
-         achar(13)//&
-         achar(9))
-    if (json_failed()) then
-        call json_print_error_message(error_unit)
-        error_cnt = error_cnt + 1
-    end if
-
     call json_add(root,a)
     if (json_failed()) then
         call json_print_error_message(error_unit)
@@ -244,14 +236,23 @@ subroutine test_7(error_cnt)
         call json_print_error_message(error_unit)
         error_cnt = error_cnt + 1
     end if
-    call json_add(root,escaped_string)
+    call json_add(root,'escaped string',&
+         '\/'//&
+         achar(8)//&
+         achar(12)//&
+         achar(10)//&
+         achar(13)//&
+         achar(9))
     if (json_failed()) then
         call json_print_error_message(error_unit)
         error_cnt = error_cnt + 1
     end if
-
     call json_add(root,'wacky string',['trim   ','  and  ',' adjust','   left'],&
          trim_str=.true.,adjustl_str=.true.)
+    if (json_failed()) then
+        call json_print_error_message(error_unit)
+        error_cnt = error_cnt + 1
+    end if
 
     nullify(a)  !don't need these anymore
     nullify(b)
@@ -269,10 +270,17 @@ subroutine test_7(error_cnt)
     end if
     ! look for the 'escaped string' entry
     call json_get(root,'escaped string',escaped_string,found)
-    if (.not. found) then
+    if (json_failed() .or. .not. found) then
+        call json_print_error_message(error_unit)
+        error_cnt = error_cnt + 1
+    end if
+    call json_get(escaped_string,string)
+    if (json_failed()) then
         call json_print_error_message(error_unit)
         error_cnt = error_cnt + 1
     end if
+    write(error_unit,'(A)') "Fetched unescaped 'escaped string': "//string
+
     ! remove the escaped string entry
     if (found) call json_remove(escaped_string,destroy=.true.)
     call json_print(root,error_unit)  !print to stderr