fixing some memory issues in the unit tests

See #494

Author: jacobwilliams

src/tests/jf_test_02.F90

@@ -335,6 +335,11 @@ subroutine test_2(error_cnt)
         call json%print_error_message(error_unit)
         error_cnt = error_cnt + 1
     end if
+    call json%destroy(p_clone)
+    if (json%failed()) then
+        call json%print_error_message(error_unit)
+        error_cnt = error_cnt + 1
+    end if
 
     write(error_unit,'(A)') ''
 

src/tests/jf_test_10.F90

@@ -321,7 +321,8 @@ subroutine test_10(error_cnt)
     write(error_unit,'(A)') 'json_create_real   ...'; call json%destroy(p); call json%create_real   (p,9.0_wp,'foo')
     write(error_unit,'(A)') 'json_create_string ...'; call json%destroy(p); call json%create_string (p,'foo','bar')
     write(error_unit,'(A)') 'json_create_null   ...'; call json%destroy(p); call json%create_null   (p,'foo')
-    write(error_unit,'(A)') 'json_create_object ...'; call json%destroy(p); call json%create_object (p,'foo')
+    write(error_unit,'(A)') 'json_create_object ...'; call json%destroy(p); call json%create_object (p,'foo')
+    call json%destroy(p)
     if (json%failed()) then
         call json%print_error_message(error_unit)
         error_cnt = error_cnt + 1

src/tests/jf_test_12.F90

@@ -14,10 +14,6 @@ module jf_test_12_mod
     private
     public :: test_12
 
-    character(len=*),parameter :: dir = '../files/'         !! Path to write JSON file to
-    character(len=*),parameter :: file = 'test12.json'      !! Filename to write
-    real(wp), parameter        :: TOL = 100*epsilon(1.0_wp) !! Tolerance for real comparisons
-
 contains
 
     subroutine test_12(error_cnt)
@@ -27,6 +23,8 @@ subroutine test_12(error_cnt)
     integer,intent(out) :: error_cnt !! report number of errors to caller
 
     integer(IK),parameter :: imx = 5, jmx = 3, kmx = 4 !! dimensions for raw work array of primitive type
+    character(len=*),parameter :: file = '../files/test12.json'  !! Filename to write
+    real(wp), parameter        :: TOL = 100*epsilon(1.0_wp) !! Tolerance for real comparisons
 
     type(json_core)                        :: json              !! factory for manipulating `json_value` pointers
     integer(IK),dimension(3)               :: shape             !! shape of work array
@@ -58,7 +56,7 @@ subroutine test_12(error_cnt)
        raw_array(i,j,k) = i + (j-1_IK)*imx + (k-1_IK)*imx*jmx
     end forall
 
-    call json%create_object(root,dir//file)
+    call json%create_object(root,file)
     call check_errors()
 
     call json%create_object(meta_array,'array data')
@@ -172,7 +170,7 @@ subroutine test_12(error_cnt)
    !  call my_file%get(tmp_json_ptr)
    !  call check_file_errors(associated(tmp_json_ptr,root))
 
-    open(file=dir//file,newunit=lun,form='formatted',action='write')
+    open(file=file,newunit=lun,form='formatted',action='write')
     call my_file%print(lun)
     call check_file_errors()
     close(lun)

src/tests/jf_test_14.F90

@@ -113,6 +113,8 @@ subroutine test_14(error_cnt)
         error_cnt = error_cnt + 1
     end if
 
+    if (allocated(new_name)) deallocate(new_name)
+
     end subroutine test_14
 
     subroutine rename(json,p,finished)  !! change all "name" variable values to "Fred"

src/tests/jf_test_20.F90

@@ -183,6 +183,7 @@ subroutine test_20(error_cnt)
 
     ! cleanup:
     call json%destroy(p)
+    call json%destroy(root)
 
     ! now, just a test of the edge case:
     ! (where p doesn't have a parent)

src/tests/jf_test_34.F90

@@ -141,6 +141,7 @@ subroutine test_34(error_cnt)
     call json%initialize(trailing_spaces_significant=.true.)
     call json%create_integer(p,1_IK,CK_'a')
     call json%rename(p,CK_'b  ')
+    call json%destroy(p)
 
     end subroutine test_34
 

src/tests/jf_test_44.F90

@@ -52,6 +52,8 @@ subroutine test_44(error_cnt)
         error_cnt = error_cnt + 1
     end if
 
+    call json%destroy(p)
+
     if (error_cnt==0) then
         write(error_unit,'(A)') 'Success!'
     else

src/tests/jf_test_47.F90

@@ -117,6 +117,8 @@ subroutine test_47(error_cnt)
 
     end if
 
+    call json%destroy(inp)
+
     write(error_unit,'(A)') ''
     if (error_cnt==0) then
         write(error_unit,'(A)') 'Success!'