Commit f45965e8 authored by Kim Nguyễn's avatar Kim Nguyễn
Browse files

Fix buggy test that depends on whether dune has already copied file in _build or not.

parent 539502ab
Pipeline #142 passed with stages
in 6 minutes and 47 seconds
......@@ -90,10 +90,10 @@ let gen_cduce_test ?(ext = false) kind acc f =
let cduce_type_rule base file =
let out = base ^ ".out" in
Format.printf
"(rule (alias %s) \n\
(action (with-outputs-to %s (with-accepted-exit-codes 0 (run \
../src/test_type.exe %s)))))"
base out file
"(rule (alias %s) (deps %s) (target %s)\n\
(action (with-outputs-to %%{target} (with-accepted-exit-codes 0 (run \
../src/test_type.exe %%{deps})))))"
base file out
let gen_type_test acc f =
if check_file f ".cd" then begin
......
......@@ -12,6 +12,7 @@ let traverse (dir : Latin1) : [String*] =
;;
let [] =
let dirs = traverse "../.." in
transform sort_string_list dirs with f -> print_utf8 (f @ "\n")
let dirs = traverse ".." in
let dirs2 = traverse "../../common" in
transform sort_string_list (dirs@dirs2) with f -> print_utf8 (f @ "\n")
;;
addrbook.cd
complex_ok.cd
integer_bad_div.cd
integer_bad_mod.cd
integers.cd
lazy.cd
no_ocamliface.cd
no_url_loader.cd
no_xml_plugin.cd
overloading.cd
stack_overflow.cd
sys_filename_module.cd
test1.cd
utils.cd
; begin: test1.cd
(rule (alias test1)
(action (with-outputs-to test1.out (with-accepted-exit-codes 0 (run ../src/test_type.exe test1.cd)))))(rule (alias test1) (action (diff test1.exp test1.out)))
(rule (alias test1) (deps test1.cd) (target test1.out)
(action (with-outputs-to %{target} (with-accepted-exit-codes 0 (run ../src/test_type.exe %{deps})))))(rule (alias test1) (action (diff test1.exp test1.out)))
; end: test1.cd
(alias (name runtest)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment