tests/testthat/test-inventory.R

In vein: Vehicular Emissions Inventories

context("inventory")
name = file.path(tempdir(), "YourCity")
inventory(name = name, showWarnings = FALSE, show.scripts = TRUE)
inventory(name = name, showWarnings = FALSE, rush.hour = TRUE)
inventory(name = name,
          vehcomp = c(PC = 11, LCV = 11, HGV = 11, BUS = 11,
                      MC = 11),
            showWarnings = FALSE)

test_that("inventory works baby!", {
  expect_message(inventory(name = name, showWarnings = FALSE),
                "P.?")
  expect_message(inventory(name = name, clear = FALSE, showWarnings = FALSE),
                 "P.?")
  expect_message(inventory(name = name, scripts = FALSE, showWarnings = FALSE),
                 "n.?")
  expect_message(inventory(name = name,
                           vehcomp = c(PC = 0, LCV = 1, HGV = 1, BUS = 1,
                                                   MC = 1), showWarnings = FALSE),
                 "n.?")
  expect_message(inventory(name = name,
                           vehcomp = c(PC = 1, LCV = 0, HGV = 1, BUS = 1,
                                       MC = 1), showWarnings = FALSE),
                 "n.?")
  expect_message(inventory(name = name,
                           vehcomp = c(PC = 1, LCV = 1, HGV = 0, BUS = 1,
                                       MC = 1), showWarnings = FALSE),
                 "n.?")
  expect_message(inventory(name = name,
                           vehcomp = c(PC = 1, LCV = 1, HGV = 1, BUS = 0,
                                       MC = 1), showWarnings = FALSE),
                 "n.?")
  expect_message(inventory(name = name,
                           vehcomp = c(PC = 1, LCV = 1, HGV = 1, BUS = 1,
                                       MC = 0), showWarnings = FALSE),
                 "n.?")
  expect_output(inventory(name = name, show.dir = TRUE, showWarnings = FALSE),
                 "D.?")
})