diff options
| author | David Terei <davidterei@gmail.com> | 2011-10-11 17:40:32 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-10-11 17:40:32 -0700 |
| commit | 001455ac65f3d27214de3b3a55bf15e950564b14 (patch) | |
| tree | c801728a4b39bcf54904bdf721e2def800246d69 /testsuite/driver | |
| parent | eb9accfc5cf8064d17e43756731170616c413201 (diff) | |
| download | haskell-001455ac65f3d27214de3b3a55bf15e950564b14.tar.gz | |
Have multi[src,mod] test ways clean up after themselves.
Diffstat (limited to 'testsuite/driver')
| -rw-r--r-- | testsuite/driver/testlib.py | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/testsuite/driver/testlib.py b/testsuite/driver/testlib.py index 3098ff5179..3ed5b823c6 100644 --- a/testsuite/driver/testlib.py +++ b/testsuite/driver/testlib.py @@ -593,6 +593,12 @@ def test_common_work (name, opts, func, args): '_stub.h', '_stub.c', '_stub.o', '.hp', '.exe.hp', '.ps', '.aux', '.hcr', '.eventlog'])) + if func == multisrc_compile or func == multisrc_compile_fail \ + or func == multi_compile or func == multi_compile_fail: + extra_mods = args[1] + clean(map (lambda (f,x): replace_suffix(f, 'o'), extra_mods)) + clean(map (lambda (f,x): replace_suffix(f, 'hi'), extra_mods)) + clean(getTestOpts().clean_files) try: |