local() approach in tests

Author: MichaelChirico

inst/tests/mergelist.Rraw

@@ -23,29 +23,35 @@ test(2.01, fdistinct(list(x=c(1L,1:2), b=1:2), on="x", mult="last"), error="must
 test(2.02, fdistinct(data.table(x=c(1L,1:2)), on="z", mult="last"), error="must be character column names of")
 test(2.03, fdistinct(data.table(x=c(1L,1:2)), on="x", mult="last", cols=character()), error="must be non-zero length, non-NA, integer or character columns of")
 test(2.04, fdistinct(data.table(x=c(1L,1:2, y=1:3)), on="x", mult="last", copy=NA), error="must be TRUE or FALSE")
-d = data.table(x=1:2, y=1:2)
-test(2.05, ans<-fdistinct(d, on="x", mult="last"), d)
-test(2.06, intersect(addresses(ans), addresses(d)), character())
-test(2.07, ans<-fdistinct(d, on="x", mult="last", copy=FALSE), d)
-test(2.08, addresses(ans), addresses(d))
-d = data.table(x=c(2:1,2L), y=1:3)
-test(2.09, fdistinct(d, on="x", mult="first"), data.table(x=2:1, y=1:2))
-test(2.10, fdistinct(d, on="x", mult="last"), data.table(x=1:2, y=2:3))
-setattr(attr(setattr(d, "index", integer()), "index", TRUE), "__x", forderv(d, "x", retGrp=TRUE)) ## retGrp=T index #4386
-test(2.11, fdistinct(d, on="x", mult="first"), data.table(x=2:1, y=1:2))
+local({
+  d = data.table(x=1:2, y=1:2)
+  test(2.05, ans<-fdistinct(d, on="x", mult="last"), d)
+  test(2.06, intersect(addresses(ans), addresses(d)), character())
+  test(2.07, ans<-fdistinct(d, on="x", mult="last", copy=FALSE), d)
+  test(2.08, addresses(ans), addresses(d))
+})
+local({
+  d = data.table(x=c(2:1,2L), y=1:3)
+  test(2.09, fdistinct(d, on="x", mult="first"), data.table(x=2:1, y=1:2))
+  test(2.10, fdistinct(d, on="x", mult="last"), data.table(x=1:2, y=2:3))
+  setattr(attr(setattr(d, "index", integer()), "index", TRUE), "__x", forderv(d, "x", retGrp=TRUE)) ## retGrp=T index #4386
+  test(2.11, fdistinct(d, on="x", mult="first"), data.table(x=2:1, y=1:2))
+})
 
-test(3.01, hasindex(d, "x"))
-test(3.02, hasindex(d, "x", retGrp=TRUE))
-setattr(attr(setattr(d, "index", integer()), "index", TRUE), "__x", forderv(d, "x"))              ## retGrp=F index #4386
-test(3.03, hasindex(d, "x"))
-test(3.04, !hasindex(d, "x", retGrp=TRUE))
-setattr(d, "index", NULL)
-test(3.05, !hasindex(d, "x"))
-test(3.06, !hasindex(d, "x", retGrp=TRUE))
-setattr(d, "index", integer())
-test(3.07, !hasindex(d, "x"))
-test(3.08, !hasindex(d, "x", retGrp=TRUE))
-rm(d)
+local({
+  d = data.table(x=c(2:1,2L), y=1:3)
+  test(3.01, hasindex(d, "x"))
+  test(3.02, hasindex(d, "x", retGrp=TRUE))
+  setattr(attr(setattr(d, "index", integer()), "index", TRUE), "__x", forderv(d, "x"))              ## retGrp=F index #4386
+  test(3.03, hasindex(d, "x"))
+  test(3.04, !hasindex(d, "x", retGrp=TRUE))
+  setattr(d, "index", NULL)
+  test(3.05, !hasindex(d, "x"))
+  test(3.06, !hasindex(d, "x", retGrp=TRUE))
+  setattr(d, "index", integer())
+  test(3.07, !hasindex(d, "x"))
+  test(3.08, !hasindex(d, "x", retGrp=TRUE))
+})
 
 # cbindlist, setcbindlist