updated test

Author: venom1204

inst/tests/tests.Rraw

@@ -10977,8 +10977,8 @@ test(1732.7, fwrite(DT, quote='auto'), output='A,B\n,5\nNA,7\n"",0\nmonty,')
 test(1732.8, fwrite(DT, quote='auto', na="NA"), output='A,B\nNA,5\n"NA",7\n"",0\n"monty",NA')
 
 # dec=","
-test(1733.1, fwrite(data.table(pi),dec=",", file=nullfile()), NULL)
-test(1733.2, fwrite(data.table(c(1.2,-8.0,pi,67.99),1:4),dec=",",sep=";"),
+# Test 1733.1 removed, see #7227
+test(1733.1, fwrite(data.table(c(1.2,-8.0,pi,67.99),1:4),dec=",",sep=";"),
            output="V1;V2\n1,2;1\n-8;2\n3,14159265358979;3\n67,99;4")
 
 # fwrite implied and actual row.names
@@ -21596,5 +21596,6 @@ test(2336.6, all.equal(t2 - as.Date(t1), t2 - t1))
 
 # fwrite: allow dec=',' with single column, #7227
 test(2337.1, fwrite(data.table(1), dec = ",", file = nullfile()), NULL)
-test(2337.2, fwrite(data.table(1, 2), dec = ",", sep = ","), error = "(NCOL(x) <= 1L || dec != sep) is not TRUE")
+if (getRversion() >= "4.0.0") {
+test(2337.2, fwrite(data.table(1, 2), dec = ",", sep = ","), error = "dec and sep must be distinct for multi-column tables")}
 test(2337.3, fwrite(data.table(c(0.1, 0.2)), dec = ",", sep = "\t", file = nullfile()), NULL)