Commit 248ad303 authored by Ben Gamari's avatar Ben Gamari Committed by Ben Gamari
Browse files

testsuite: Add test for #14128

Reviewers: austin, goldfire

Subscribers: rwbarton, thomie

GHC Trac Issues: #14128

Differential Revision:
parent aed7d431
module T14128 where
import T14128Type
import {-# SOURCE #-} T14128a
instance Show AType where
show AType = "hello"
module T14128 where
import T14128Type
instance Show AType
module T14128Main where
import T14128
-- Overview:
-- * T14128Main is imports T14128
-- * T14128Type defines datatype MyType
-- * T14128 has a boot file and defines a orphan Show instance; it SOURCE
-- imports T14128
-- * T14128a has a boot file which SOURCE imports T14128
module T14128Type where
data AType = AType
module T14128a where
import {-# SOURCE #-} T14128
......@@ -571,5 +571,6 @@ test('T13881', normal, compile, [''])
test('T13915a', normal, multimod_compile, ['T13915a', '-v0'])
test('T13915b', normal, compile, [''])
test('T13984', normal, compile, [''])
test('T14128', normal, multimod_compile, ['T14128Main', '-v0'])
test('T14149', normal, compile, [''])
test('T14154', normal, compile, [''])
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