diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-04-23 14:17:40 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-05-23 22:35:54 -0400 |
| commit | 0b449d3415543771779a74f8d867eb1a4748ddb2 (patch) | |
| tree | fc917663973a0d334c5a1f065020f68f543c5da0 | |
| parent | 04b4b98447c36a2d28fffe819c97c32b591479ee (diff) | |
| download | haskell-0b449d3415543771779a74f8d867eb1a4748ddb2.tar.gz | |
Add a test for #16597
3 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/overloadedrecflds/should_compile/T16597.hs b/testsuite/tests/overloadedrecflds/should_compile/T16597.hs new file mode 100644 index 0000000000..c5f5c9e4f1 --- /dev/null +++ b/testsuite/tests/overloadedrecflds/should_compile/T16597.hs @@ -0,0 +1,5 @@ +module T16597 where + +import T16597a (distinct) + +showDistinct = show . distinct diff --git a/testsuite/tests/overloadedrecflds/should_compile/T16597a.hs b/testsuite/tests/overloadedrecflds/should_compile/T16597a.hs new file mode 100644 index 0000000000..987fb1a441 --- /dev/null +++ b/testsuite/tests/overloadedrecflds/should_compile/T16597a.hs @@ -0,0 +1,5 @@ +{-# LANGUAGE DuplicateRecordFields #-} + +module T16597a where + +data Record = Record { distinct :: String } diff --git a/testsuite/tests/overloadedrecflds/should_compile/all.T b/testsuite/tests/overloadedrecflds/should_compile/all.T index 6146615045..d375d468f2 100644 --- a/testsuite/tests/overloadedrecflds/should_compile/all.T +++ b/testsuite/tests/overloadedrecflds/should_compile/all.T @@ -1,2 +1,3 @@ test('T11173', [], multimod_compile, ['T11173', '-v0']) test('T12609', normal, compile, ['']) +test('T16597', [], multimod_compile, ['T16597', '-v0']) |