tests/testthat/test-utils.R

In njtierney/brolgar: Browse Over Longitudinal Data Graphically and Analytically in R

test_that("pct works", {
  expect_equal(pct(0.1), c("q_10"))
  expect_equal(pct(0.2), c("q_20"))
  expect_equal(pct(0.3), c("q_30"))
  expect_equal(pct(0.99), c("q_99"))
})

q_vec <- c(1:100)

test_that("qtl works",  {
  expect_equal(as.numeric(qtl(q_vec, 0.25)), 
               quantile(q_vec, 0.25, names = FALSE))
  
  expect_equal(names(qtl(q_vec, 0.25)), 
               "q_25")
  
  expect_equal(as.numeric(qtl(q_vec, c(0.25,0.50))),
               quantile(q_vec, c(0.25,0.50), names = FALSE))
  
  expect_equal(names(qtl(q_vec, c(0.25,0.50))),
               c("q_25", "q_50"))
  
  expect_equal(as.numeric(qtl(q_vec, seq(0.25,0.5, by = 0.05))),
               quantile(q_vec, seq(0.25,0.5, by = 0.05), names = FALSE))
  
  expect_equal(names(qtl(q_vec, seq(0.25,0.5, by = 0.05))),
               c("q_25", "q_30", "q_35", "q_40", "q_45", "q_50"))

})

test_that("test_if_null returns different error messages",{
  expect_error(test_if_null(NULL))
  expect_error(test_if_null(NULL), regexp = "must not be NULL")
  expect_error(test_if_null(NULL,
                            message = "wat even is this"), 
               regexp = "even is this")
})