tests/testthat/test_logd.R

context("logd")

test_that("logd produces a the matrix log", {
  expect_equal(logd(diag(rep(1, 4))), diag(rep(0, 4)))
})
BenBarnard/slidR documentation built on May 5, 2019, 2:40 p.m.