Revision 04bbc417cf2927b827660bc07743429783569aec authored by HwB on 10 February 2013, 00:00:00 UTC, committed by Gabor Csardi on 10 February 2013, 00:00:00 UTC
1 parent 0e3ae6b
Raw File
dot.R
###
### dot.R  +++ Test suite +++
###


test.dot <- function(input, expected) {
   output <- do.call(getFromNamespace("dot", "pracma"), input)
   identical(output, expected)
}

dot.expected.empty <- 0
dot.expected.55 <- 55
dot.expected.t55 <- 55
dot.expected.mm <- c(26, 44)
dot.expected.00 <- 0
dot.expected.neg <- -2

test.dot(list(x=c(), y=c()), dot.expected.empty)
test.dot(list(x=1:5, y=1:5), dot.expected.55)
test.dot(list(x=1:5, y=t(t(1:5))), dot.expected.t55)
test.dot(list(x=matrix(c(1,3,2,4), 2, 2), y=matrix(c(5,7,6,8), 2, 2)),
         dot.expected.mm)
test.dot(list(x=c(0, 0), y=c(1, 2)), dot.expected.00)
test.dot(list(x=c(1, 1), y=c(-1, -1)), dot.expected.neg)
back to top