diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-04-20 15:07:23 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-04-20 15:07:23 +0100 |
| commit | c958de128e15ff5302a1e2c7cd1b23622592d7c0 (patch) | |
| tree | f4b91645092423d88dd8cde53626bb3bb5cb5fbb /testsuite/tests | |
| parent | 9ce49f6cc09a2ea99fab2bdacbbcbadba3044ab8 (diff) | |
| download | haskell-c958de128e15ff5302a1e2c7cd1b23622592d7c0.tar.gz | |
Test Trac #5130
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/ghc-regress/ghci/scripts/T5130.script | 3 | ||||
| -rw-r--r-- | testsuite/tests/ghc-regress/ghci/scripts/T5130.stderr | 6 | ||||
| -rw-r--r-- | testsuite/tests/ghc-regress/ghci/scripts/all.T | 1 |
3 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/ghc-regress/ghci/scripts/T5130.script b/testsuite/tests/ghc-regress/ghci/scripts/T5130.script new file mode 100644 index 0000000000..cb4e9d0d6b --- /dev/null +++ b/testsuite/tests/ghc-regress/ghci/scripts/T5130.script @@ -0,0 +1,3 @@ +:set -XScopedTypeVariables +(\(x :: a, y :: a) -> [x, "hi"]) + diff --git a/testsuite/tests/ghc-regress/ghci/scripts/T5130.stderr b/testsuite/tests/ghc-regress/ghci/scripts/T5130.stderr new file mode 100644 index 0000000000..cf9e6b40ce --- /dev/null +++ b/testsuite/tests/ghc-regress/ghci/scripts/T5130.stderr @@ -0,0 +1,6 @@ + +<interactive>:1:27: + Couldn't match type `a' with `[Char]' + In the expression: "hi" + In the expression: [x, "hi"] + In the expression: (\ (x :: a, y :: a) -> [x, "hi"]) diff --git a/testsuite/tests/ghc-regress/ghci/scripts/all.T b/testsuite/tests/ghc-regress/ghci/scripts/all.T index e74cd90957..627adc91e5 100644 --- a/testsuite/tests/ghc-regress/ghci/scripts/all.T +++ b/testsuite/tests/ghc-regress/ghci/scripts/all.T @@ -74,3 +74,4 @@ test('T4127a', normal, ghci_script, ['T4127a.script']) test('T4316', reqlib('mtl'), ghci_script, ['T4316.script']) test('T4832', normal, ghci_script, ['T4832.script']) test('T5045', normal, ghci_script, ['T5045.script']) +test('T5130', normal, ghci_script, ['T5130.script']) |