Commit de424316 authored by simonpj's avatar simonpj

[project @ 2002-08-28 14:39:39 by simonpj]

Add a SOH read test
parent 291647cf
......@@ -2,6 +2,7 @@ test('char001', normal, compile_and_run, [''])
test('char002', normal, compile_and_run, [''])
test('rand001', normal, compile_and_run, [''])
test('read001', normal, compile_and_run, [''])
test('show001', normal, compile_and_run, [''])
test('text001', normal, compile_and_run, [''])
......
-- Test the classic "\SOH" ambiguity
module Main(main) where
main = do { print soh ; print (length (fst (head soh))) ;
print so ; print (length (fst (head so))) }
where
so, soh :: [(String,String)]
soh = reads "\"\\SOH\"" -- Should read \SOH
so = reads "\"\\SOx\"" -- Should read \SO followed by x
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