test: fix qtest generation to ignore the stdlib's fun module

This commit is contained in:
Simon Cruanes 2019-10-11 16:45:39 -05:00
parent 6a51830305
commit 0867583209

View file

@ -1,4 +1,3 @@
let str_sub ?(offset=0) ~sub:s' s = let str_sub ?(offset=0) ~sub:s' s =
let open String in let open String in
let rec aux i = let rec aux i =
@ -17,6 +16,7 @@ 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:"stdlib/fun.ml" file ||
is_suffix ~sub:"containers.ml" file || is_suffix ~sub:"containers.ml" file ||
is_suffix ~sub:"containers_top.ml" file || is_suffix ~sub:"containers_top.ml" file ||
is_suffix ~sub:"mkflags.ml" file || is_suffix ~sub:"mkflags.ml" file ||