tests/testthat/test-loggingsummary1.R

In VincyaneBadouard/Maria: An R Package to Simulate Forest Logging

test_that("loggingsummary1", {

  # Data loading
  data(LoggingSimulationOutputs)

  expect_error(loggingsummary1(x = TRUE),
               regexp = "The argument of the 'loggingsummary1' function must be a list")


  rslt <- capture.output(loggingsummary1(LoggingSimulationOutputs))

  })