Commit d3900034 authored by a's avatar a

Tests for trac#1344

parent ac0c5544
module T1344a where
a = "Hel\x6c000000000000000 World"
b = "Hel\x6c0000000000000000 World"
c = '\1114112'
T1344a.hs:3:16:
numeric escape sequence out of range at character '0'
module T1344b where
b = "Hel\x6c0000000000000000 World"
T1344b.hs:3:16:
numeric escape sequence out of range at character '0'
T1344c.hs:3:13:
numeric escape sequence out of range at character '2'
......@@ -60,3 +60,6 @@ test('T3751', normal, compile_fail, [''])
test('position001', normal, compile_fail, [''])
test('position002', normal, compile_fail, [''])
test('T1344a', normal, compile_fail, [''])
test('T1344b', normal, compile_fail, [''])
test('T1344c', normal, compile_fail, [''])
-- Just new test. This would work without the bug being fixed.
a = '\x10ffff'
b = "Hello\x000000002c\32World\o00000000000000000000000000000000041"
c = "♯\00\&00\0"
main = do print a
putStrLn b
print c
'\1114111'
Hello, World!
"\9839\NUL00\NUL"
......@@ -2,3 +2,4 @@ test('readRun001', normal, compile_and_run, [''])
test('readRun002', normal, compile_and_run, [''])
test('readRun003', normal, compile_and_run, [''])
test('readRun004', expect_broken_for(1257, ['ghci']), compile_and_run, [''])
test('T1344', 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