polish test fun

ben-schwen · ben-schwen · commit 5e1789dd3c98 · 2025-11-02T15:37:37.000+01:00
diff --git a/R/test.data.table.R b/R/test.data.table.R
@@ -379,17 +379,16 @@ test = function(num,x,y=TRUE,error=NULL,warning=NULL,message=NULL,output=NULL,no
       for (p in vector_params) {
         val = get(p, envir=environment())
         if (length(val) > 0L) {
-          cl[[p]] = val[((i - 1L) %% length(val)) + 1L] # ccycle through values if fewer than levels
+          cl[[p]] = val[((i - 1L) %% length(val)) + 1L] # cycle through values if fewer than levels
         }
       }
 
       if (compare && i == 1L) cl$y = eval(cl$x, parent.frame())
-      eval(cl, parent.frame())
+      eval(cl, parent.frame()) # actual test call
     }
     return(invisible())
   }
 
-  # print(match.call())
   if (!is.null(env)) {
     old = Sys.getenv(names(env), names=TRUE, unset=NA)
     to_unset = !lengths(env)

Original file line number	Diff line number	Diff line change
`@@ -379,17 +379,16 @@ test = function(num,x,y=TRUE,error=NULL,warning=NULL,message=NULL,output=NULL,no`
`379`	`379`	`for (p in vector_params) {`
`380`	`380`	`val = get(p, envir=environment())`
`381`	`381`	`if (length(val) > 0L) {`
`382`		`- cl[[p]] = val[((i - 1L) %% length(val)) + 1L] # ccycle through values if fewer than levels`
	`382`	`+ cl[[p]] = val[((i - 1L) %% length(val)) + 1L] # cycle through values if fewer than levels`
`383`	`383`	`}`
`384`	`384`	`}`
`385`	`385`
`386`	`386`	`if (compare && i == 1L) cl$y = eval(cl$x, parent.frame())`
`387`		`- eval(cl, parent.frame())`
	`387`	`+ eval(cl, parent.frame()) # actual test call`
`388`	`388`	`}`
`389`	`389`	`return(invisible())`
`390`	`390`	`}`
`391`	`391`
`392`		`- # print(match.call())`
`393`	`392`	`if (!is.null(env)) {`
`394`	`393`	`old = Sys.getenv(names(env), names=TRUE, unset=NA)`
`395`	`394`	`to_unset = !lengths(env)`