local() testing

Author: MichaelChirico

inst/tests/mergelist.Rraw

@@ -13,6 +13,7 @@ if (exists("test.data.table", .GlobalEnv, inherits=FALSE)) {
   forderv = data.table:::forderv
 }
 
+addresses = function(x) vapply(x, address, "")
 copied = function(ans, l) {
   all(!addresses(ans) %chin% unlist(recursive=FALSE, lapply(l, addresses)))
 }
@@ -36,8 +37,6 @@ 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())
@@ -131,183 +130,195 @@ test(13.4, cbindlist(list(data.table(a=1:2), data.table(b=3:4, key="b"))), data.
 ## test copy-ness argument in mergepair
 
 ### LHS equal to RHS: no copy in all cases
-num = 21.000
-l = list(
-  lhs = data.table(id1=1:2, v1=1:2),
-  rhs = data.table(id1=1:2, v2=1:2)
-)
-expected = data.table(id1=1:2, v1=1:2, v2=1:2)
-for (how in c("inner","left","right","full")) {
-  num = trunc(num*10)/10 + 0.1
-  for (mult in c("all","first","last","error")) {
-    num = trunc(num*100)/100 + 0.01
-    test(num<-num+0.001, ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=TRUE), expected) ## copy=TRUE: no shared columns
-    test(num<-num+0.001, copied(ans, l))
-    test(num<-num+0.001, ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=FALSE), expected) ## copy=FALSE: LHS shared but no RHS
-    test(num<-num+0.001, notcopied(ans, l, how=how))
+local({
+  l = list(
+    lhs = data.table(id1=1:2, v1=1:2),
+    rhs = data.table(id1=1:2, v2=1:2)
+  )
+  expected = data.table(id1=1:2, v1=1:2, v2=1:2)
+  frac = 0.0
+  for (how in c("inner", "left", "right", "full")) {
+    frac = frac + 0.1
+    for (mult in c("all", "first", "last", "error")) {
+      frac = frac + 0.01
+      test(21 + (frac <- frac + 0.001), ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=TRUE), expected) ## copy=TRUE: no shared columns
+      test(21 + (frac <- frac + 0.001), copied(ans, l))
+      test(21 + (frac <- frac + 0.001), ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=FALSE), expected) ## copy=FALSE: LHS shared but no RHS
+      test(21 + (frac <- frac + 0.001), notcopied(ans, l, how=how))
+    }
   }
-}
+})
+
 ### RHS includes LHS: no copy in inner, left, right
-num = 22.000
-unless = "full"
-l = list(
-  lhs = data.table(id1=1:2, v1=1:2),
-  rhs = data.table(id1=1:3, v2=1:3)
-)
-expected = list(
-  inner = data.table(id1=1:2, v1=1:2, v2=1:2),
-  left = data.table(id1=1:2, v1=1:2, v2=1:2),
-  right = data.table(id1=1:3, v1=c(1:2,NA), v2=1:3),
-  full = data.table(id1=1:3, v1=c(1:2,NA), v2=1:3)
-)
-for (how in c("inner","left","right","full")) {
-  num = trunc(num*10)/10 + 0.1
-  for (mult in c("all","first","last","error")) {
-    num = trunc(num*100)/100 + 0.01
-    test(num<-num+0.001, ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=TRUE), expected[[how]])
-    test(num<-num+0.001, copied(ans, l))
-    test(num<-num+0.001, ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=FALSE), expected[[how]])
-    test(num<-num+0.001, notcopied(ans, l, how=how, unless=unless))
+local({
+  l = list(
+    lhs = data.table(id1=1:2, v1=1:2),
+    rhs = data.table(id1=1:3, v2=1:3)
+  )
+  expected = list(
+    inner = data.table(id1=1:2, v1=1:2, v2=1:2),
+    left = data.table(id1=1:2, v1=1:2, v2=1:2),
+    right = data.table(id1=1:3, v1=c(1:2,NA), v2=1:3),
+    full = data.table(id1=1:3, v1=c(1:2,NA), v2=1:3)
+  )
+  frac = 0.0
+  for (how in c("inner", "left", "right", "full")) {
+    frac = frac + 0.1
+    for (mult in c("all", "first", "last", "error")) {
+      frac = frac + 0.01
+      test(22 + (frac <- frac + 0.001), ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=TRUE), expected[[how]])
+      test(22 + (frac <- frac + 0.001), copied(ans, l))
+      test(22 + (frac <- frac + 0.001), ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=FALSE), expected[[how]])
+      test(22 + (frac <- frac + 0.001), notcopied(ans, l, how=how, unless="full"))
+    }
   }
