/usr/lib/R/site-library/BiocParallel/unitTests/test_bploop.R is in r-bioc-biocparallel 1.12.0-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | test_reducer_1 <- function() {
r <- BiocParallel:::.reducer()
checkIdentical(list(), r$value())
checkIdentical(list(1), { r$add(1, 1); r$value() })
checkIdentical(list(1, 2), { r$add(2, 2); r$value() })
checkIdentical(list(1, 2, 4), { r$add(4, 4); r$value() })
checkIdentical(list(1, 2, 3, 4), { r$add(3, 3); r$value() })
}
test_reducer_2 <- function() {
r <- BiocParallel:::.reducer(c)
checkIdentical(list(), r$value())
checkIdentical(c(1), { r$add(1, 1); r$value() })
checkIdentical(c(1, 2), { r$add(2, 2); r$value() })
checkIdentical(c(1, 2, 4), { r$add(4, 4); r$value() })
checkIdentical(c(1, 2, 4, 3), { r$add(3, 3); r$value() })
}
test_reducer_3 <- function() {
r <- BiocParallel:::.reducer(`+`, init=0)
checkIdentical(0, r$value())
checkIdentical(1, { r$add(1, 1); r$value() })
checkIdentical(3, { r$add(2, 2); r$value() })
checkIdentical(7, { r$add(4, 4); r$value() })
}
test_reducer_4 <- function() {
r <- BiocParallel:::.reducer(c, reduce.in.order=TRUE)
checkIdentical(list(), r$value())
checkIdentical(1, { r$add(1, 1); r$value() })
checkIdentical(c(1, 2), { r$add(2, 2); r$value() })
checkIdentical(TRUE, r$isComplete())
checkIdentical(c(1, 2), { r$add(4, 4); r$value() })
checkIdentical(FALSE, r$isComplete())
checkIdentical(c(1, 2, 3, 4), { r$add(3, 3); r$value() })
checkIdentical(TRUE, r$isComplete())
}
test_reducer_5 <- function() {
r <- BiocParallel:::.reducer(`+`, init=0, reduce.in.order=TRUE)
checkIdentical(0, r$value())
checkIdentical(1, { r$add(1, 1); r$value() })
checkIdentical(3, { r$add(2, 2); r$value() })
checkIdentical(TRUE, r$isComplete())
checkIdentical(3, { r$add(4, 4); r$value() })
checkIdentical(FALSE, r$isComplete())
checkIdentical(10, { r$add(3, 3); r$value() })
checkIdentical(TRUE, r$isComplete())
}
|