is_subdir with relative pathname and current dir

[gildor478]

This bug has been migrated from artifact #951 on forge.ocamlcore.org. It was assigned to user102.

user102 posted on 2011-04-09 09:45:32:

A relative filename should be a subdir of the current directory:

open FilePath;;

is_current "";;

• : bool = true

is_current ".";;

• : bool = true

is_subdir "a/b/c" "";;

• : bool = false (1)

is_subdir "a/b/c" ".";;

• : bool = false (2)

is_subdir "a/b/c" "a";;

• : bool = true

(1) and (2) should be true.