Commit 5bce207b authored by Ben Gamari's avatar Ben Gamari Committed by Ben Gamari
Browse files

testsuite: Add test for #12855

Test Plan: Validate

Reviewers: austin

Subscribers: thomie

Differential Revision:

GHC Trac Issues: #12855
parent ea37b837
{- # 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 ()
......@@ -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, [''])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment