blob: 3b42056719891be4344531aeb13c2af0cf0a8dcf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(* 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"
|