tests/rot90.R

In matlab: 'MATLAB' Emulation Package

###
### $Id: rot90.R 22 2022-05-30 18:03:47Z proebuck $
###


##-----------------------------------------------------------------------------
test.rot90 <- function(input, expected) {
    output <- do.call(getFromNamespace("rot90", "matlab"), input)
    identical(output, expected)
}

X.mat <- matrix(1:9, nrow = 3, byrow = TRUE)
rot90.expected.X.mat  <- matrix(c(3:1, 6:4, 9:7), nrow = 3)
rot180.expected.X.mat <- matrix(c(9:7, 6:4, 3:1), nrow = 3, byrow = TRUE)
rot270.expected.X.mat <- matrix(c(7:9, 4:6, 1:3), nrow = 3)
rot360.expected.X.mat <- X.mat

test.rot90(list(A = X.mat, k = 1), rot90.expected.X.mat)
test.rot90(list(A = X.mat, k = 2), rot180.expected.X.mat)
test.rot90(list(A = X.mat, k = 3), rot270.expected.X.mat)
test.rot90(list(A = X.mat, k = 4), rot360.expected.X.mat)