From eb9bb602db4db517a297d15edbe02f5d16891544 Mon Sep 17 00:00:00 2001 From: Matt Dowle Date: Wed, 13 Apr 2016 04:30:29 -0700 Subject: [PATCH] fwrite 3rd attempt for windows #580 --- inst/tests/tests.Rraw | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/inst/tests/tests.Rraw b/inst/tests/tests.Rraw index 571cda2630..8006caef2c 100644 --- a/inst/tests/tests.Rraw +++ b/inst/tests/tests.Rraw @@ -8586,8 +8586,13 @@ local({ '"a";"b"\n"foo";"ba""r"\n') # changing eol - fwrite_test(1658.5, function(f) { fwrite(data.table(a="foo", b="bar"), f, eol="\r\n") }, + if (.Platform$OS.type=="linux") { + # can change eol on windows too; the only reason for running this test on linux only + # is that inside fwrite_test() on windows it gsub's '\r\n' in the result to '\n' + # for the other tests which have a fixed \n endings to compare to + fwrite_test(1658.5, function(f) { fwrite(data.table(a="foo", b="bar"), f, eol="\r\n") }, '"a","b"\r\n"foo","bar"\r\n') + } # changing NA fwrite_test(1658.51, function(f) { fwrite(data.table(a=c("foo", NA), b=c(1, NA)), f, na="NA") },