extend tests

Author: ben-schwen

inst/tests/tests.Rraw

@@ -21687,16 +21687,45 @@ setDT(d3)
 test(2340.06, .selfref.ok(d3), TRUE)
 
 # implement comment.char argument in fread, #856
-test(2341.1, fread('a,b
+test(2341.01, fread('a,b
 #a comment
 1,2
 #another comment
 3,4', comment.char='#'), data.table(a=c(1L,3L), b=c(2L,4L)))
-test(2341.2, fread('a,b #line-trailing comment
+test(2341.02, fread('a,b #line-trailing comment
 1,2', comment.char='#'), data.table(a=1L, b=2L))
-test(2341.3, fread('a,b#line-trailing comment and no whitespace
+test(2341.03, fread('a,b#line-trailing comment and no whitespace
 1,2', comment.char='#'), data.table(a=1L, b=2L))
-test(2341.4, fread('a,b
+test(2341.04, fread('a,b
 1,2 #trailing after numeric', comment.char='#'), data.table(a=1L, b=2L))
-test(2341.5, fread('a
+test(2341.05, fread('a
 "#quotes#"', comment.char="#"), data.table(a="#quotes#"))
+test(2341.06, fread('# multi line
+# comment
+1,2
+# multi line
+# comment
+3,4
+# trailing comment', comment.char='#'), data.table(V1=c(1L,3L), V2=c(2L,4L)))
+test(2341.07, fread('id;value
+1;2,5! trailing comment
+2;NA
+!final comment', sep=';', dec=',', na.strings='NA', comment.char='!'), data.table(id=1:2, value=c(2.5, NA_real_)))
+test(2341.08, fread('meta line
+DATA STARTS
+x,y
+# skip this
+1,2', header=TRUE, skip="DATA", comment.char='#'), data.table(x=1L, y=2L))
+test(2341.09, fread('value
+  inline comment
+5', comment.char=' '), data.table(value=5L))
+test(2341.10, fread('a,b
+1,2" trailing"
+"comment line"
+3,4', comment.char='"', quote=""), data.table(a=c(1L,3L), b=c(2L,4L)))
+test(2341.11, fread('a,b
+## multichar commentchar
+1,2', comment.char = '##'), error = "comment.char= must be a single non-NA character")
+test(2341.12, fread('a,b
+NA,NA
+1,2', comment.char = NA), error = "comment.char= must be a single non-NA character")