inst/tinytest/test-vendor.R

In armadillo4r: An 'Armadillo' Interface

# Tests for vendor() and unvendor()

source(system.file("tinytest", "helper.R", package = "armadillo4r"))

# vendor errors if armadillo4r is already vendored
local({
    pkg <- local_package()
    vendor(pkg_path(pkg))

    expect_error(
      vendor(pkg_path(pkg)),
      "already exists"
    )
})

# vendor to non-default directory
local({
    pkg <- local_package()
    p <- paste(pkg_path(pkg), "inst", "include", sep = "/")

    vendor(p)

    expect_true(dir.exists(file.path(p, "cpp4r")))
    expect_true(file.exists(file.path(p, "cpp4r.hpp")))
    expect_true(file.exists(file.path(p, "cpp4r", "declarations.hpp")))

    unvendor(p)
})

# unvendor without errors
local({
    pkg <- local_package()
    p <- paste(pkg_path(pkg), "inst", "include", sep = "/")

    vendor(p)
    expect_true(dir.exists(file.path(p, "cpp4r")))
    expect_true(file.exists(file.path(p, "cpp4r.hpp")))
    expect_true(file.exists(file.path(p, "cpp4r", "declarations.hpp")))

    unvendor(p)

    expect_false(dir.exists(file.path(p, "cpp4r")))
    expect_false(file.exists(file.path(p, "cpp4r.hpp")))
    expect_false(file.exists(file.path(p, "cpp4r", "declarations.hpp")))
})