tests/testthat/test-marker.R

In parcr: Construct Parsers for Structured Text Files

test_that("'new_marker' works", {
  expect_equal(new_marker(1), structure(list(), n = 1L, expected = NULL, class = c("marker")))
  t <- new_marker(78)
  expect_identical(marker_val(t), 78L)
  expect_null(marker_expected(t))
})

test_that("'new_marker' works with expected parameter", {
  m <- new_marker(5, expected = "literal 'A'")
  expect_identical(marker_val(m), 5L)
  expect_identical(marker_expected(m), "literal 'A'")

  m2 <- new_marker(10, expected = c("option1", "option2"))
  expect_identical(marker_val(m2), 10L)
  expect_identical(marker_expected(m2), c("option1", "option2"))
})

test_that("'marker_expected' returns NULL for markers without expected", {
  m <- new_marker(1)
  expect_null(marker_expected(m))
})

test_that("LNR works", {
  reset_LNR()
  expect_identical(LNR(), 1L)
  inc_LNR()
  expect_identical(LNR(), 2L)
  set_LNR(10)
  expect_identical(LNR(), 10L)
  reset_LNR()
  expect_identical(LNR(), 1L)
})

test_that("'finished' works", {
  expect_true(finished((literal("A") %then% eof())("A")))
  expect_false(finished((literal("A"))("A")))
  expect_false(finished((literal("A") %then% eof())(c("A", "C"))))
})

test_that("failed identifies empty list markers", {
  m <- new_marker(1)
  expect_true(failed(m))
  expect_true(failed(list()))
})

test_that("failed returns FALSE for non‑empty or non‑list objects", {
  expect_false(failed(list(a = 1)))
  expect_false(failed(NULL))
  expect_false(failed(42))
  expect_false(failed("text"))
})