Nothing
context("parser tests")
util <- pds3_lexer_parser()
parser <- util$parser
lexer <- util$lexer
test_that("Simple Assignment", {
string <- "TEST = 12312
END"
res <- parser$parse(string, lexer)
expect_length(res, 1)
})
test_that("Simple Assignment 2", {
string <- "TEST = 'string'
TEST2 = 24
END"
res <- parser$parse(string, lexer)
expect_length(res, 2)
})
test_that("Simple Assignment 2", {
string <- "BEGIN_OBJECT = TEST
END"
res <- parser$parse(string, lexer)
expect_length(res, 1)
})
test_that("Pointer Assignment", {
string <- " ^HEADER = (\"MV10110413_6000000_001_RR.FIT\",1)
END"
res <- parser$parse(string, lexer)
expect_length(res, 1)
})
test_that("List Parser w/ units", {
string <- "CENTER_FILTER_WAVELENGTH = (900 <NM>, 700 <NM>, 500 <NM>)"
res <- parser$parse(string, lexer)
expect_length(res, 1)
expect_length(res[[1]], 3)
expect_length(res[[1]]$value, 3)
expect_equal(res[[1]]$value[[1]]$value, 900)
expect_equal(res[[1]]$value[[2]]$value, 700)
expect_equal(res[[1]]$value[[3]]$value, 500)
})
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.