More judicious #nocov, keep INTERNAL_STOP

Author: MichaelChirico

R/fwrite.R

@@ -17,14 +17,14 @@ fwrite = function(x, file="", append=FALSE, quote="auto",
            encoding = "") {
   na = as.character(na[1L]) # fix for #1725
   if (length(encoding) != 1L || !encoding %chin% c("", "UTF-8", "native")) {
-    stopf("Argument 'encoding' must be '', 'UTF-8' or 'native'.") # nocov
+    stopf("Argument 'encoding' must be '', 'UTF-8' or 'native'.")
   }
   qmethod = match.arg(qmethod)
   compress = match.arg(compress)
   dateTimeAs = match.arg(dateTimeAs)
-  dateTimeAs = chmatch(dateTimeAs, c("ISO", "squash", "epoch", "write.csv"))-1L
+  dateTimeAs = chmatch(dateTimeAs, c("ISO", "squash", "epoch", "write.csv")) - 1L
   if (!is.null(logicalAsInt)) {
-    stopf("logicalAsInt has been renamed logical01 for consistency with fread.") # nocov
+    stopf("logicalAsInt has been renamed logical01 for consistency with fread.")
   }
   scipen = if (is.numeric(scipen)) as.integer(scipen) else 0L
   buffMB = as.integer(buffMB)

inst/tests/tests.Rraw

@@ -10103,8 +10103,9 @@ test(1658.58, fwrite(DT), output='a,b\n1,0\\+1i\n2,-1-1i\n3,$')
 test(1658.59, fwrite(data.table(a=list('a')), verbose=TRUE),
      output='fields will be quoted if the field contains either sep.*sep2.*list column')
 test(1658.60, fwrite(data.table(r=as.raw(0))), error = "'raw' - not yet implemented")
-## naLen is bigger than col width for coverage, only execute
-fwrite(data.table(a="a"), na="VERY LONG MISSING VALUE STRING !", quote=FALSE, verbose=TRUE)
+## naLen is bigger than col width
+test(1658.61, fwrite(data.table(a="a"), na="VERY LONG MISSING VALUE STRING !", quote=FALSE, verbose=TRUE),
+     output="maxLineLen=66")
 
 options(oldverbose)
 ## End fwrite tests