@@ -7,9 +7,9 @@ import qualified Data.ByteString.Lazy as BL
77import qualified Data.Text as T
88import qualified Data.Text.Encoding as TE
99import qualified DataFrame as D
10+ import DataFrame.IO.CSV (fromCsv , fromCsvBytes )
1011import qualified DataFrame.Internal.Column as DI
1112import DataFrame.Internal.DataFrame (DataFrame (.. ), toCsv )
12- import DataFrame.IO.CSV (fromCsv , fromCsvBytes )
1313import qualified DataFrame.Operations.Core as D
1414import Test.HUnit (
1515 Test (TestCase , TestLabel ),
@@ -56,7 +56,10 @@ fromCsvRoundTrip = TestLabel "fromCsv_roundTrip" $ TestCase $ do
5656 case result of
5757 Left err -> assertFailure $ " Unexpected Left: " ++ err
5858 Right df' -> do
59- assertEqual " round trip dimensions" (dataframeDimensions df) (dataframeDimensions df')
59+ assertEqual
60+ " round trip dimensions"
61+ (dataframeDimensions df)
62+ (dataframeDimensions df')
6063 assertEqual " round trip data" df df'
6164
6265-- | Round trip via fromCsvBytes.
@@ -69,7 +72,10 @@ fromCsvBytesRoundTrip = TestLabel "fromCsvBytes_roundTrip" $ TestCase $ do
6972 ]
7073 let bs = BL. fromStrict (TE. encodeUtf8 (toCsv df))
7174 df' <- fromCsvBytes bs
72- assertEqual " round trip dimensions" (dataframeDimensions df) (dataframeDimensions df')
75+ assertEqual
76+ " round trip dimensions"
77+ (dataframeDimensions df)
78+ (dataframeDimensions df')
7379
7480-- | Single column CSV.
7581fromCsvSingleColumn :: Test
0 commit comments