test_empty Subroutine

public subroutine test_empty()

Arguments

None

Calls

proc~~test_empty~~CallsGraph proc~test_empty test_empty assertequal assertequal proc~test_empty->assertequal none~find~37 DirPath%find proc~test_empty->none~find~37 begin begin none~find~37->begin get get none~find~37->get next next none~find~37->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