@@ -124,7 +124,7 @@ let ``Can create type for small document``() =
124124
125125[<Test>]
126126let ``CsvFile.Rows is re - entrant if the underlying stream is`` () =
127- let csv = CsvFile.Load( Path.Combine(__ SOURCE_ DIRECTORY__, " Data/SmallTest.csv" ))
127+ let csv = CsvFile.Load( Path.Combine(__ SOURCE_ DIRECTORY__, " Data/SmallTest.csv" ))
128128 let twice = [ yield ! csv.Rows; yield ! csv.Rows ]
129129 twice |> Seq.length |> should equal 6
130130
@@ -465,7 +465,8 @@ let ``Parse single row with trailing newline``() =
465465let ``Parse two rows`` () =
466466 let rows = SimpleWithStrCsv.ParseRows( " false,abc, 31\n true, def, 42" )
467467 rows.Length |> should equal 2
468- ( new SimpleWithStrCsv( rows)) .SaveToString() |> should equal ( " Column1,ColumnB,Column3" + Environment.NewLine + " false,abc,31" + Environment.NewLine + " true, def,42" + Environment.NewLine)
468+ ( new SimpleWithStrCsv( rows)) .SaveToString() |> should equal ( " Column1,ColumnB,Column3" + " \r\n " + " false,abc,31" + " \r\n " + " true, def,42" + " \r\n " )
469+ // (new SimpleWithStrCsv(rows)).SaveToString() |> should equal ("Column1,ColumnB,Column3" + Environment.NewLine + "false,abc,31" + Environment.NewLine + "true, def,42" + Environment.NewLine)
469470
470471let [<Literal>] csvWithDataEndingWithSeparator = """
471472Name|Company |Email|Password
0 commit comments