Test the name matching options.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(out) | :: | error_cnt | report number of errors to caller |
subroutine test_18(error_cnt)
!! Test the name matching options.
implicit none
integer,intent(out) :: error_cnt !! report number of errors to caller
type(json_core) :: json
type(json_value),pointer :: p
integer :: ival
logical :: found
logical,dimension(4) :: ok
write(error_unit,'(A)') ''
write(error_unit,'(A)') '================================='
write(error_unit,'(A)') ' TEST 18'
write(error_unit,'(A)') '================================='
write(error_unit,'(A)') ''
error_cnt = 0
call json%parse(p, '{ "a" :{"val" : 1},'//&
' "A" :{"Val" : 2},'//&
' "a ":{"val ": 3},'//&
' "A ":{"Val ": 4} }' )
if (json%failed()) then
call json%print_error_message(error_unit)
error_cnt = error_cnt + 1
end if
write(error_unit,'(A)') ''
call json%print(p,error_unit)
write(error_unit,'(A)') ''
call json%initialize(trailing_spaces_significant=.true.,&
case_sensitive_keys=.true.)
call go([1,2,3,4])
call json%initialize(trailing_spaces_significant=.false.,&
case_sensitive_keys=.true.)
call go([1,2,1,2])
call json%initialize(trailing_spaces_significant=.true.,&
case_sensitive_keys=.false.)
call go([1,1,3,3])
call json%initialize(trailing_spaces_significant=.false.,&
case_sensitive_keys=.false.)
call go([1,1,1,1])
!cleanup:
call json%destroy(p)
contains
subroutine go(iresult)
!! run test and get results
implicit none
integer,dimension(4),intent(in) :: iresult !! correct answers
call json%get(p,'a.val', ival,found); ok(1) = ival==iresult(1)
call json%get(p,'A.Val', ival,found); ok(2) = ival==iresult(2)
call json%get(p,'a .val ',ival,found); ok(3) = ival==iresult(3)
call json%get(p,'A .Val ',ival,found); ok(4) = ival==iresult(4)
write(error_unit,'(A)') ''
if (json%failed()) then
call json%print_error_message(error_unit)
error_cnt = error_cnt + 1
end if
if (all(ok)) then
write(error_unit,'(A)') 'Test passed!'
else
write(error_unit,*) ok
error_cnt = error_cnt + 1
write(error_unit,'(A)') 'Test failed!'
end if
end subroutine go
end subroutine test_18