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/tests/codeGen/should_run/T12855.hs | |
| 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/tests/codeGen/should_run/T12855.hs')
| -rw-r--r-- | testsuite/tests/codeGen/should_run/T12855.hs | 9 |
1 files changed, 9 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 () + |