tests/testthat/test_exportbug.R

In foreach: Provides Foreach Looping Construct

context("Object export bug test")

test_that("do and dopar work", {
  mB <- c(1, 2, 1, 3, 4, 10)
  MO <- c("Full", "noYS", "noYZ", "noYSZS", "noS", "noZ",
          "noY", "justS", "justZ", "noSZ", "noYSZ")

  testouts <- foreach(i = seq_along(mB)) %do% {
    MO[mB[i]]
  }
  testouts2 <- foreach(i = seq_along(mB)) %dopar% {
    MO[mB[i]]
  }
  expect_identical(testouts, testouts2)
})