update unit tests.

fixed an example in the comments, and minor refactoring.

Author: jacobwilliams

src/json_value_module.F90

@@ -570,7 +570,7 @@ module json_value_module
         !````fortran
         !    type(json_core) :: json
         !    type(json_value),pointer :: p
-        !    call json%create_integer(p,'value',42)
+        !    call json%create_integer(p,42,'value')
         !````
         generic,public :: create_integer => MAYBEWRAP(json_value_create_integer)
         procedure :: MAYBEWRAP(json_value_create_integer)
@@ -7690,8 +7690,8 @@ subroutine json_value_create_logical(json,p,val,name)
 
     class(json_core),intent(inout)      :: json
     type(json_value),pointer            :: p
-    character(kind=CK,len=*),intent(in) :: name  !! variable name
     logical(LK),intent(in)              :: val   !! variable value
+    character(kind=CK,len=*),intent(in) :: name  !! variable name
 
     call json_value_create(p)
     call to_logical(p,val,name)
@@ -7711,8 +7711,8 @@ subroutine wrap_json_value_create_logical(json,p,val,name)
 
     class(json_core),intent(inout)       :: json
     type(json_value),pointer             :: p
-    character(kind=CDK,len=*),intent(in) :: name
     logical(LK),intent(in)               :: val
+    character(kind=CDK,len=*),intent(in) :: name
 
     call json%create_logical(p,val,to_unicode(name))
 
@@ -7738,8 +7738,8 @@ subroutine json_value_create_integer(json,p,val,name)
 
     class(json_core),intent(inout)      :: json
     type(json_value),pointer            :: p
-    character(kind=CK,len=*),intent(in) :: name
     integer(IK),intent(in)              :: val
+    character(kind=CK,len=*),intent(in) :: name
 
     call json_value_create(p)
     call to_integer(p,val,name)
@@ -7760,8 +7760,8 @@ subroutine wrap_json_value_create_integer(json,p,val,name)
 
     class(json_core),intent(inout)       :: json
     type(json_value),pointer             :: p
-    character(kind=CDK,len=*),intent(in) :: name
     integer(IK),intent(in)               :: val
+    character(kind=CDK,len=*),intent(in) :: name
 
     call json%create_integer(p,val,to_unicode(name))
 
@@ -7787,8 +7787,8 @@ subroutine json_value_create_double(json,p,val,name)
 
     class(json_core),intent(inout)      :: json
     type(json_value),pointer            :: p
-    character(kind=CK,len=*),intent(in) :: name
     real(RK),intent(in)                 :: val
+    character(kind=CK,len=*),intent(in) :: name
 
     call json_value_create(p)
     call to_double(p,val,name)
@@ -7809,8 +7809,8 @@ subroutine wrap_json_value_create_double(json,p,val,name)
 
     class(json_core),intent(inout)       :: json
     type(json_value),pointer             :: p
-    character(kind=CDK,len=*),intent(in) :: name
     real(RK),intent(in)                  :: val
+    character(kind=CDK,len=*),intent(in) :: name
 
     call json%create_double(p,val,to_unicode(name))
 
@@ -7836,8 +7836,8 @@ subroutine json_value_create_string(json,p,val,name)
 
     class(json_core),intent(inout)      :: json
     type(json_value),pointer            :: p
-    character(kind=CK,len=*),intent(in) :: name
     character(kind=CK,len=*),intent(in) :: val
+    character(kind=CK,len=*),intent(in) :: name
 
     call json_value_create(p)
     call to_string(p,val,name)
@@ -7858,8 +7858,8 @@ subroutine wrap_json_value_create_string(json,p,val,name)
 
     class(json_core),intent(inout)       :: json
     type(json_value),pointer             :: p
-    character(kind=CDK,len=*),intent(in) :: name
     character(kind=CDK,len=*),intent(in) :: val
+    character(kind=CDK,len=*),intent(in) :: name
 
     call json%create_string(p,to_unicode(val),to_unicode(name))
 

src/tests/jf_test_26.f90

@@ -14,7 +14,7 @@ subroutine test_26(error_cnt)
     integer,intent(out) :: error_cnt
 
     type(json_core) :: json
-    type(json_value),pointer :: p
+    type(json_value),pointer :: p,tmp
     type(json_file) :: f
     logical(lk) :: is_valid
     character(kind=CK,len=:),allocatable :: error_msg
@@ -40,6 +40,12 @@ subroutine test_26(error_cnt)
     call f%add(cdk_'test.vector.unicode(3)', [ck_'cdk, ck'])
     call f%add(cdk_'test.vector.unicode(4)', [cdk_'cdk, cdk'])
 
+    !add a json_value pointer:
+    call json%create_integer(tmp,999,'') ! note that the name will be replaced
+                                         ! with the name given in the path
+                                         ! when it is added.
+    call f%add('inputs.pointer',tmp)
+
     write(error_unit,'(A)') 'validating...'
     call f%get(p)
     call json%validate(p,is_valid,error_msg)