passing tests

Author: MichaelChirico

inst/tests/mergelist.Rraw

@@ -24,6 +24,8 @@ test(2.02, fdistinct(data.table(x=c(1L,1:2)), on="z", mult="last"), error="must
 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")
 local({
+  addresses = function(x) vapply(x, address, "")
+
   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())
@@ -36,10 +38,7 @@ local({
   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=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