diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2015-10-22 13:34:30 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-10-22 13:38:55 +0200 |
| commit | c633f71f9b687dcb9154ffd558442193cbced0e3 (patch) | |
| tree | ebc6bf4dd3c17a73bb9b00087d3114caf9cd1650 /testsuite/tests | |
| parent | d77c4049607ab310076a271eb8d7aab42cbb87de (diff) | |
| download | haskell-c633f71f9b687dcb9154ffd558442193cbced0e3.tar.gz | |
Add another test for #10549
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/ghci/should_fail/T10549a.hs | 5 | ||||
| -rw-r--r-- | testsuite/tests/ghci/should_fail/T10549a.script | 1 | ||||
| -rw-r--r-- | testsuite/tests/ghci/should_fail/all.T | 1 |
3 files changed, 7 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/should_fail/T10549a.hs b/testsuite/tests/ghci/should_fail/T10549a.hs new file mode 100644 index 0000000000..8f442c73ef --- /dev/null +++ b/testsuite/tests/ghci/should_fail/T10549a.hs @@ -0,0 +1,5 @@ +{-# OPTIONS_GHC -O #-} +module Main(main) where +import GHC.Exts +main = print 1 +go (Ptr a) = a diff --git a/testsuite/tests/ghci/should_fail/T10549a.script b/testsuite/tests/ghci/should_fail/T10549a.script new file mode 100644 index 0000000000..fabd6685de --- /dev/null +++ b/testsuite/tests/ghci/should_fail/T10549a.script @@ -0,0 +1 @@ +:load T10549a.hs diff --git a/testsuite/tests/ghci/should_fail/all.T b/testsuite/tests/ghci/should_fail/all.T index cb46ac2f3b..188975a4b7 100644 --- a/testsuite/tests/ghci/should_fail/all.T +++ b/testsuite/tests/ghci/should_fail/all.T @@ -1,3 +1,4 @@ setTestOpts(when(compiler_profiled(), skip)) test('T10549', [], ghci_script, ['T10549.script']) +test('T10549a', [], ghci_script, ['T10549a.script']) |