Commit 787e93ae authored by Ben Gamari's avatar Ben Gamari 🐢

testsuite: Add testcase for #18733

parent 5506f134
module Library where
data A = ARecu B | ABase String deriving (Show)
data B = BRecu A | BBase Int deriving (Show)
info :: B
info = BBase 1
module Library where
data A = ARecu B | ABase String deriving (Show)
data B = BRecu A | BBase Int deriving (Show)
info :: A
info = ABase "Hello"
module Main where
import Library
main = putStrLn $ show info
TOP=../../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
T18733:
cp Library1.hs Library.hs
'$(TEST_HC)' -v0 -o Main Library.hs Main.hs
./Main
cp Library2.hs Library.hs
'$(TEST_HC)' -v0 -o Main Library.hs Main.hs
./Main
srcs = ['Library1.hs', 'Library2.hs', 'Main.hs']
test('T18733', extra_files(srcs), makefile_test, [])
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