diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2016-11-21 13:42:15 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-11-21 13:42:16 -0500 |
| commit | 5bce207b61f105b3797d2be00dd1df2a28cbfab6 (patch) | |
| tree | 3baff64dac4493f82067c3bbb0f2d74239f552e1 /testsuite | |
| parent | ea37b837413e1de269e9f6dd9d70436a805b0a5c (diff) | |
| download | haskell-5bce207b61f105b3797d2be00dd1df2a28cbfab6.tar.gz | |
testsuite: Add test for #12855
Test Plan: Validate
Reviewers: austin
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D2731
GHC Trac Issues: #12855
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/codeGen/should_run/T12855.hs | 9 | ||||
| -rw-r--r-- | testsuite/tests/codeGen/should_run/all.T | 1 |
2 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/codeGen/should_run/T12855.hs b/testsuite/tests/codeGen/should_run/T12855.hs new file mode 100644 index 0000000000..6cc9f2f75b --- /dev/null +++ b/testsuite/tests/codeGen/should_run/T12855.hs @@ -0,0 +1,9 @@ +{- # OPTIONS_GHC -Wall -Werror #-} +module Main (main) where + +import qualified Data.ByteString as S +import qualified Data.ByteString.Char8 as S8 + +main :: IO () +main = (S8.concat (map S.singleton (S.unpack (S8.pack "<foo>"))) == S8.empty) `seq` return () + diff --git a/testsuite/tests/codeGen/should_run/all.T b/testsuite/tests/codeGen/should_run/all.T index 4e684483a6..8d58222a2d 100644 --- a/testsuite/tests/codeGen/should_run/all.T +++ b/testsuite/tests/codeGen/should_run/all.T @@ -147,3 +147,4 @@ test('PopCnt', omit_ways(['ghci']), multi_compile_and_run, test('T12059', normal, compile_and_run, ['']) test('T12433', normal, compile_and_run, ['']) test('T12757', normal, compile_and_run, ['']) +test('T12855', normal, compile_and_run, ['']) |