tests/testthat/test-position_stack_keep.R

In aphalo/ggpp: Grammar Extensions to 'ggplot2'

context("position_stack_keep")

test_that("test vjust, reverse, x, y and kept.origin arguments", {
position <- position_stack_keep()
expect_identical(position$vjust, 1)
expect_identical(position$reverse, FALSE)
expect_identical(position$x, 0)
expect_identical(position$y, 0)
expect_identical(position$kept.origin, "original")
expect_identical(position$fill, FALSE)
})