Nothing
#! /usr/bin/env Rscript
library(testthat)
library(rly)
context("Bad literal specification")
Lexer <- R6::R6Class("Lexer",
public = list(
tokens = c('NUMBER'),
literals = 23,
t_NUMBER = function(re='\\d+', t) {
return(t)
},
t_error = function(t) {}
)
)
test_that("literal not single", {
expect_output(expect_error(rly::lex(Lexer), "Can't build lexer"),
"ERROR .* Invalid literal. Must be a single character")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.