Add constructor to cast json_value as json_file

 - Add further tests to boost testing to 100% procedure coverage

Author: zbeekman

src/json_module.F90

@@ -338,14 +338,14 @@ module json_module
     !
     !```fortran
     !    program test
-    !     use json_module
-    !     implicit none
+    !    use json_module
+    !    implicit none
     !    type(json_file) :: json
     !    integer :: ival
     !    real(real64) :: rval
     !    character(len=:),allocatable :: cval
     !    logical :: found
-    !     call json_initialize()
+    !    call json_initialize()
     !    call json%load_file(filename='myfile.json')
     !    call json%print_file() !print to the console
     !    call json%get('var.i',ival,found)
@@ -431,6 +431,28 @@ module json_module
     end type json_file
     !*********************************************************
 
+    !*********************************************************
+    !> author: Izaak Beekman
+    !  date: 07/23/2015
+    !
+    !  Structure constructor to initialize a [[json_file(type)]] object
+    !  with an existing [[json_value]] object
+    !
+    ! # Example
+    !
+    ! ```fortran
+    ! ...
+    ! type(json_file)  :: my_file
+    ! type(json_value) :: json_object
+    ! ...
+    ! ! Construct a json_object
+    ! my_file = json_file(json_object)
+
+    interface json_file
+       module procedure initialize_json_file
+    end interface
+    !*************************************************************************************
+
     !*************************************************************************************
     !>
     !  Array element callback function.  Used by [[json_get_array]].
@@ -893,6 +915,22 @@ end subroutine array_callback_func
     contains
 !*****************************************************************************************
 
+!*****************************************************************************************
+!> author: Izaak Beekman
+!  date: 07/23/2015
+!
+!  Cast a [[json_value]] object as a [[json_file(type)]] object
+
+    function initialize_json_file(p) result(file_object)
+    type(json_value), pointer, optional, intent(in) :: p
+    !! `json_value` object to cast as a `json_file` object
+    type(json_file) :: file_object
+
+    if (present(p)) file_object%p => p
+
+    end function initialize_json_file
+!*****************************************************************************************
+
 !*****************************************************************************************
 !> author: Jacob Williams
 !
@@ -918,7 +956,7 @@ end subroutine destroy_json_data
 !> author: Jacob Williams
 !  date: 12/9/2013
 !
-!  Destroy the [[json_file]].
+!  Destroy the [[json_file(type)]].
 
     subroutine json_file_destroy(me)
 
@@ -935,7 +973,7 @@ end subroutine json_file_destroy
 !> author: Jacob Williams
 !  date: 12/5/2014
 !
-!  Move the [[json_value]] pointer from one [[json_file]] to another.
+!  Move the [[json_value]] pointer from one [[json_file(type)]] to another.
 !  The "from" pointer is then nullified, but not destroyed.
 !
 !@note If "from%p" is not associated, then an error is thrown.
@@ -1141,7 +1179,7 @@ end subroutine json_file_print_to_string
 !> author: Jacob Williams
 !  date: 2/3/2014
 !
-!  Returns information about a variable in a [[json_file]].
+!  Returns information about a variable in a [[json_file(type)]].
 
     subroutine json_file_variable_info(me,path,found,var_type,n_children)
 
@@ -4720,7 +4758,7 @@ end subroutine wrap_json_get_string_with_path
 !> author: Jacob Williams
 !  date: 5/14/2014
 !
-!  Get a string vector from a [[json_file]].
+!  Get a string vector from a [[json_file(type)]].
 
     subroutine json_get_string_vec(me, vec)
 
@@ -4773,7 +4811,7 @@ end subroutine json_get_string_vec
 
 !*****************************************************************************************
 !>
-!  Get a string vector from a [[json_file]], given the path.
+!  Get a string vector from a [[json_file(type)]], given the path.
 
     subroutine json_get_string_vec_with_path(me, path, vec, found)
 

src/tests/jf_test_12.f90

@@ -138,6 +138,20 @@ subroutine test_12(error_cnt)
     call json_get(me=root,path='array data.data',array_callback=get_3D_from_array)
     call check_errors(all(fetched_array == reshape(raw_array,[size(raw_array)])))
 
+    my_file = json_file(root)
+
+    call my_file%update('array data.description',CK_'vector data',found=existed)
+    call check_errors(existed)
+
+    call my_file%update(CK_'array data.description','Vector data',found=existed)
+    call check_errors(existed)
+
+    call my_file%get('SOS',sos)
+    call check_errors()
+
+    call my_file%get('$array data.data',fetched_array)
+    call check_errors(all(fetched_array == reshape(raw_array,[size(raw_array)])))
+
     contains
       subroutine check_errors(assertion)
         logical, optional, intent(in) :: assertion