tests/testthat/test-query.R

In typr: Write and Render 'Typst' Documents

test_that('typr_query works', {
  skip_if_no_typst()

  query <- suppressWarnings({
    typr_query('../test.typ', '<my-sec>')
  })

  expect_true(
    is.data.frame(query) || is.character(query)
  )
})