test_simple Subroutine

public subroutine test_simple()

Arguments

None

Calls

proc~~test_simple~2~~CallsGraph proc~test_simple~2 test_simple assertequal assertequal proc~test_simple~2->assertequal none~append DirPath%append proc~test_simple~2->none~append none~find~37 DirPath%find proc~test_simple~2->none~find~37 push_back push_back none~append->push_back begin begin none~find~37->begin get get none~find~37->get next next none~find~37->next

Source Code

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

      call path%append('dir1')
      full_name = path%find('exist.dat', rc=status)
      @assertEqual(0, status)
      @assertEqual('dir1/exist.dat', full_name)

   end subroutine test_simple