/usr/lib/R/site-library/ShortRead/unitTests/test_SRVector.R is in r-bioc-shortread 1.36.0-1.
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 | test_SRVector_construction <- function() {
check <- function(srv, cls, len) {
checkTrue(validObject(srv))
checkEquals(cls, vclass(srv))
checkEquals(len, length(srv))
}
check(SRVector(vclass="numeric"), "numeric", 0)
check(SRVector(1), "numeric", 1)
checkException(SRVector(),silent=TRUE)
checkException(SRVector("a", vclass="numeric"), silent=TRUE)
checkException(SRVector(1, "a"), silent=TRUE)
}
|