Remove clean_cmd and extra_clean usage from .T files

The `clean_cmd` and `extra_clean` setup functions don't do anything.
Remove them from .T files.

Created using https://github.com/thomie/refactor-ghc-testsuite. This
diff is a test for the .T-file parser/processor/pretty-printer in that
repository.

    find . -name '*.T' -exec ~/refactor-ghc-testsuite/Main "{}" \;

Tests containing inline comments or multiline strings are not modified.

Preparation for #12223.

Test Plan: Harbormaster

Reviewers: austin, hvr, simonmar, mpickering, bgamari

Reviewed By: mpickering

Subscribers: mpickering

Differential Revision: https://phabricator.haskell.org/D3000

GHC Trac Issues: #12223

6 files changed, 7 insertions, 17 deletions

diff --git a/testsuite/tests/generics/GEq/test.T b/testsuite/tests/generics/GEq/test.T
index b3ed756b30..689b01ac11 100644
--- a/testsuite/tests/generics/GEq/test.T
+++ b/testsuite/tests/generics/GEq/test.T
@@ -1,3 +1,2 @@
-test('GEq1', extra_clean(['GEq1A.hi', 'GEq1A.o']),
-     multimod_compile_and_run, ['GEq1', ''])
+test('GEq1', [], multimod_compile_and_run, ['GEq1', ''])
 test('GEq2', normal, multimod_compile_and_run, ['GEq2', ''])
diff --git a/testsuite/tests/generics/GFunctor/test.T b/testsuite/tests/generics/GFunctor/test.T
index b9ccb934e0..b18e2ee67a 100644
--- a/testsuite/tests/generics/GFunctor/test.T
+++ b/testsuite/tests/generics/GFunctor/test.T
@@ -1,2 +1 @@
-test('GFunctor1', extra_clean(['GFunctor.hi', 'GFunctor.o', 'Main.hi', 'Main.o']),
-     multimod_compile_and_run, ['Main', ''])
+test('GFunctor1', [], multimod_compile_and_run, ['Main', ''])
diff --git a/testsuite/tests/generics/GMap/test.T b/testsuite/tests/generics/GMap/test.T
index a78d4e99b8..79536c0e43 100644
--- a/testsuite/tests/generics/GMap/test.T
+++ b/testsuite/tests/generics/GMap/test.T
@@ -1,2 +1 @@
-test('GMap1', extra_clean(['GMap.hi', 'GMap.o', 'Main.hi', 'Main.o']),
-     multimod_compile_and_run, ['Main', ''])
+test('GMap1', [], multimod_compile_and_run, ['Main', ''])
diff --git a/testsuite/tests/generics/GShow/test.T b/testsuite/tests/generics/GShow/test.T
index be34df3e8c..af1dc279db 100644
--- a/testsuite/tests/generics/GShow/test.T
+++ b/testsuite/tests/generics/GShow/test.T
@@ -1,2 +1 @@
-test('GShow1', extra_clean(['GShow.hi', 'GShow.o', 'Main.hi', 'Main.o']),
-     multimod_compile_and_run, ['Main', ''])
+test('GShow1', [], multimod_compile_and_run, ['Main', ''])
diff --git a/testsuite/tests/generics/Uniplate/test.T b/testsuite/tests/generics/Uniplate/test.T
index 8acd0ea4ad..1e99941bd4 100644
--- a/testsuite/tests/generics/Uniplate/test.T
+++ b/testsuite/tests/generics/Uniplate/test.T
@@ -1,3 +1 @@
-test('GUniplate1', extra_clean(['GUniplate.hi', 'GUniplate.o',
-                                'Main.hi', 'Main.o']),
-     multimod_compile_and_run, ['Main', ''])
+test('GUniplate1', [], multimod_compile_and_run, ['Main', ''])
diff --git a/testsuite/tests/generics/all.T b/testsuite/tests/generics/all.T
index 6bf949fc3b..2c67654aeb 100644
--- a/testsuite/tests/generics/all.T
+++ b/testsuite/tests/generics/all.T
@@ -26,17 +26,13 @@ test('T5462Yes2', outputdir('out_T5462Yes2')
 test('T5462No1', outputdir('out_T5462No1')
     , multimod_compile_fail, ['T5462No1', '-iGFunctor'])
 
-test('T5884',      extra_clean(['T5884Other.o', 'T5884Other.hi'])
-    , multimod_compile, ['T5884Other', '-v0'])
+test('T5884', [], multimod_compile, ['T5884Other', '-v0'])
 test('GenNewtype', normal, compile_and_run, [''])
 
 test('GenDerivOutput1_0', normal, compile, ['-dsuppress-uniques'])
 test('GenDerivOutput1_1', normal, compile, ['-dsuppress-uniques'])
 
-test('T7878', extra_clean(['T7878A.o'     ,'T7878A.hi'
-                          ,'T7878A.o-boot','T7878A.hi-boot'
-                          ,'T7878B.o'     ,'T7878B.hi']),
-              multimod_compile, ['T7878', '-v0'])
+test('T7878', [], multimod_compile, ['T7878', '-v0'])
 
 test('T8468', normal, compile_fail, [''])
 test('T8479', normal, compile, [''])