tests/testthat/test-name_of_test_file.R

In fcheysson/mypkg: What the Package Does (One Line, Title Case)

test_that("is a matrix", {
  A = matrix(1:4, 2, 2)
  B = matrix(4:1, 2, 2)
  expect_that(matrix_mult(A, B), is_a("matrix"))
})

test_that("has good dimension", {
  A = matrix(1:28, 4, 7)
  B = matrix(101:121, 7, 3)
  expect_equal(dim(matrix_mult(A, B)), c(4, 3))
})

test_that("matrix multiplication works", {
  A = matrix(1:4, 2, 2)
  B = matrix(4:1, 2, 2)
  C = matrix(c(13, 20, 5, 8), 2, 2, byrow = FALSE)
  expect_equal(matrix_mult(A, B), C)
})

test_that("is a matrix CPP", {
  A = matrix(1:4, 2, 2)
  B = matrix(4:1, 2, 2)
  expect_that(matrix_mult_cpp(A, B), is_a("matrix"))
})

test_that("has good dimension CPP", {
  A = matrix(1:28, 4, 7)
  B = matrix(101:121, 7, 3)
  expect_equal(dim(matrix_mult_cpp(A, B)), c(4, 3))
})

test_that("matrix multiplication works CPP", {
  A = matrix(1:4, 2, 2)
  B = matrix(4:1, 2, 2)
  C = matrix(c(13, 20, 5, 8), 2, 2, byrow = FALSE)
  expect_equal(matrix_mult_cpp(A, B), C)
})