inst/tests/test_set_rule.R

In mslegrand/pegr: PEG PARSER

library(testthat)

context("test_set_rule")

 

# test_that("SET_RULE",
# {
# expect_equal(0,1)
#    peg<-new.parser()
#    # Add rule A to recognize 'a' and return list('A') as it's value
#    add_rule(peg, "A<-'a'", act="list('A')")
#    value(apply_rule(peg, 'A', 'a', exe=TRUE))
#    set_rule(peg, "A<-'b'")
#    # Now A will only recognize 'b', so it will now fail on input 'a'
#    status(apply_rule(peg, 'A', 'a', exe=TRUE))
#    # However, A not recognizes b, but still returs list('A') as it's value
#    value(apply_rule(peg, 'A', 'b', exe=TRUE))
# })



test_that("[<-.PEGR def",
{
  #add rule A
   peg<-new.parser()
   peg<-peg + "A<-'a'"
   inspect_rule(peg,'A')->rs
   expect_equal(rs$name,"A")
   expect_equal(rs$def,"A<-'a'")
   expect_equal(rs$com,NULL)
   expect_equal(rs$act, NULL )

   #edit rule defn 1
   peg[["A"]]<-"A<-'ab'"
   inspect_rule(peg,'A')->rs
   expect_equal(rs$name,"A")
   expect_equal(rs$def,"A<-'ab'")
   expect_equal(rs$com,NULL)
   expect_equal(rs$act, NULL )

   peg[["A"]]<-c("A<-'xx'", des="replace xx by a", act="list('a')")
  inspect_rule(peg,'A')->rs
  expect_equal(rs$name,"A")
  expect_equal(rs$def,"A<-'xx'")
  expect_equal(rs$com,"replace xx by a")
  expect_equal(rs$act, "list('a')" )
})

test_that("[<-.PEGR  w.names: (rule), des, act-inline",
{
  #add rule A
  peg<-new.parser()
  peg<-peg + "A<-'a'"
  
  peg[["A"]]<-c("A<-'xx'", des="replace xx by a", act="list('a')")
  inspect_rule(peg,'A')->rs
  expect_equal(rs$name,"A")
  expect_equal(rs$def,"A<-'xx'")
  expect_equal(rs$com,"replace xx by a")
  expect_equal(rs$act, "list('a')" )
})

test_that("[<-.PEGR  wo.names: rule, des, act",
{
  #add rule A
  peg<-new.parser()
  peg<-peg + "A<-'a'" 
  peg[["A"]]<-c("A<-'xx'", "# replace xx by a", "{list('a')}")
  inspect_rule(peg,'A')->rs
  expect_equal(rs$name,"A")
  expect_equal(rs$def,"A<-'xx'")
  expect_equal(rs$com,"replace xx by a")
  expect_equal(rs$act, "list('a')" )
  expect_equal(value(peg[["A"]]("xx",exe=TRUE))[[1]],"a")
})