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 DirPath%append proc~test_simple->none~append none~find~52 DirPath%find proc~test_simple->none~find~52 push_back push_back none~append->push_back begin begin none~find~52->begin next next none~find~52->next of of none~find~52->of

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