add unit test 28 to the unified VS test file.

some other cleanups in the test case files.

Author: jacobwilliams

src/tests/jf_test_01.F90

@@ -12,6 +12,9 @@ module jf_test_1_mod
 
     implicit none
 
+    private
+    public :: test_1
+
     character(len=*),parameter :: dir = '../files/inputs/'    !! working directory
     character(len=*),parameter :: filename1 = 'test1.json'    !! file to read
     logical :: namelist_style !! for printing JSON variable paths

src/tests/jf_test_02.F90

@@ -12,6 +12,9 @@ module jf_test_2_mod
 
     implicit none
 
+    private
+    public :: test_2
+
     character(len=*),parameter :: dir = '../files/'    !! working directory
     character(len=*),parameter :: filename2 = 'test2.json'
 

src/tests/jf_test_03.F90

@@ -12,7 +12,10 @@ module jf_test_3_mod
 
     implicit none
 
-    character(len=*),parameter :: dir = '../files/inputs/'               !working directory
+    private
+    public :: test_3
+
+    character(len=*),parameter :: dir = '../files/inputs/' !! working directory
     character(len=*),parameter :: filename2 = 'test2.json'
 
 contains
@@ -139,7 +142,7 @@ end module jf_test_3_mod
 !*****************************************************************************************
 
 #ifndef INTERGATED_TESTS
-   
+
 !*****************************************************************************************
 program jf_test_3
 
@@ -154,4 +157,4 @@ program jf_test_3
 
 end program jf_test_3
 !*****************************************************************************************
-#endif
+#endif

src/tests/jf_test_04.F90

@@ -12,6 +12,9 @@ module jf_test_4_mod
 
     implicit none
 
+    private
+    public :: test_4
+
     character(len=*),parameter :: dir = '../files/'         !! working directory
     character(len=*),parameter :: filename4 = 'test4.json'
 
@@ -174,4 +177,4 @@ program jf_test_4
     if (n_errors /= 0) stop 1
 end program jf_test_4
 !*****************************************************************************************
-#endif
+#endif

src/tests/jf_test_05.F90

@@ -12,6 +12,9 @@ module jf_test_5_mod
 
     implicit none
 
+    private
+    public :: test_5
+
     character(len=*),parameter :: dir = '../files/inputs/'   !! working directory
     character(len=*),parameter :: filename5 = 'test5.json'
 
@@ -120,4 +123,4 @@ program jf_test_5
 
 end program jf_test_5
 !*****************************************************************************************
-#endif
+#endif

src/tests/jf_test_06.F90

@@ -12,6 +12,9 @@ module jf_test_6_mod
 
     implicit none
 
+    private
+    public :: test_6
+
     character(len=*),parameter :: dir = '../files/inputs/'   !! working directory
 
 contains
@@ -84,4 +87,4 @@ program jf_test_6
 
 end program jf_test_6
 !*****************************************************************************************
-#endif
+#endif

src/tests/jf_test_07.F90

@@ -12,6 +12,9 @@ module jf_test_7_mod
 
     implicit none
 
+    private
+    public :: test_7
+
 contains
 
     subroutine test_7(error_cnt)
@@ -276,4 +279,4 @@ program jf_test_7
 
 end program jf_test_7
 !*****************************************************************************************
-#endif
+#endif

src/tests/jf_test_08.F90

@@ -12,6 +12,9 @@ module jf_test_8_mod
 
     implicit none
 
+    private
+    public :: test_8
+
 contains
 
     subroutine test_8(error_cnt)
@@ -126,7 +129,7 @@ end subroutine test_8
 end module jf_test_8_mod
 !*****************************************************************************************
 
-#ifndef INTERGATED_TESTS    
+#ifndef INTERGATED_TESTS
 !*****************************************************************************************
 program jf_test_8
 

src/tests/jf_test_09.F90

@@ -11,6 +11,9 @@ module jf_test_9_mod
 
     implicit none
 
+    private
+    public :: test_9
+
     !small file - 0.0 sec : http://www.json-generator.com
     !character(len=*),parameter :: filename = 'random1.json'
 
@@ -156,4 +159,4 @@ program jf_test_9
 
 end program jf_test_9
 !*****************************************************************************************
-#endif
+#endif

src/tests/jf_test_10.F90

@@ -11,6 +11,9 @@ module jf_test_10_mod
 
     implicit none
 
+    private
+    public :: test_10
+
     character(len=*),parameter :: filename = 'test1.json'
     character(len=*),parameter :: dir = '../files/inputs/' !working directory
 
@@ -349,4 +352,4 @@ program jf_test_10
 
 end program jf_test_10
 !*****************************************************************************************
-#endif
+#endif