tests/test_set_seed.R

In reclin2: Record Linkage Toolkit

expect_equal <- function(x, y) {
  stopifnot(isTRUE(all.equal(x, y)))
}

library(reclin2)

# distribute_over_cluster sets the seed to ensure that for a given dataset
# the records are distributed the same way over a cluster when called 
# multiple times. However we don't want to mess up the seed set by the user
# so we reset the seed. Below we check if this is done correctly

set.seed(2)
d1 <- reclin2:::distribute_over_cluster(100, 4)
a1 <- runif(5)
d2 <- reclin2:::distribute_over_cluster(100, 4)
a2 <- runif(5)

set.seed(2)
a1_a2 <- runif(10)

expect_equal(c(a1, a2), a1_a2)
expect_equal(d1, d2)