tests/testthat/test-output_get.R

output_vector <- output_get(iotable_get())

test_that("correct output vector is returned by output_get()", {
  expect_equal(as.character(output_get(iotable_get())[[1]][1]), "output")
  })

#more tests needed

Try the iotables package in your browser

Any scripts or data that you put into this service are public.

iotables documentation built on Sept. 24, 2022, 5:05 p.m.