@@ -5,6 +5,8 @@ import System.Exit
55import System.IO.Temp
66import qualified Data.Map as M
77import System.IO
8+import qualified Data.ByteString as BS
9+import qualified Data.Text.Encoding as TE
810
911main :: IO ()
1012main = do
@@ -14,7 +16,7 @@ main = do
1416testTutdImport :: Test
1517testTutdImport = TestCase $
1618 withSystemTempFile "m.tutd" $ \tempPath handle -> do
17− hPutStrLn handle "x:=relation{tuple{a 5,b \"spam\"}}; y:=relation{tuple{b \"漢字\"}}"
19+ BS.hPut handle (TE.encodeUtf8 "x:=relation{tuple{a 5,b \"spam\"}}; y:=relation{tuple{b \"漢字\"}}")
1820 hClose handle
1921 let expectedExpr = MultipleExpr [
2022 Assign "x" (MakeRelationFromExprs Nothing