inst/tests/test-ref.r

In robertzk/frost: Frost

context("ref")

test_that("it can retrieve the character representation of a reference", {
  expect_equal(as.character(ref(test)), "test")
})

test_that("the is.ref function works", {
  expect_true(is.ref(ref(test)))
})

test_that("it can convert a character to a reference", {
  expect_equal(as.character(ref("test")), "test")
})