test_that("use_addin() creates the first addins.dcf as promised", {
create_local_package()
use_addin("addin.test")
addin_dcf <- read_utf8(proj_path("inst", "rstudio", "addins.dcf"))
expected_file <- path_package("usethis", "templates", "addins.dcf")
addin_dcf_expected <- read_utf8(expected_file)
addin_dcf_expected[3] <- "Binding: addin.test"
addin_dcf_expected[5] <- ""
expect_equal(addin_dcf, addin_dcf_expected)
})
Generated by dwww version 1.15 on Tue Jul 2 08:47:51 CEST 2024.