[commit: testsuite] master: Have multi[src, mod] test ways clean up after themselves. (f8b8096)

[David Terei]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/f8b80966a5fb57e3c27aafa0d3a0695b4232b8c7

>---------------------------------------------------------------

commit f8b80966a5fb57e3c27aafa0d3a0695b4232b8c7
Author: David Terei <davidterei at gmail.com>
Date:   Tue Oct 11 17:40:32 2011 -0700

    Have multi[src,mod] test ways clean up after themselves.

>---------------------------------------------------------------

 driver/testlib.py |    6 ++++++
 1 files changed, 6 insertions(+), 0 deletions(-)

diff --git a/driver/testlib.py b/driver/testlib.py
index 3098ff5..3ed5b82 100644
--- a/driver/testlib.py
+++ b/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: