inst/unitTests/exportBugTest.R

In foreach: Provides Foreach Looping Construct for R

test01 <- function(){
	mB <- c(1,2,1,3,4,10)
	MO <- c("Full", "noYS", "noYZ", "noYSZS", "noS", "noZ", 
			"noY", "justS", "justZ", "noSZ", "noYSZ")

	testouts <- foreach(i = 1:length(mB)) %do% {
					  MO[mB[i]]
					  }
	testouts2 <- foreach(i = 1:length(mB)) %dopar% {
					  MO[mB[i]]
					  }
	checkEquals(testouts, testouts2)
}