fix testnum

Author: ben-schwen

R/fread.R

@@ -64,7 +64,7 @@ yaml=FALSE, tmpdir=tempdir(), tz="UTC")
     input_is_con = TRUE
     file = NULL
   }
-  if (!input_is_con && is.null(cmd)) {
+  if (!input_is_con && is.null(cmd) && is.null(text)) {
     if (!is.character(input) || length(input)!=1L) {
       stopf("input= must be a single character string containing a file name, a system command containing at least one space, a URL starting 'http[s]://', 'ftp[s]://' or 'file://', or, the input data itself containing at least one \\n or \\r")
     }

inst/tests/tests.Rraw

@@ -21868,4 +21868,4 @@ f = testDir("russellCRLF.csv")
 test(2346.1, fread(file(f, "r")), fread(f))
 test(2346.2, fread(file(f, "r"), nrows=0L), fread(f, nrows=0L))
 test(2346.3, fread(file(f, "r"), nrows=5), fread(f, nrows=5))
-test(2346.3, fread(file(f, "r"), nrows=5, header=FALSE), fread(f, nrows=5, header=FALSE))
+test(2346.4, fread(file(f, "r"), nrows=5, header=FALSE), fread(f, nrows=5, header=FALSE))