mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 11:15:31 -05:00
test: fix qtest generation to ignore the stdlib's fun module
This commit is contained in:
parent
6a51830305
commit
0867583209
1 changed files with 1 additions and 1 deletions
|
|
@ -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 ||
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue