added an additional speed test, where file is read into a string first.

Author: jacobwilliams

src/tests/jf_test_9.f90

@@ -48,6 +48,7 @@ module jf_test_9_mod
     use, intrinsic :: iso_fortran_env , only: error_unit, output_unit, wp => real64
 
     implicit none
+
     !small file - 0.0 sec : http://www.json-generator.com
     !character(len=*),parameter :: filename = 'random1.json'
 
@@ -57,9 +58,13 @@ module jf_test_9_mod
     !13 MB - 7.6 sec : http://mtgjson.com
     !character(len=*),parameter :: filename = 'AllSets.json'
 
+    !....WARNING: this file is causing some error.... (bug in code?)
     !100 MB - takes forever... : https://github.com/seductiveapps/largeJSON
     !character(len=*),parameter :: filename = '100mb.json'
 
+    !small file that contains unicode characters:
+    !character(len=*),parameter :: filename = 'hello-world-ucs4.json'  !!!! test !!!!
+
     character(len=*),parameter :: dir = '../files/inputs/' !working directory
 
 contains
@@ -74,6 +79,7 @@ subroutine test_9(error_cnt)
 
     type(json_file) :: f
     real :: tstart, tend
+    character(len=:),allocatable :: str
 
     error_cnt = 0
     call json_initialize()
@@ -84,7 +90,7 @@ subroutine test_9(error_cnt)
 
     write(error_unit,'(A)') ''
     write(error_unit,'(A)') '================================='
-    write(error_unit,'(A)') '   EXAMPLE 9 '
+    write(error_unit,'(A)') '   EXAMPLE 9a '
     write(error_unit,'(A)') '================================='
 
     write(error_unit,'(A)') ''
@@ -108,8 +114,75 @@ subroutine test_9(error_cnt)
     !cleanup:
     call f%destroy()
 
+    write(error_unit,'(A)') ''
+    write(error_unit,'(A)') '================================='
+    write(error_unit,'(A)') '   EXAMPLE 9b '
+    write(error_unit,'(A)') '================================='
+
+    write(error_unit,'(A)') ''
+    write(error_unit,'(A)') '  Load a file using json_file%load_from_string'
+    write(error_unit,'(A)') ''
+    write(error_unit,'(A)') 'Loading file: '//trim(filename)
+
+    call cpu_time(tstart)
+    call read_file(dir//filename, str)
+
+    if (allocated(str)) then
+        call f%load_from_string(str)
+        call cpu_time(tend)
+        write(error_unit,'(A,1X,F10.3,1X,A)') 'Elapsed time to parse: ',tend-tstart,' sec'
+        if (json_failed()) then
+            call json_print_error_message(error_unit)
+            error_cnt = error_cnt + 1
+        else
+            write(error_unit,'(A)') 'File successfully read'
+        end if
+        write(error_unit,'(A)') ''
+        !write(error_unit,'(A)') str   !!!! test !!!!
+        !write(error_unit,'(A)') ''    !!!! test !!!!
+    else
+        write(error_unit,'(A)') 'Error loading file'
+    end if
+
+    !cleanup:
+    call f%destroy()
+
     end subroutine test_9
 
+    subroutine read_file(filename,str)
+    !
+    ! Reads the contents of the file into the allocatable string str.
+    ! If there are any problems, str will be returned unallocated.
+    !
+
+    ! Will this routine work if the file contains unicode characters??
+
+    implicit none
+ 
+    character(len=*),intent(in) :: filename
+    character(len=:),allocatable,intent(out) :: str
+ 
+    integer :: iunit,istat,filesize
+ 
+    open( newunit = iunit,&
+          file    = filename,&
+          status  = 'OLD',&
+          form    = 'UNFORMATTED',&
+          access  = 'STREAM',&
+          iostat  = istat )
+ 
+    if (istat==0) then
+        inquire(file=filename, size=filesize)
+        if (filesize>0) then
+            allocate( character(len=filesize) :: str )
+            read(iunit,pos=1,iostat=istat) str
+            if (istat/=0) deallocate(str)
+            close(iunit, iostat=istat)
+        end if
+    end if
+ 
+    end subroutine read_file
+
 end module jf_test_9_mod
 
 program jf_test_9