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~2 DirPath%append proc~test_simple~2->none~append~2 none~find~70 DirPath%find proc~test_simple~2->none~find~70 push_back push_back none~append~2->push_back begin begin none~find~70->begin get get none~find~70->get next next none~find~70->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