test_read_xml_nopath Subroutine

public subroutine test_read_xml_nopath()

Arguments

None

Calls

proc~~test_read_xml_nopath~~CallsGraph proc~test_read_xml_nopath test_read_xml_nopath assertfalse assertfalse proc~test_read_xml_nopath->assertfalse interface~ut_free_system ut_free_system proc~test_read_xml_nopath->interface~ut_free_system proc~read_xml read_xml proc~test_read_xml_nopath->proc~read_xml interface~ut_get_status ut_get_status proc~read_xml->interface~ut_get_status interface~ut_read_xml_cptr ut_read_xml_cptr proc~read_xml->interface~ut_read_xml_cptr proc~cstring cstring proc~read_xml->proc~cstring

Source Code

   subroutine test_read_xml_nopath()
      integer :: status
      type(c_ptr) :: utsystem

      call read_xml(utsystem=utsystem, status=status)
      if(.not. c_associated(utsystem)) then
         @assertFalse(status == UT_OS, 'Operating system error')
         @assertFalse(status == UT_PARSE_ERROR, 'Database file could not be parsed.')
         @assertFalse(status == UT_OPEN_ARG, 'Non-null path could not be opened.')
         @assertFalse(status == UT_OPEN_ENV, 'Environment variable is set but could not open.')
         @assertFalse(status == UT_OPEN_DEFAULT, 'Default database could not be opened.')
      end if

      call ut_free_system(utsystem)

   end subroutine test_read_xml_nopath