tests/testthat/test-getYamlFromComments.r

In rappster/yamlr: Processes YAML markup

##------------------------------------------------------------------------------
context("getYamlFromComments/basics")
##------------------------------------------------------------------------------

test_that("getYamlFromComments/basics", {
  
  from <- function() {
    ## object-ref: {id: x_1, where:.GlobalEnv, as: ref_1}
  }
  expect_is(res <- getYamlFromComments(
    from = from,
    ctx = YamlContext.ObjectReference.S3()
    ), 
    "ObjectReferenceYaml.S3"
  )
  expect_equal(res$original, "object-ref: {id: x_1, where:.GlobalEnv, as: ref_1}")
  expect_equal(res$index, 2)
  expect_equal(body(res$src)[[2]], "object-ref: {id: x_1, where:.GlobalEnv, as: ref_1}")
  
})

##------------------------------------------------------------------------------
context("getYamlFromComments/messed up")
##------------------------------------------------------------------------------


test_that("getYamlFromComments/messed up", {
  
#   pattern <- YamlContext.ObjectReference.S3()$pattern
#   
#   grep(pattern, "## object-ref:   {id:    x_1, where: where, as: ref_x_1}")
#   grep(pattern, "## object-ref:  {id: x_1, where:    where, as: ref_x_1}")
  
  expect_is(res <- getYamlFromComments(
    from = function() {
      ## object-ref:     {id: x_1, where:  where, as: ref_x_1}
   
      ## Do something with the references //
      ref_x_1 * 2
    },
    ctx = YamlContext.ObjectReference.S3()
    ), 
    "ObjectReferenceYaml.S3"
  )
  expect_equal(res$original, "object-ref:     {id: x_1, where:  where, as: ref_x_1}")
  expect_equal(res$index, 2)
  expect_equal(body(res$src)[[2]], "object-ref:     {id: x_1, where:  where, as: ref_x_1}")

})