tests/testthat/test-helpers.R

context("helpers")

x <- prec_mean(1:12, 1, 100)




test_that("printing works", {
  expect_error(capture.output(print(x)), regexp = NA)
  cap <- capture.output(print(x))
  expect_true(grepl("Output truncated at 10 of 12 rows", cap[length(cap)]))

  y <- prec_rate(3, 10, method = "score")
  cap <- capture.output(print(y))
  expect_true(grepl("^NOTE", cap[length(cap)-1]))
})


test_that("as.data.frame works", {
  y <- as.data.frame(x)
  expect_equal(nrow(y), 12)
  expect_equal(ncol(y), 7)
  expect_equal(class(y), "data.frame")
  expect_equal(attr(y, "method"), "precision for mean")
})


test_that("as.matrix works", {
  y <- as.matrix(x)
  expect_equal(dim(y), c(12, 7))
  # expect_equal(class(y), "matrix")
  expect_equal(attr(y, "method"), "precision for mean")
})

Try the presize package in your browser

Any scripts or data that you put into this service are public.

presize documentation built on March 7, 2023, 8:28 p.m.