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

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