Commit 985e3679 authored by Sergei Trofimovich's avatar Sergei Trofimovich
Browse files

testsuite: normalise integer library name for T8958

Signed-off-by: default avatarSergei Trofimovich <>
parent eac87286
......@@ -1596,10 +1596,8 @@ def normalise_errmsg( str ):
# The inplace ghc's are called ghc-stage[123] to avoid filename
# collisions, so we need to normalise that to just "ghc"
str = re.sub('ghc-stage[123]', 'ghc', str)
# We sometimes see the name of the integer-gmp package on stderr,
# but this can change (either the implementation name or the
# version number), so we canonicalise it here
str = re.sub('integer-[a-z]+', 'integer-impl', str)
# Error messages simetimes contain integer implementation package
str = re.sub('integer-(gmp|simple)-[0-9.]+', 'integer-<IMPL>-<VERSION>', str)
return str
# normalise a .prof file, so that we can reasonably compare it against
......@@ -17,7 +17,7 @@ INSTANCES
-- Defined at T8958.hs:10:10
Dependent modules: []
Dependent packages: [base-, ghc-prim-,
==================== Typechecker ====================
AbsBinds [a] []
......@@ -5,4 +5,4 @@ test('Roles4', only_ways('normal'), compile, ['-ddump-tc'])
test('Roles13', only_ways('normal'), compile, ['-ddump-simpl -dsuppress-uniques'])
test('Roles14', only_ways('normal'), compile, ['-ddump-tc'])
test('RolesIArray', only_ways('normal'), compile, [''])
test('T8958', only_ways('normal'), compile, ['-ddump-tc -dsuppress-uniques'])
test('T8958', [normalise_fun(normalise_errmsg), only_ways('normal')], compile, ['-ddump-tc -dsuppress-uniques'])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment