blob: ae7c8b61d4b8f33a0517df6856381aeb8495b6ab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(* TEST
*)
let () =
let test f e =
assert(Filename.extension f = e);
assert(Filename.extension ("foo/" ^ f) = e);
assert(f = Filename.remove_extension f ^ Filename.extension f)
in
test "" "";
test "foo" "";
test "foo.txt" ".txt";
test "foo.txt.gz" ".gz";
test ".foo" "";
test "." "";
test ".." "";
test "foo..txt" ".txt"
|