old/dropExtension/test.icl

   1 module test
   2
   3 import StdEnv
   4 import System.FilePath
   5 import Text
   6 import Text.GenPrint
   7
   8 Start = join "\n" (map printToString
   9         [splitExtension "a"
  10         ,splitExtension "/a"
  11         ,splitExtension "a.out"
  12         ,splitExtension "/a.out"
  13         ,splitExtension "a/b"
  14         ,splitExtension "/a/b"
  15         ,splitExtension "a/b.out"
  16         ,splitExtension "/a/b.out"
  17         ,splitExtension "a/b.c/d"
  18         ,splitExtension "/a/b.c/d"
  19         ,splitExtension "a/b.c/d.out"
  20         ,splitExtension "/a/b.c/d.out"
  21         ,splitExtension ""
  22         ])