ditto

MichaelChirico · web-flow · commit 73aa74764fdf · 2025-02-10T10:29:34.000-08:00
diff --git a/R/test.data.table.R b/R/test.data.table.R
@@ -495,7 +495,7 @@ test = function(num,x,y=TRUE,error=NULL,warning=NULL,message=NULL,output=NULL,no
       fail = TRUE
       # nocov end
     }
-    if (length(notOutput) && string_match(notOutput, out, ignore.case=TRUE) && !foreign) {
+    if (length(notOutput) && !foreign && string_match(notOutput, out, ignore.case=TRUE)) {
       # nocov start
       catf("Test %s produced output but should not have:\n", numStr)
       catf("Expected absent (case insensitive): <<%s>>\n", encodeString(notOutput))

Original file line number	Diff line number	Diff line change
`@@ -495,7 +495,7 @@ test = function(num,x,y=TRUE,error=NULL,warning=NULL,message=NULL,output=NULL,no`
`495`	`495`	`fail = TRUE`
`496`	`496`	`# nocov end`
`497`	`497`	`}`
`498`		`- if (length(notOutput) && string_match(notOutput, out, ignore.case=TRUE) && !foreign) {`
	`498`	`+ if (length(notOutput) && !foreign && string_match(notOutput, out, ignore.case=TRUE)) {`
`499`	`499`	`# nocov start`
`500`	`500`	`catf("Test %s produced output but should not have:\n", numStr)`
`501`	`501`	`catf("Expected absent (case insensitive): <<%s>>\n", encodeString(notOutput))`