added alloc string unit test for json_file object.

Author: jacobwilliams

src/tests/jf_test_25.F90

@@ -21,6 +21,7 @@ subroutine test_25(error_cnt)
 
     type(json_value),pointer :: p, tmp
     type(json_core) :: json
+    type(json_file) :: f
     logical(lk) :: found
     character(kind=CK,len=:),dimension(:),allocatable :: vec  !! array of strings from JSON
     integer(ik),dimension(:),allocatable :: ilen  !! array of string lengths
@@ -102,6 +103,35 @@ subroutine test_25(error_cnt)
     end if
 #endif
 
+    ! test json_file interface
+    f = json_file(p)
+    call f%get('str_array', vec, ilen, found)
+    if (f%failed()) then
+      call f%print_error_message(error_unit)
+      error_cnt = error_cnt + 1
+    end if
+    if (all(ilen==[1,2,3,5])) then
+        write(error_unit,'(A)') 'json_file success!'
+    else
+        write(error_unit,'(A,1X,*(I5,1X))') 'json_file failed: ', ilen
+        error_cnt = error_cnt + 1
+    end if
+#ifdef USE_UCS4
+    ! unicode test
+    f = json_file(p)
+    call f%get(CDK_'str_array', vec, ilen, found)
+    if (f%failed()) then
+      call f%print_error_message(error_unit)
+      error_cnt = error_cnt + 1
+    end if
+    if (all(ilen==[1,2,3,5])) then
+        write(error_unit,'(A)') 'json_file success!'
+    else
+        write(error_unit,'(A,1X,*(I5,1X))') 'json_file failed: ', ilen
+        error_cnt = error_cnt + 1
+    end if
+#endif
+
     ! clean up
     write(error_unit,'(A)') ''
     write(error_unit,'(A)') 'destroy...'