-}
+})
+
 ### LHS includes RHS: no copy in left, right, full
-num = 23.000
-unless = "inner"
-l = list(
-  lhs = data.table(id1=1:3, v1=1:3),
-  rhs = data.table(id1=1:2, v2=1:2)
-)
-expected = list(
-  inner = data.table(id1=1:2, v1=1:2, v2=1:2),
-  left = data.table(id1=1:3, v1=1:3, v2=c(1:2,NA)),
-  right = data.table(id1=1:2, v1=1:2, v2=1:2),
-  full = data.table(id1=1:3, v1=1:3, v2=c(1:2,NA))
-)
-for (how in c("inner","left","right","full")) {
-  num = trunc(num*10)/10 + 0.1
-  for (mult in c("all","first","last","error")) {
-    num = trunc(num*100)/100 + 0.01
-    test(num<-num+0.001, ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=TRUE), expected[[how]])
-    test(num<-num+0.001, copied(ans, l))
-    test(num<-num+0.001, ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=FALSE), expected[[how]])
-    test(num<-num+0.001, notcopied(ans, l, how=how, unless=unless))
+local({
+  l = list(
+    lhs = data.table(id1=1:3, v1=1:3),
+    rhs = data.table(id1=1:2, v2=1:2)
+  )
+  expected = list(
+    inner = data.table(id1=1:2, v1=1:2, v2=1:2),
+    left = data.table(id1=1:3, v1=1:3, v2=c(1:2,NA)),
+    right = data.table(id1=1:2, v1=1:2, v2=1:2),
+    full = data.table(id1=1:3, v1=1:3, v2=c(1:2,NA))
+  )
+  frac = 0.0
+  for (how in c("inner", "left", "right", "full")) {
+    frac = frac + 0.1
+    for (mult in c("all", "first", "last", "error")) {
+      frac = frac + 0.01
+      test(23 + (frac <- frac + 0.001), ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=TRUE), expected[[how]])
+      test(23 + (frac <- frac + 0.001), copied(ans, l))
+      test(23 + (frac <- frac + 0.001), ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=FALSE), expected[[how]])
+      test(23 + (frac <- frac + 0.001), notcopied(ans, l, how=how, unless="inner"))
+    }
   }
-}
+})
+
 ### LHS single nonmatch RHS on both sides: no copy in left, right
-num = 24.000
-unless = c("inner","full")
-l = list(
-  lhs = data.table(id1=3:1, v1=1:3),
-  rhs = data.table(id1=c(4L,2:1), v2=1:3)
-)
-expected = list(
-  inner = data.table(id1=2:1, v1=2:3, v2=2:3),
-  left = data.table(id1=3:1, v1=1:3, v2=c(NA,2:3)),
-  right = data.table(id1=c(4L,2:1), v1=c(NA,2:3), v2=1:3),
-  full = data.table(id1=c(3:1,4L), v1=c(1:3,NA), v2=c(NA,2:3,1L))
-)
-for (how in c("inner","left","right","full")) {
-  num = trunc(num*10)/10 + 0.1
-  for (mult in c("all","first","last","error")) {
-    num = trunc(num*100)/100 + 0.01
-    test(num<-num+0.001, ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=TRUE), expected[[how]])
-    test(num<-num+0.001, copied(ans, l))
-    test(num<-num+0.001, ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=FALSE), expected[[how]])
-    test(num<-num+0.001, notcopied(ans, l, how=how, unless=unless))
+local({
+  l = list(
+    lhs = data.table(id1=3:1, v1=1:3),
+    rhs = data.table(id1=c(4L,2:1), v2=1:3)
+  )
+  expected = list(
+    inner = data.table(id1=2:1, v1=2:3, v2=2:3),
+    left = data.table(id1=3:1, v1=1:3, v2=c(NA,2:3)),
+    right = data.table(id1=c(4L,2:1), v1=c(NA,2:3), v2=1:3),
+    full = data.table(id1=c(3:1,4L), v1=c(1:3,NA), v2=c(NA,2:3,1L))
+  )
+  frac = 0.0
+  for (how in c("inner", "left", "right", "full")) {
+    frac = frac + 0.1
+    for (mult in c("all", "first", "last", "error")) {
+      frac = frac + 0.01
+      test(24 + (frac <- frac + 0.001), ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=TRUE), expected[[how]])
+      test(24 + (frac <- frac + 0.001), copied(ans, l))
+      test(24 + (frac <- frac + 0.001), ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=FALSE), expected[[how]])
+      test(24 + (frac <- frac + 0.001), notcopied(ans, l, how=how, unless=c("inner", "full")))
+    }
   }
