# context("invcop") # # name = file.path(tempdir(), "YourCity") # inventory(name = name) # # test_that("invcop works", { # expect_equal(invcop(in_name = name, # out_name = file.path(tempdir(), "Hola")), # 0) # }) #