Commit 8adef36c authored by Ömer Sinan Ağacan's avatar Ömer Sinan Ağacan

Add test for #16038

parent 6d2f6df3
module A where
import B
data HsExpr id
= HsOverLit (HsOverLit id)
| HsBracketOut (HsExpr id)
deriving Eq
module A where
data HsExpr i
instance Eq i => Eq (HsExpr i)
module B where
import {-# SOURCE #-} A (HsExpr)
data HsOverLit id
= OverLit (HsExpr id)
deriving Eq
TOP=../../../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
T16038:
'$(TEST_HC)' $(TEST_HC_OPTS) -O -c A.hs-boot
'$(TEST_HC)' $(TEST_HC_OPTS) -O -c B.hs
# All `fEqHsExpr` bindings should be in one recursive group:
'$(TEST_HC)' $(TEST_HC_OPTS) -O -c A.hs -ddump-simpl -dsuppress-all | \
grep -e "^\$$fEqHsExpr" -e "Rec"
Rec {
$fEqHsExpr_$c/=
$fEqHsExpr_$c/=
$fEqHsExpr
$fEqHsExpr
$fEqHsExpr_$c==
$fEqHsExpr_$c==
end Rec }
test('T16038',
[extra_files(['A.hs', 'A.hs-boot', 'B.hs'])],
run_command,
['$MAKE -s --no-print-directory T16038'])
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