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