Skip to content

Commit 5a77f18

Browse files
committed
expanded unit test cases.
1 parent b358295 commit 5a77f18

File tree

1 file changed

+26
-0
lines changed

1 file changed

+26
-0
lines changed

src/tests/jf_test_2.f90

Lines changed: 26 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -149,6 +149,32 @@ subroutine test_2(error_cnt)
149149
error_cnt = error_cnt + 1
150150
end if
151151

152+
call json%add(inp, 'bspace', achar(8,kind=json_CK))
153+
if (json%failed()) then
154+
call json%print_error_message(error_unit)
155+
error_cnt = error_cnt + 1
156+
end if
157+
call json%add(inp, 'horizontal_tab', achar(9,kind=json_CK))
158+
if (json%failed()) then
159+
call json%print_error_message(error_unit)
160+
error_cnt = error_cnt + 1
161+
end if
162+
call json%add(inp, 'newline', achar(10,kind=json_CK))
163+
if (json%failed()) then
164+
call json%print_error_message(error_unit)
165+
error_cnt = error_cnt + 1
166+
end if
167+
call json%add(inp, 'formfeed', achar(12,kind=json_CK))
168+
if (json%failed()) then
169+
call json%print_error_message(error_unit)
170+
error_cnt = error_cnt + 1
171+
end if
172+
call json%add(inp, 'carriage_return', achar(13,kind=json_CK))
173+
if (json%failed()) then
174+
call json%print_error_message(error_unit)
175+
error_cnt = error_cnt + 1
176+
end if
177+
152178
nullify(inp)
153179

154180
!trajectory variables:

0 commit comments

Comments
 (0)