[commit: ghc] master: testsuite: Add testcase for #12158 (983e491)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/983e491927a461457cc587197ce1644746db894b/ghc

>---------------------------------------------------------------

commit 983e491927a461457cc587197ce1644746db894b
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Fri Jan 26 12:55:25 2018 -0500

    testsuite: Add testcase for #12158
    
    Subscribers: rwbarton, thomie, carter
    
    Differential Revision: https://phabricator.haskell.org/D4334


>---------------------------------------------------------------

983e491927a461457cc587197ce1644746db894b
 testsuite/tests/ghci/scripts/T12158.script | 2 ++
 testsuite/tests/ghci/scripts/all.T         | 1 +
 2 files changed, 3 insertions(+)

diff --git a/testsuite/tests/ghci/scripts/T12158.script b/testsuite/tests/ghci/scripts/T12158.script
new file mode 100644
index 0000000..d18f360
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T12158.script
@@ -0,0 +1,2 @@
+data Stock = Stock {name :: String, ric :: String, price :: Float} deriving (Show)
+price Stock{name=name,ric=ric,price=price} = price
diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index e453591..ced4841 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -245,6 +245,7 @@ test('T12091', [extra_run_opts('-fobject-code')], ghci_script,
      ['T12091.script'])
 test('T12523', normal, ghci_script, ['T12523.script'])
 test('T12024', normal, ghci_script, ['T12024.script'])
+test('T12158', expect_broken(12158), ghci_script, ['T12158.script'])
 test('T12447', expect_broken(12447), ghci_script, ['T12447.script'])
 test('T10249', normal, ghci_script, ['T10249.script'])
 test('T12550', normal, ghci_script, ['T12550.script'])