on master help sign in
add multibyte UTF-8 test to CSV import/export
90c48ffAgentM
test/Relation/Export/CSV.hs+1−1
@@ -70,7 +70,7 @@ testCSVExport = TestCase $ do
70 listCons TextAtomType [TextAtom "text1", TextAtom "text2"],
70 listCons TextAtomType [TextAtom "text1", TextAtom "text2"],
71 testInterval
71 testInterval
72 ],
72 ],
73− [TextAtom "second text atom",
73+ [TextAtom "second text atom with 漢字",
74 IntegerAtom 314,
74 IntegerAtom 314,
75 DayAtom (fromGregorian 1001 6 28),
75 DayAtom (fromGregorian 1001 6 28),
76 DateTimeAtom (addUTCTime 360 now),
76 DateTimeAtom (addUTCTime 360 now),