Add the very simple test program
[packages/utf8-string.git] / tests / BenchBytestring.hs
1 import qualified Data.ByteString as BS
2 import qualified Data.ByteString.Char8 as Char8
3 import qualified Data.ByteString.UTF8 as UTF8
4 import qualified Codec.Binary.UTF8.String as List
5
6 main = main1
7
8 main1 = do txt <- BS.readFile "test"
9 print (UTF8.length txt)
10
11 main2 = do txt <- readFile "test"
12 print (length $ List.decodeString txt)
13