test_get_file_basename Subroutine

public subroutine test_get_file_basename()

Arguments

None

Calls

proc~~test_get_file_basename~~CallsGraph proc~test_get_file_basename test_get_file_basename assertequal assertequal proc~test_get_file_basename->assertequal proc~get_file_basename get_file_basename proc~test_get_file_basename->proc~get_file_basename

Source Code

   subroutine test_get_file_basename()

      @assertEqual(get_file_basename('q'), 'q')
      @assertEqual(get_file_basename('t.x'), 't')
      @assertEqual(get_file_basename('abc.123'), 'abc')
      @assertEqual(get_file_basename('abc.123.drm'), 'abc.123')

   end subroutine test_get_file_basename