inst/tests/test_get_description.R

In mslegrand/pegr: PEG PARSER

library(testthat)

 

context("get_description")

 

test_that("GET_DESCRIPTION",
{
   pegR<-new.parser()
   pegR<-add_rule(pegR, "A<-'a'")
   txt<-"recognizes 'a'"
   pegR<-set_description(pegR, "A", txt)
   txt2<-get_description(pegR, "A")
   expect_equal(txt, txt2)
})