fix qtest generation

we need to avoid files named foo.pp.ml as they're not handled by qtest
the right way (computes the wrong module name).
This commit is contained in:
Simon Cruanes 2022-02-17 00:17:37 -05:00
parent 60a1614919
commit 10286098c4
No known key found for this signature in database
GPG key ID: 4AC01D0849AA62B6

View file

@ -18,10 +18,13 @@ let is_code file = is_suffix ~sub:".ml" file || is_suffix ~sub:".mli" file
let do_not_test file = let do_not_test file =
assert (not (is_suffix ~sub:"make.ml" file)); assert (not (is_suffix ~sub:"make.ml" file));
str_sub ~sub:"Labels.ml" file || str_sub ~sub:"Labels.ml" file ||
is_suffix ~sub:".pp.ml" file ||
is_suffix ~sub:".pp.mli" file ||
is_suffix ~sub:"containers.ml" file || is_suffix ~sub:"containers.ml" file ||
is_suffix ~sub:"_top.ml" file || is_suffix ~sub:"_top.ml" file ||
is_suffix ~sub:"mkflags.ml" file || is_suffix ~sub:"mkflags.ml" file ||
is_suffix ~sub:"mkshims.ml" file || is_suffix ~sub:"mkshims.ml" file ||
is_suffix ~sub:"cpp.ml" file ||
is_suffix ~sub:"unlabel.ml" file || is_suffix ~sub:"unlabel.ml" file ||
is_suffix ~sub:"check_labelled_mods.ml" file || is_suffix ~sub:"check_labelled_mods.ml" file ||
is_suffix ~sub:"test_random.ml" file || is_suffix ~sub:"test_random.ml" file ||