module test_FileSystemUtilities use mapl_FileSystemUtilities use funit implicit none contains @test subroutine test_get_file_extension() @assertEqual(get_file_extension('t'), '') @assertEqual(get_file_extension('t.x'), '.x') @assertEqual(get_file_extension('t.u.x'), '.x') end subroutine test_get_file_extension @test 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 end module test_FileSystemUtilities