1context("Object export bug test")
2
3test_that("do and dopar work", {
4  mB <- c(1, 2, 1, 3, 4, 10)
5  MO <- c("Full", "noYS", "noYZ", "noYSZS", "noS", "noZ",
6          "noY", "justS", "justZ", "noSZ", "noYSZ")
7
8  testouts <- foreach(i = seq_along(mB)) %do% {
9    MO[mB[i]]
10  }
11  testouts2 <- foreach(i = seq_along(mB)) %dopar% {
12    MO[mB[i]]
13  }
14  expect_identical(testouts, testouts2)
15})