test_get_file_extension Subroutine

public subroutine test_get_file_extension()

Arguments

None

Calls

proc~~test_get_file_extension~~CallsGraph proc~test_get_file_extension test_get_file_extension assertequal assertequal proc~test_get_file_extension->assertequal proc~get_file_extension get_file_extension proc~test_get_file_extension->proc~get_file_extension

Source Code

   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