tests/testthat/test-whisker_get_all.r

In decisionpatterns/whisker.tools: Extensions and Enhancements to the 'whisker' package

library(testthat)
library(env.tools)

context( "whisker_get_all" )
test_that( "whisker_get_all", { 
tmpl <- "A is {{a}}; z is {{z}}"

  NEWENV <- env( a=1, z=26 )
  attach( NEWENV )

# BASIC TEST
  if( exists('x') ) rm(x)
  x <- whisker_get_all( tmpl )
  expect_equivalent( list2env(x), NEWENV )


# CLOBBER
  NEWERENV <- new.env() 
  NEWERENV$a <- "passed"
  attach( NEWERENV, warn.conflicts = FALSE  )

# BASIC TESTS
  if( exists('x') ) rm(x)
  x <- whisker_get_all(tmpl)
  expect_equivalent( list2env(x), env( a="passed", z=26 ) )
  
  rm( NEWENV, NEWERENV )  # Still on search path


# IN FUNCTION
  f <- function( template ) whisker_get_all( template ) 
  f( tmpl )
  expect_equivalent( f(tmpl), list( a = "passed", z = 26) )

# DOES `get` WORK IN .GlobalEnv ?
  f <- function() get("a", .GlobalEnv )
  expect_equivalent( f(), "passed" )


# ... IN .parent.frame ?
  f <- function() get("a", parent.frame() )
  expect_equivalent( f(), "passed" )


# ... DEFAULT ?
  f <- function() get( "a" )
  expect_equivalent( f(), "passed" )
  

# DOES whisker_get_all WHEN USING sourced?
  if( exists('x') ) rm(x)
  source( "source-me.r", local = TRUE  )
  expect_equal( x$a, "passed" )
  expect_equal( x$z, 26 )


# MISSING VALUES
  expect_warning( x <- whisker_get_all("{{foo}}") )
  expect_true( is.na( x$foo ) )


# Clean-up 
  detach( NEWENV )
  detach( NEWERENV )
  if( exists('x') ) rm(x)
  if( exists('f2') ) rm(f2)

  })