dec= test

Author: MichaelChirico

inst/tests/tests.Rraw

@@ -21571,13 +21571,14 @@ test(2335.6, isoyear(as.Date("2019-12-30")), 2020L)
 dd = data.table(x=c(1, 2, 3))
 di = data.table(x=c(1L, 2L, 3L))
 test(2336.1, capture.output(fwrite(dd, forceDecimal=TRUE)), c("x", "1.", "2.", "3."))
-test(2336.2, capture.output(fwrite(dd, forceDecimal=FALSE)), c("x", "1", "2", "3"))
-test(2336.3, capture.output(fwrite(di, forceDecimal=TRUE)), c("x", "1", "2", "3"))
-test(2336.4, capture.output(fwrite(data.table(x=c(0.)), forceDecimal=TRUE)), c("x", "0."))
-test(2336.5, capture.output(fwrite(data.table(x=c(-0.)), forceDecimal=TRUE)), c("x", "0."))
+test(2336.2, capture.output(fwrite(dd, forceDecimal=TRUE, dec=",", sep="\t")), c("x", "1,", "2,", "3,"))
+test(2336.3, capture.output(fwrite(dd, forceDecimal=FALSE)), c("x", "1", "2", "3"))
+test(2336.4, capture.output(fwrite(di, forceDecimal=TRUE)), c("x", "1", "2", "3"))
+test(2336.5, capture.output(fwrite(data.table(x=c(0.)), forceDecimal=TRUE)), c("x", "0."))
+test(2336.6, capture.output(fwrite(data.table(x=c(-0.)), forceDecimal=TRUE)), c("x", "0."))
 # round trip
 local({
   f <- tempfile(); on.exit(unlink(f))
-  test(2336.6, {fwrite(dd, f, forceDecimal=TRUE); fread(f)}, dd)
-  test(2336.7, {fwrite(dd, f, forceDecimal=FALSE); fread(f)}, di)
+  test(2336.7, {fwrite(dd, f, forceDecimal=TRUE); fread(f)}, dd)
+  test(2336.8, {fwrite(dd, f, forceDecimal=FALSE); fread(f)}, di)
 })