Fix some more tests on Win64
[packages/base.git] / tests / reads001.hs
1 -- Test the classic "\SOH" ambiguity
2
3 module Main(main) where
4
5 main = do { print soh ; print (length (fst (head soh))) ;
6 print so ; print (length (fst (head so))) }
7 where
8 so, soh :: [(String,String)]
9 soh = reads "\"\\SOH\"" -- Should read \SOH
10 so = reads "\"\\SOx\"" -- Should read \SO followed by x