Normalise GHC version number to make tests less fragile.
authorEdward Z. Yang <ezyang@cs.stanford.edu>
Fri, 22 Aug 2014 14:05:29 +0000 (15:05 +0100)
committerEdward Z. Yang <ezyang@cs.stanford.edu>
Fri, 22 Aug 2014 14:06:14 +0000 (15:06 +0100)
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
testsuite/tests/package/all.T
testsuite/tests/package/package06e.stderr
testsuite/tests/package/package07e.stderr
testsuite/tests/package/package08e.stderr

index cb30949..f2dc9dc 100644 (file)
@@ -7,6 +7,9 @@ incr_ghc = '-package "ghc (HsTypes as MyHsTypes, HsUtils)" '
 inc_ghc = '-package ghc '
 hide_ghc = '-hide-package ghc '
 
+def normaliseGhcVersion(str):
+    return re.sub('ghc-[0-9.]+', 'ghc-<VERSION>', str)
+
 test('package01',  normal, compile,      [hide_all + incr_containers])
 test('package01e', normal, compile_fail, [hide_all + incr_containers])
 test('package02',  normal, compile,      [hide_all + inc_containers + incr_containers])
@@ -14,8 +17,8 @@ test('package03',  normal, compile,      [hide_all + incr_containers + inc_conta
 test('package04',  normal, compile,      [incr_containers])
 test('package05',  normal, compile,      [incr_ghc + inc_ghc])
 test('package06',  normal, compile,      [incr_ghc])
-test('package06e', normal, compile_fail, [incr_ghc])
-test('package07e', normal, compile_fail, [incr_ghc + inc_ghc + hide_ghc])
-test('package08e', normal, compile_fail, [incr_ghc + hide_ghc])
+test('package06e', normalise_errmsg_fun(normaliseGhcVersion), compile_fail, [incr_ghc])
+test('package07e', normalise_errmsg_fun(normaliseGhcVersion), compile_fail, [incr_ghc + inc_ghc + hide_ghc])
+test('package08e', normalise_errmsg_fun(normaliseGhcVersion), compile_fail, [incr_ghc + hide_ghc])
 test('package09e', normal, compile_fail, ['-package "containers (Data.Map as M, Data.Set as M)"'])
 test('package10',  normal, compile,      ['-hide-all-packages -package "ghc (UniqFM as Prelude)" '])
index 05894ee..1cb27e3 100644 (file)
@@ -1,10 +1,10 @@
 
 package06e.hs:2:1:
     Failed to load interface for ‘HsTypes’
-    It is a member of the hidden package ‘ghc-7.9.20140821’.
+    It is a member of the hidden package ‘ghc-<VERSION>’.
     Use -v to see a list of the files searched for.
 
 package06e.hs:3:1:
     Failed to load interface for ‘UniqFM’
-    It is a member of the hidden package ‘ghc-7.9.20140821’.
+    It is a member of the hidden package ‘ghc-<VERSION>’.
     Use -v to see a list of the files searched for.
index 40eaa06..0e4a040 100644 (file)
@@ -2,20 +2,20 @@
 package07e.hs:2:1:
     Failed to load interface for ‘MyHsTypes’
     Perhaps you meant
-      HsTypes (needs flag -package-key ghc-7.9.20140821)
+      HsTypes (needs flag -package-key ghc-<VERSION>)
     Use -v to see a list of the files searched for.
 
 package07e.hs:3:1:
     Failed to load interface for ‘HsTypes’
-    It is a member of the hidden package ‘ghc-7.9.20140821’.
+    It is a member of the hidden package ‘ghc-<VERSION>’.
     Use -v to see a list of the files searched for.
 
 package07e.hs:4:1:
     Failed to load interface for ‘HsUtils’
-    It is a member of the hidden package ‘ghc-7.9.20140821’.
+    It is a member of the hidden package ‘ghc-<VERSION>’.
     Use -v to see a list of the files searched for.
 
 package07e.hs:5:1:
     Failed to load interface for ‘UniqFM’
-    It is a member of the hidden package ‘ghc-7.9.20140821’.
+    It is a member of the hidden package ‘ghc-<VERSION>’.
     Use -v to see a list of the files searched for.
index 7b5c2a8..975b4b9 100644 (file)
@@ -2,20 +2,20 @@
 package08e.hs:2:1:
     Failed to load interface for ‘MyHsTypes’
     Perhaps you meant
-      HsTypes (needs flag -package-key ghc-7.9.20140821)
+      HsTypes (needs flag -package-key ghc-<VERSION>)
     Use -v to see a list of the files searched for.
 
 package08e.hs:3:1:
     Failed to load interface for ‘HsTypes’
-    It is a member of the hidden package ‘ghc-7.9.20140821’.
+    It is a member of the hidden package ‘ghc-<VERSION>’.
     Use -v to see a list of the files searched for.
 
 package08e.hs:4:1:
     Failed to load interface for ‘HsUtils’
-    It is a member of the hidden package ‘ghc-7.9.20140821’.
+    It is a member of the hidden package ‘ghc-<VERSION>’.
     Use -v to see a list of the files searched for.
 
 package08e.hs:5:1:
     Failed to load interface for ‘UniqFM’
-    It is a member of the hidden package ‘ghc-7.9.20140821’.
+    It is a member of the hidden package ‘ghc-<VERSION>’.
     Use -v to see a list of the files searched for.