Update inst/tests/other.Rraw

ben-schwen · web-flow · commit e15ec87f0272 · 2024-11-10T12:30:28.000+01:00
diff --git a/inst/tests/other.Rraw b/inst/tests/other.Rraw
@@ -767,7 +767,7 @@ if (loaded[["nanotime"]]) {
   test(31, fwrite(data.table(as.nanotime(.POSIXct(0))), dec=',', sep=';'), output="1970-01-01T00:00:00,000000000Z")
 }
 
-# test for bug#6607
+# tables() with large environment #6607
 .e <- new.env() ## to not populate the .GlobalEnv
 .e[["DT"]] <- as.data.table(lapply(1:15,function(i) runif(20e6)))
 res <- tables(env=.e)

Original file line number	Diff line number	Diff line change
`@@ -767,7 +767,7 @@ if (loaded[["nanotime"]]) {`
`767`	`767`	`test(31, fwrite(data.table(as.nanotime(.POSIXct(0))), dec=',', sep=';'), output="1970-01-01T00:00:00,000000000Z")`
`768`	`768`	`}`
`769`	`769`
`770`		`-# test for bug#6607`
	`770`	`+# tables() with large environment #6607`
`771`	`771`	`.e <- new.env() ## to not populate the .GlobalEnv`
`772`	`772`	`.e[["DT"]] <- as.data.table(lapply(1:15,function(i) runif(20e6)))`
`773`	`773`	`res <- tables(env=.e)`