diff options
author | Ben Gamari <bgamari.foss@gmail.com> | 2017-04-23 14:03:46 (GMT) |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2017-04-23 15:05:48 (GMT) |
commit | f6eaf01c14960f9d600d5e4c743efc59c37bd4e3 (patch) | |
tree | da12a6f70134c8fa0f6ae7ec17d6bfadf1aa18c0 | |
parent | 317ceb41e1efe0566178090fa077c4e6f4f03f10 (diff) | |
download | ghc-f6eaf01c14960f9d600d5e4c743efc59c37bd4e3.zip ghc-f6eaf01c14960f9d600d5e4c743efc59c37bd4e3.tar.gz ghc-f6eaf01c14960f9d600d5e4c743efc59c37bd4e3.tar.bz2 |
testsuite: Add test for #13591
Reviewers: austin
Subscribers: rwbarton, thomie
GHC Trac Issues: #13591
Differential Revision: https://phabricator.haskell.org/D3470
-rw-r--r-- | testsuite/tests/ghci/scripts/T13591.script | 1 | ||||
-rw-r--r-- | testsuite/tests/ghci/scripts/T13591A.hs | 4 | ||||
-rw-r--r-- | testsuite/tests/ghci/scripts/T13591A.hs-boot | 2 | ||||
-rw-r--r-- | testsuite/tests/ghci/scripts/T13591B.hs | 4 | ||||
-rwxr-xr-x | testsuite/tests/ghci/scripts/all.T | 1 |
5 files changed, 12 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/T13591.script b/testsuite/tests/ghci/scripts/T13591.script new file mode 100644 index 0000000..1143153 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T13591.script @@ -0,0 +1 @@ +:l T13591A diff --git a/testsuite/tests/ghci/scripts/T13591A.hs b/testsuite/tests/ghci/scripts/T13591A.hs new file mode 100644 index 0000000..4d77e90 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T13591A.hs @@ -0,0 +1,4 @@ +module T13591A where +import Second +one :: Int +one = _ diff --git a/testsuite/tests/ghci/scripts/T13591A.hs-boot b/testsuite/tests/ghci/scripts/T13591A.hs-boot new file mode 100644 index 0000000..7f18059 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T13591A.hs-boot @@ -0,0 +1,2 @@ +module T13591A where +one :: Int diff --git a/testsuite/tests/ghci/scripts/T13591B.hs b/testsuite/tests/ghci/scripts/T13591B.hs new file mode 100644 index 0000000..25f348f --- /dev/null +++ b/testsuite/tests/ghci/scripts/T13591B.hs @@ -0,0 +1,4 @@ +module T13591B where +import {-# SOURCE #-} First +two :: Int +two = one + 1 diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T index cde72e4..16c9ab2 100755 --- a/testsuite/tests/ghci/scripts/all.T +++ b/testsuite/tests/ghci/scripts/all.T @@ -252,3 +252,4 @@ test('T13202', normal, ghci_script, ['T13202.script']) test('T13202a', normal, ghci_script, ['T13202a.script']) test('T13466', normal, ghci_script, ['T13466.script']) test('GhciCurDir', normal, ghci_script, ['GhciCurDir.script']) +test('T13591', expect_broken(13591), ghci_script, ['T13591.script']) |