tests/testthat/test-Pct.R

In jpmarindiaz/homodatum: Data types for humans

test_that("Pct is well defined", {

  # Pct
  x <- new_Pct(c(seq(0, 1, length.out = 4), NA))
  x
  str(x)

  #Pct(NULL)
  Pct(NA)

  # Accepts anything coercible from double()
  x <- Pct(c("1","0.2"))
  x
  y <- Pct(c("100%","20%")) # If there is at least 1 %
  y
  expect_equal(x,y)
  x <- c("30 (%)", "(%)200", NA)
  expect_equal(vctrs::vec_data(Pct(x)), c(0.3, 2, NA))

  expect_error(Pct(c("100%", "20"))) # All must have the % symbol
  expect_error(Pct(c("d%", "20 (%)", "(%) 32", "1 %", "e%"))) # All must have numbers
  expect_error(Pct("#4"))

  a <- data.frame(percent = Pct(c(1:10)/100))
 tibble::tibble(a)


  # TODO CHECK COERCION WITH DOUBLES
  # # Casts: Pct to Nu
  # # check implementation of coercion
  # vctrs::vec_ptype_show(Pct(), double(), Pct())
  #
  # vctrs::vec_cast(0.5, Pct())
  # vctrs::vec_cast(Pct(0.5), double())
  #
  # vctrs::vec_c(Pct(0.5), 1)
  # vctrs::vec_c(NA, Pct(0.5), 1)
  # # vctrs::vec_c(TRUE, Pct(0.5), 1)
})