tests/testthat/test-compute_npcx.R

In ggpp: Grammar Extensions to 'ggplot2'

context("compute_npcx")

test_that("character input value returns correct numeric value", {
  expect_equal(compute_npcx("right"), 0.95)
  expect_equal(compute_npcx("left"), 0.05)
  expect_equal(compute_npcx(c("left", "right")), c(0.05, 0.95))
  expect_equal(compute_npcx("centre"), 0.5)
  expect_equal(compute_npcx("center"), 0.5)
  expect_equal(compute_npcx("middle"), 0.5)
  expect_equal(compute_npcx("bottom"), NA)
})

test_that("factor input values returns correct numeric value", {
  x <- factor(c("right", "left"))
  expect_equal(compute_npcx(x), c(0.95, 0.05))

})

test_that("numeric input value returns the same value if
          between 0 and 1", {
  x <- c(0.5, 1)
  expect_equal(compute_npcx(x), x)
})

test_that("numeric input value
          returns 0 if less than 0,
          returns 1 if greater than 1", {
            x <- c(-0.5, 2)
            expect_equal(compute_npcx(x), c(0,1))
          })

test_that("Value is returned 'AsIs'", {
  expect_is(as_npcx("right"), "AsIs")
  expect_equal(as_npcx("right"), I(0.95))
  expect_equal(as_npcx("left"), I(0.05))
  expect_equal(as_npcx("centre"), I(0.5))
  expect_equal(as_npcx("center"), I(0.5))
})