inst/tests/test-rBind.R

In jrnold/yakf: Yet another Kalman Filter package

context("test rBind")

test_that("x = MatrixList, y = MatrixList works", {
  expected <- MatrixList(Matrix(c(1, 3)), Matrix(c(2, 4)))
  expect_equivalent(rBind(MatrixList(Matrix(1), Matrix(2)),
                          MatrixList(Matrix(3), Matrix(4))),
                    expected)
})

test_that("x = MatrixList, y = Matrix works", {
  expected <- MatrixList(Matrix(c(1, 3)),
                         Matrix(c(2, 3)))
  expect_equivalent(rBind(MatrixList(Matrix(1), Matrix(2)), Matrix(3)), 
                    expected)
})

test_that("x = Matrix, y = MatrixList works", {
  expected <- MatrixList(Matrix(c(1, 3)),
                         Matrix(c(1, 4)))
  expect_equivalent(rBind(Matrix(1), MatrixList(Matrix(3), Matrix(4))),
                    expected)
})