tests/testthat/test-pc_set.R

In pmcharrison/hrep: Harmony Representations

context("pc_set")

test_that("various", {
  expect_is(
    pc_set(c(0, 4, 7)),
    "pc_set"
  )
  expect_equal(
    pc_set(c(0, 4, 7)),
    pc_set(c(4, 7, 0))
  )
  expect_error(
    suppressWarnings(pc_set("cat"))
  )
  expect_equal(
    as.integer(pc_set(c(7, 3, 2))),
    c(2, 3, 7)
  )
  expect_is(
    as.integer(pc_set(c(5, 6, 7))),
    "integer"
  )
  expect_is(
    as.numeric(pc_set(c(5, 6, 7))),
    "numeric"
  )
})