Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/4c9d76d8a5bac1f27b59ab1553718a619522f02b >--------------------------------------------------------------- commit 4c9d76d8a5bac1f27b59ab1553718a619522f02b Author: Simon Marlow <[email protected]> Date: Tue Aug 2 14:11:11 2011 +0100 support globbing in extra_clean([...]) >--------------------------------------------------------------- driver/testlib.py | 9 +++++---- 1 files changed, 5 insertions(+), 4 deletions(-) diff --git a/driver/testlib.py b/driver/testlib.py index 7fdc6e6..0728cc3 100644 --- a/driver/testlib.py +++ b/driver/testlib.py @@ -598,11 +598,12 @@ def test_common_work (name, opts, func, args): if package_conf_cache_file_start_timestamp != package_conf_cache_file_end_timestamp: framework_fail(name, 'whole-test', 'Package cache timestamps do not match: ' + str(package_conf_cache_file_start_timestamp) + ' ' + str(package_conf_cache_file_end_timestamp)) -def clean(names): - clean_full_paths(map (lambda name: in_testdir(name), names)) +def clean(strs): + for str in strs: + for name in glob.glob(in_testdir(str)): + clean_full_path(name) -def clean_full_paths(names): - for name in names: +def clean_full_path(name): try: # Remove files... os.remove(name) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