-}
+})
+
 ### LHS zero match RHS: no copy in left, right
-num = 25.000
-unless = c("inner","full")
-l = list(
-  lhs = data.table(id1=2:1, v1=1:2),
-  rhs = data.table(id1=3:4, v2=1:2)
-)
-expected = list(
-  inner = data.table(id1=integer(), v1=integer(), v2=integer()),
-  left = data.table(id1=2:1, v1=1:2, v2=c(NA_integer_,NA)),
-  right = data.table(id1=3:4, v1=c(NA_integer_,NA), v2=1:2),
-  full = data.table(id1=c(2:1,3:4), v1=c(1:2,NA,NA), v2=c(NA,NA,1:2))
-)
-for (how in c("inner","left","right","full")) {
-  num = trunc(num*10)/10 + 0.1
-  for (mult in c("all","first","last","error")) {
-    num = trunc(num*100)/100 + 0.01
-    test(num<-num+0.001, ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=TRUE), expected[[how]])
-    test(num<-num+0.001, copied(ans, l))
-    test(num<-num+0.001, ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=FALSE), expected[[how]])
-    test(num<-num+0.001, notcopied(ans, l, how=how, unless=unless))
+local({
+  l = list(
+    lhs = data.table(id1=2:1, v1=1:2),
+    rhs = data.table(id1=3:4, v2=1:2)
+  )
+  expected = list(
+    inner = data.table(id1=integer(), v1=integer(), v2=integer()),
+    left = data.table(id1=2:1, v1=1:2, v2=c(NA_integer_,NA)),
+    right = data.table(id1=3:4, v1=c(NA_integer_,NA), v2=1:2),
+    full = data.table(id1=c(2:1,3:4), v1=c(1:2,NA,NA), v2=c(NA,NA,1:2))
+  )
+  for (how in c("inner", "left", "right", "full")) {
+    frac = frac + 0.1
+    for (mult in c("all", "first", "last", "error")) {
+      frac = frac + 0.01
+      test(25 + (frac <- frac + 0.001), ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=TRUE), expected[[how]])
+      test(25 + (frac <- frac + 0.001), copied(ans, l))
+      test(25 + (frac <- frac + 0.001), ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=FALSE), expected[[how]])
+      test(25 + (frac <- frac + 0.001), notcopied(ans, l, how=how, unless=c("inner", "full")))
+    }
   }
-}
+})
+
 ### LHS and RHS zero nrow: no copies
-num = 26.000
-unless = character()
-l = list(
-  lhs = data.table(id1=integer(), v1=integer()),
-  rhs = data.table(id1=integer(), v2=integer())
-)
-expected = list(
-  inner = data.table(id1=integer(), v1=integer(), v2=integer()),
-  left = data.table(id1=integer(), v1=integer(), v2=integer()),
-  right = data.table(id1=integer(), v1=integer(), v2=integer()),
-  full = data.table(id1=integer(), v1=integer(), v2=integer())
-)
-for (how in c("inner","left","right","full")) {
-  num = trunc(num*10)/10 + 0.1
-  for (mult in c("all","first","last","error")) {
-    num = trunc(num*100)/100 + 0.01
-    test(num<-num+0.001, ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=TRUE), expected[[how]])
-    test(num<-num+0.001, copied(ans, l))
-    test(num<-num+0.001, ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=FALSE), expected[[how]])
-    test(num<-num+0.001, notcopied(ans, l, how=how, unless=unless))
+local({
+  l = list(
+    lhs = data.table(id1=integer(), v1=integer()),
+    rhs = data.table(id1=integer(), v2=integer())
+  )
+  expected = list(
+    inner = data.table(id1=integer(), v1=integer(), v2=integer()),
+    left = data.table(id1=integer(), v1=integer(), v2=integer()),
+    right = data.table(id1=integer(), v1=integer(), v2=integer()),
+    full = data.table(id1=integer(), v1=integer(), v2=integer())
+  )
+  for (how in c("inner", "left", "right", "full")) {
+    frac = frac + 0.1
+    for (mult in c("all", "first", "last", "error")) {
+      frac = frac + 0.01
+      test(26 + (frac <- frac + 0.001), ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=TRUE), expected[[how]])
+      test(26 + (frac <- frac + 0.001), copied(ans, l))
+      test(26 + (frac <- frac + 0.001), ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=FALSE), expected[[how]])
+      test(26 + (frac <- frac + 0.001), notcopied(ans, l, how=how))
+    }
   }
