test_simple Subroutine

public subroutine test_simple()

Arguments

None

Calls

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