Skip to content

Commit 747c0b7

Browse files
committed
updating unit tests for coverage increases.
1 parent d1773b9 commit 747c0b7

File tree

1 file changed

+15
-0
lines changed

1 file changed

+15
-0
lines changed

src/tests/jf_test_15.f90

Lines changed: 15 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -66,6 +66,21 @@ subroutine test_15(error_cnt)
6666
call file1%info('this path does not exist',found,var_type,n_children)
6767
call file1%initialize()
6868

69+
call file1%check_for_errors(status_ok,error_msg)
70+
call file1%clear_exceptions()
71+
call file1%destroy()
72+
file1 = json_file(p2,json) !constructor
73+
call file1%destroy(destroy_core=.true.)
74+
75+
call json%initialize( verbose=.false.,&
76+
compact_reals=.true.,&
77+
print_signs=.false.,&
78+
real_format='E',&
79+
spaces_per_tab=4,&
80+
strict_type_checking=.true.,&
81+
trailing_spaces_significant=.false.,&
82+
case_sensitive_keys=.true.)
83+
6984
call json%get_child(p2,-99,p) !invalid index
7085
call json%initialize() !clear exceptions
7186

0 commit comments

Comments
 (0)