summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlec Theriault <alec.theriault@gmail.com>2019-03-04 08:45:54 -0800
committerMarge Bot <ben+marge-bot@smart-cactus.org>2019-03-11 18:11:59 -0400
commitbcb6769c83744c211d3ddddbc7fd9dec88452c88 (patch)
treed73f9ec1d1874cc433da0d8ecfb3fcdea2836b91
parent0cd989577a8b8d2666741fcac4fd3032ae212b80 (diff)
downloadhaskell-bcb6769c83744c211d3ddddbc7fd9dec88452c88.tar.gz
Ignore more version numbers in the testsuite
Prevents some tests from failing just due to mismatched version numbers. These version numbers shouldn't cause tests to fail, especially since we *expect* them to be regularly incremented. The motivation for this particular set of changes came from the changes that came along with the `base` version bump in 8f19ecc95fbaf2cc977531d721085d8441dc09b7.
-rw-r--r--testsuite/tests/ado/all.T2
-rw-r--r--testsuite/tests/backpack/should_compile/all.T2
-rw-r--r--testsuite/tests/backpack/should_fail/all.T6
-rw-r--r--testsuite/tests/determinism/determ021/all.T3
-rw-r--r--testsuite/tests/driver/all.T2
-rwxr-xr-xtestsuite/tests/ghci/scripts/all.T3
-rw-r--r--testsuite/tests/indexed-types/should_compile/all.T2
-rw-r--r--testsuite/tests/partial-sigs/should_compile/all.T2
-rw-r--r--testsuite/tests/rename/should_fail/all.T2
-rw-r--r--testsuite/tests/roles/should_compile/all.T2
-rw-r--r--testsuite/tests/safeHaskell/check/all.T1
-rw-r--r--testsuite/tests/safeHaskell/check/pkg01/all.T4
-rw-r--r--testsuite/tests/safeHaskell/flags/all.T2
-rw-r--r--testsuite/tests/typecheck/should_compile/all.T6
-rw-r--r--testsuite/tests/typecheck/should_fail/all.T4
15 files changed, 25 insertions, 18 deletions
diff --git a/testsuite/tests/ado/all.T b/testsuite/tests/ado/all.T
index d88e907315..866e414da8 100644
--- a/testsuite/tests/ado/all.T
+++ b/testsuite/tests/ado/all.T
@@ -1,7 +1,7 @@
test('ado001', normal, compile_and_run, [''])
test('ado002', normal, compile_fail, [''])
test('ado003', normal, compile_fail, [''])
-test('ado004', normal, compile, [''])
+test('ado004', normalise_version('base','ghc-prim','integer-gmp'), compile, [''])
test('ado005', normal, compile_fail, [''])
test('ado006', normal, compile, [''])
test('ado007', normal, compile, [''])
diff --git a/testsuite/tests/backpack/should_compile/all.T b/testsuite/tests/backpack/should_compile/all.T
index da6ea5fb07..0e422a7320 100644
--- a/testsuite/tests/backpack/should_compile/all.T
+++ b/testsuite/tests/backpack/should_compile/all.T
@@ -8,7 +8,7 @@ test('bkp11', normal, backpack_compile, [''])
test('bkp12', normal, backpack_compile, [''])
test('bkp14', normal, backpack_compile, [''])
test('bkp15', normal, backpack_compile, [''])
-test('bkp16', normal, backpack_compile, [''])
+test('bkp16', normalise_version('base'), backpack_compile, [''])
test('bkp17', normal, backpack_compile, [''])
test('bkp18', normal, backpack_compile, [''])
test('bkp19', normal, backpack_compile, [''])
diff --git a/testsuite/tests/backpack/should_fail/all.T b/testsuite/tests/backpack/should_fail/all.T
index 856733ec0b..b9d1eeba3e 100644
--- a/testsuite/tests/backpack/should_fail/all.T
+++ b/testsuite/tests/backpack/should_fail/all.T
@@ -11,10 +11,10 @@ test('bkpfail12', normal, backpack_compile_fail, [''])
test('bkpfail13', normal, backpack_compile_fail, [''])
test('bkpfail14', normal, backpack_compile_fail, [''])
test('bkpfail15', normal, backpack_compile_fail, [''])
-test('bkpfail16', normal, backpack_compile_fail, [''])
-test('bkpfail17', normal, backpack_compile_fail, [''])
+test('bkpfail16', normalise_version('base'), backpack_compile_fail, [''])
+test('bkpfail17', normalise_version('base'), backpack_compile_fail, [''])
test('bkpfail18', normal, backpack_compile_fail, [''])
-test('bkpfail19', normal, backpack_compile_fail, [''])
+test('bkpfail19', normalise_version('base'), backpack_compile_fail, [''])
test('bkpfail20', normal, backpack_compile_fail, [''])
test('bkpfail21', normal, backpack_compile_fail, [''])
test('bkpfail22', normal, backpack_compile_fail, [''])
diff --git a/testsuite/tests/determinism/determ021/all.T b/testsuite/tests/determinism/determ021/all.T
index afad3581f5..ba6065ad13 100644
--- a/testsuite/tests/determinism/determ021/all.T
+++ b/testsuite/tests/determinism/determ021/all.T
@@ -1,3 +1,4 @@
test('determ021',
- [normalise_fun(normalise_errmsg), extra_files(['A.hs'])],
+ [normalise_fun(normalise_errmsg), normalise_version('base', 'ghc-prim'),
+ extra_files(['A.hs'])],
makefile_test, ['determ021'])
diff --git a/testsuite/tests/driver/all.T b/testsuite/tests/driver/all.T
index 64b9aeb61d..3cb0f95ce4 100644
--- a/testsuite/tests/driver/all.T
+++ b/testsuite/tests/driver/all.T
@@ -259,7 +259,7 @@ test('T12955', normal, makefile_test, [])
test('T12971', ignore_stdout, makefile_test, [])
test('json', normal, compile_fail, ['-ddump-json'])
-test('json2', normal, compile, ['-ddump-types -ddump-json'])
+test('json2', normalise_version('base','ghc-prim'), compile, ['-ddump-types -ddump-json'])
test('T13604', [], makefile_test, [])
test('T13604a', [], makefile_test, [])
# omitting hpc and profasm because they affect the
diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index dd76a07f5c..4eea5c367e 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -22,7 +22,8 @@ test('ghci006', [ combined_output,
unless(opsys('mingw32'),extra_ways(['ghci-ext'])) ],
ghci_script, ['ghci006.script'])
test('ghci007', combined_output, ghci_script, ['ghci007.script'])
-test('ghci008', combined_output, ghci_script, ['ghci008.script'])
+test('ghci008', [ combined_output,
+ normalise_version('base') ], ghci_script, ['ghci008.script'])
test('ghci009', combined_output, ghci_script, ['ghci009.script'])
# Skip this test: deadlock cannot be detected now, because we wait for
diff --git a/testsuite/tests/indexed-types/should_compile/all.T b/testsuite/tests/indexed-types/should_compile/all.T
index dbebdf051d..bc0b509e05 100644
--- a/testsuite/tests/indexed-types/should_compile/all.T
+++ b/testsuite/tests/indexed-types/should_compile/all.T
@@ -110,7 +110,7 @@ test('T2448', normal, compile, [''])
test('T2291', normal, compile, [''])
test('T2639', normal, compile, [''])
test('T2944', normal, compile, [''])
-test('T3017', normal, compile, ['-ddump-types'])
+test('T3017', normalise_version('base','ghc-prim'), compile, ['-ddump-types'])
test('TF_GADT', normal, compile, [''])
test('T2203b', normal, compile, [''])
test('T2767', normal, compile, [''])
diff --git a/testsuite/tests/partial-sigs/should_compile/all.T b/testsuite/tests/partial-sigs/should_compile/all.T
index 3e62552a20..56d821eca0 100644
--- a/testsuite/tests/partial-sigs/should_compile/all.T
+++ b/testsuite/tests/partial-sigs/should_compile/all.T
@@ -1,3 +1,5 @@
+setTestOpts(normalise_version('base','ghc-prim'))
+
test('ADT', normal, compile, ['-ddump-types -fno-warn-partial-type-signatures'])
test('AddAndOr1', normal, compile, ['-ddump-types -fno-warn-partial-type-signatures'])
test('AddAndOr2', normal, compile, ['-ddump-types -fno-warn-partial-type-signatures'])
diff --git a/testsuite/tests/rename/should_fail/all.T b/testsuite/tests/rename/should_fail/all.T
index 4b5e9e9a72..5bfded171f 100644
--- a/testsuite/tests/rename/should_fail/all.T
+++ b/testsuite/tests/rename/should_fail/all.T
@@ -39,7 +39,7 @@ test('rnfail035', normal, compile_fail, [''])
test('rnfail039', normal, compile_fail, [''])
-test('rnfail040', [extra_files(['Rnfail040_A.hs'])], multimod_compile_fail, ['rnfail040', '-v0'])
+test('rnfail040', [extra_files(['Rnfail040_A.hs']), normalise_version('base')], multimod_compile_fail, ['rnfail040', '-v0'])
test('rnfail041', normal, compile_fail, [''])
test('rnfail042', normal, compile_fail, [''])
diff --git a/testsuite/tests/roles/should_compile/all.T b/testsuite/tests/roles/should_compile/all.T
index 8d7c31f4da..28f344fa86 100644
--- a/testsuite/tests/roles/should_compile/all.T
+++ b/testsuite/tests/roles/should_compile/all.T
@@ -1,3 +1,5 @@
+setTestOpts(normalise_version('base','ghc-prim'))
+
test('Roles1', only_ways('normal'), compile, ['-ddump-tc -fprint-explicit-foralls -dsuppress-uniques'])
test('Roles2', only_ways('normal'), compile, ['-ddump-tc -fprint-explicit-foralls -dsuppress-uniques'])
test('Roles3', only_ways('normal'), compile, ['-ddump-tc -dsuppress-uniques'])
diff --git a/testsuite/tests/safeHaskell/check/all.T b/testsuite/tests/safeHaskell/check/all.T
index a4ac4b46cd..47e875d3be 100644
--- a/testsuite/tests/safeHaskell/check/all.T
+++ b/testsuite/tests/safeHaskell/check/all.T
@@ -6,6 +6,7 @@ def f( name, opts ):
opts.only_ways = ['normal']
setTestOpts(f)
+setTestOpts(normalise_version('base'))
test('CheckA', normal, compile, [''])
test('CheckB', [], multimod_compile, ['CheckB', '-trust base'])
diff --git a/testsuite/tests/safeHaskell/check/pkg01/all.T b/testsuite/tests/safeHaskell/check/pkg01/all.T
index 2b3d21a043..d4a63b5d7d 100644
--- a/testsuite/tests/safeHaskell/check/pkg01/all.T
+++ b/testsuite/tests/safeHaskell/check/pkg01/all.T
@@ -35,7 +35,7 @@ test('safePkg01',
run_command, ['$MAKE -s --no-print-directory safePkg01 ' + make_args])
# Fail since we enable package trust
-test('ImpSafe01', normal, compile_fail, ['-fpackage-trust -distrust base'])
+test('ImpSafe01', normalise_version('base'), compile_fail, ['-fpackage-trust -distrust base'])
# Succeed since we don't enable package trust
test('ImpSafe02', normal, compile, ['-distrust base'])
@@ -49,7 +49,7 @@ test('ImpSafe03',
], '-fpackage-trust' ])
# Fail same as ImpSafe01 but testing with -XTrustworthy now
-test('ImpSafe04', normal, compile_fail, ['-fpackage-trust -distrust base'])
+test('ImpSafe04', normalise_version('base'), compile_fail, ['-fpackage-trust -distrust base'])
test('ImpSafeOnly01',
[extra_files(['M_SafePkg.hs', 'M_SafePkg2.hs', 'M_SafePkg3.hs', 'M_SafePkg4.hs', 'M_SafePkg5.hs', 'M_SafePkg6.hs', 'M_SafePkg7.hs', 'M_SafePkg8.hs', 'Setup.hs', 'p.cabal']),
diff --git a/testsuite/tests/safeHaskell/flags/all.T b/testsuite/tests/safeHaskell/flags/all.T
index 8b1ea974b1..b92067d372 100644
--- a/testsuite/tests/safeHaskell/flags/all.T
+++ b/testsuite/tests/safeHaskell/flags/all.T
@@ -36,7 +36,7 @@ test('SafeFlags14', normal, compile_fail, [''])
test('SafeFlags15', normal, compile, [''])
test('SafeFlags16', normal, compile, [''])
-test('SafeFlags17', normal, compile_fail, ['-distrust base'])
+test('SafeFlags17', normalise_version('base'), compile_fail, ['-distrust base'])
test('SafeFlags18', normal, compile_fail, ['-trust base -Werror'])
test('SafeFlags19', normal, compile_fail, [''])
test('SafeFlags20', normal, compile, ['-trust base'])
diff --git a/testsuite/tests/typecheck/should_compile/all.T b/testsuite/tests/typecheck/should_compile/all.T
index dae5b6feea..d312f5074d 100644
--- a/testsuite/tests/typecheck/should_compile/all.T
+++ b/testsuite/tests/typecheck/should_compile/all.T
@@ -239,7 +239,7 @@ test('tc227', normal, compile, [''])
test('tc228', normal, compile, [''])
test('tc229', normal, compile, [''])
test('tc230', normal, compile, [''])
-test('tc231', normal, compile, [''])
+test('tc231', normalise_version('base','ghc-prim'), compile, [''])
test('tc232', normal, compile, [''])
test('tc233', normal, compile, [''])
test('tc234', normal, compile, [''])
@@ -381,9 +381,9 @@ test('T7050', normal, compile, ['-O'])
test('T7312', normal, compile, [''])
test('T7384', normal, compile, [''])
test('T7451', normal, compile, [''])
-test('holes', normal, compile, ['-fdefer-type-errors -fno-max-valid-hole-fits -funclutter-valid-hole-fits'])
+test('holes', normalise_version('base'), compile, ['-fdefer-type-errors -fno-max-valid-hole-fits -funclutter-valid-hole-fits'])
test('holes2', normal, compile, ['-fdefer-type-errors -fno-max-valid-hole-fits -funclutter-valid-hole-fits'])
-test('holes3', normal, compile_fail, ['-fno-max-valid-hole-fits -funclutter-valid-hole-fits'])
+test('holes3', normalise_version('base'), compile_fail, ['-fno-max-valid-hole-fits -funclutter-valid-hole-fits'])
test('hole_constraints', normal, compile, ['-fdefer-type-errors -fno-max-valid-hole-fits -funclutter-valid-hole-fits'])
test('hole_constraints_nested', normal, compile, ['-fdefer-type-errors -fno-max-valid-hole-fits -funclutter-valid-hole-fits'])
test('valid_hole_fits', [extra_files(['ValidHoleFits.hs'])],
diff --git a/testsuite/tests/typecheck/should_fail/all.T b/testsuite/tests/typecheck/should_fail/all.T
index 1a775d3a7c..a5d1847bb0 100644
--- a/testsuite/tests/typecheck/should_fail/all.T
+++ b/testsuite/tests/typecheck/should_fail/all.T
@@ -164,7 +164,7 @@ test('tcfail178', normal, compile_fail, [''])
test('tcfail179', normal, compile_fail, [''])
test('tcfail180', normal, compile_fail, [''])
test('tcfail181', normal, compile_fail, [''])
-test('tcfail182', normal, compile_fail, [''])
+test('tcfail182', normalise_version('base'), compile_fail, [''])
test('tcfail183', normal, compile_fail, [''])
test('tcfail184', normal, compile_fail, [''])
test('tcfail185', normal, compile_fail, [''])
@@ -332,7 +332,7 @@ test('ContextStack2', normal, compile, [''])
test('T8570', [], multimod_compile_fail, ['T8570', '-v0'])
test('T8603', normal, compile_fail, [''])
test('TcStaticPointersFail01', [], compile_fail, [''])
-test('TcStaticPointersFail02', [], compile_fail, [''])
+test('TcStaticPointersFail02', normalise_version('base'), compile_fail, [''])
test('TcStaticPointersFail03', [], compile_fail, [''])
test('T8806', normal, compile_fail, [''])
test('T8912', normal, compile_fail, [''])