inst/tests/test-parse_field.R

In robertzk/refclass: Refactor of R reference classes

context('parse_field')
library(testthatsomemore)

test_that('it errors when a non-1 length field value gets passed', {
  expect_error(parse_field('foo', c('a','b')), "single class name is needed")
})

test_that('it errors when a non-existent class gets passed', {
  expect_error(parse_field('foo','bar', environment()),  "Class .* for field .* is not defined")
})

test_that('it creates an unitializedField prototype for ANY field classes', {
  expect_equal(as.character(class(parse_field('foo', 'ANY')[[2]])), 'uninitializedField') 
})

test_that('it creates an activeBindingFunction when the field value is a function', {
  pending()
})

test_that("it errors when neither a character nor function was passed as a field value", {
  expect_error(parse_field("foo", 1, environment()), "must be a class name or a binding function")
})