-}
+})
+
 ### LHS has zero nrow: no copies
-num = 27.000
-unless = character()
-l = list(
-  lhs = data.table(id1=integer(), v1=integer()),
-  rhs = data.table(id1=2:1, v2=1:2)
-)
-expected = list(
-  inner = data.table(id1=integer(), v1=integer(), v2=integer()),
-  left = data.table(id1=integer(), v1=integer(), v2=integer()),
-  right = data.table(id1=2:1, v1=c(NA_integer_,NA), v2=1:2),
-  full = data.table(id1=2:1, v1=c(NA_integer_,NA), v2=1:2)
-)
-for (how in c("inner","left","right","full")) {
-  num = trunc(num*10)/10 + 0.1
-  for (mult in c("all","first","last","error")) {
-    num = trunc(num*100)/100 + 0.01
-    test(num<-num+0.001, ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=TRUE), expected[[how]])
-    test(num<-num+0.001, copied(ans, l))
-    test(num<-num+0.001, ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=FALSE), expected[[how]])
-    test(num<-num+0.001, notcopied(ans, l, how=how, unless=unless))
+local({
+  l = list(
+    lhs = data.table(id1=integer(), v1=integer()),
+    rhs = data.table(id1=2:1, v2=1:2)
+  )
+  expected = list(
+    inner = data.table(id1=integer(), v1=integer(), v2=integer()),
+    left = data.table(id1=integer(), v1=integer(), v2=integer()),
+    right = data.table(id1=2:1, v1=c(NA_integer_,NA), v2=1:2),
+    full = data.table(id1=2:1, v1=c(NA_integer_,NA), v2=1:2)
+  )
+  for (how in c("inner", "left", "right", "full")) {
+    frac = frac + 0.1
+    for (mult in c("all", "first", "last" ,"error")) {
+      frac = frac + 0.01
+      test(27 + (frac <- frac + 0.001), ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=TRUE), expected[[how]])
+      test(27 + (frac <- frac + 0.001), copied(ans, l))
+      test(27 + (frac <- frac + 0.001), ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=FALSE), expected[[how]])
+      test(27 + (frac <- frac + 0.001), notcopied(ans, l, how=how))
+    }
   }
-}
+})
+
 ### RHS has zero nrow
-num = 28.000
-unless = "inner"
-l = list(
-  lhs = data.table(id1=2:1, v1=1:2),
-  rhs = data.table(id1=integer(), v2=integer())
-)
-expected = list(
-  inner = data.table(id1=integer(), v1=integer(), v2=integer()),
-  left = data.table(id1=2:1, v1=1:2, v2=c(NA_integer_,NA)),
-  right = data.table(id1=integer(), v1=integer(), v2=integer()),
-  full = data.table(id1=2:1, v1=1:2, v2=c(NA_integer_,NA))
-)
-for (how in c("inner","left","right","full")) {
-  num = trunc(num*10)/10 + 0.1
-  for (mult in c("all","first","last","error")) {
-    num = trunc(num*100)/100 + 0.01
-    test(num<-num+0.001, ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=TRUE), expected[[how]])
-    test(num<-num+0.001, copied(ans, l))
-    test(num<-num+0.001, ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=FALSE), expected[[how]])
-    test(num<-num+0.001, notcopied(ans, l, how=how, unless=unless))
+local({
+  l = list(
+    lhs = data.table(id1=2:1, v1=1:2),
+    rhs = data.table(id1=integer(), v2=integer())
+  )
+  expected = list(
+    inner = data.table(id1=integer(), v1=integer(), v2=integer()),
+    left = data.table(id1=2:1, v1=1:2, v2=c(NA_integer_,NA)),
+    right = data.table(id1=integer(), v1=integer(), v2=integer()),
+    full = data.table(id1=2:1, v1=1:2, v2=c(NA_integer_,NA))
+  )
+  for (how in c("inner", "left", "right", "full")) {
+    frac = frac + 0.1
+    for (mult in c("all", "first", "last", "error")) {
+      frac = frac + 0.01
+      test(28 + (frac <- frac + 0.001), ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=TRUE), expected[[how]])
+      test(28 + (frac <- frac + 0.001), copied(ans, l))
+      test(28 + (frac <- frac + 0.001), ans <- mergepair(l$lhs, l$rhs, on="id1", how=how, mult=mult, copy=FALSE), expected[[how]])
+      test(28 + (frac <- frac + 0.001), notcopied(ans, l, how=how, unless="inner"))
+    }
   }
-}
+})
 
 ## fdistinct, another round