test_empty Subroutine

public subroutine test_empty()

Arguments

None

Calls

proc~~test_empty~~CallsGraph proc~test_empty test_DirPath::test_empty assertequal assertequal proc~test_empty->assertequal none~find~11 MAPL_DirPathMod::DirPath%find proc~test_empty->none~find~11 begin begin none~find~11->begin get get none~find~11->get next next none~find~11->next

Source Code

   subroutine test_empty()
      type (DirPath) :: path
      character(len=:), allocatable :: full_name
      integer :: status

      full_name = path%find('does_not_exist.dat', rc=status)
      @assertEqual(MAPL_FILE_NOT_FOUND, status)
      
   end subroutine test_empty