tests/testthat/test_wget.R

In ropensci/bowerbird: Keep a Collection of Sparkly Data Resources

context("wget stuff")

test_that("wget_install works and bb_find_wget finds something", {
    if (.Platform$OS.type != "windows") {
        expect_error(bb_install_wget(force=TRUE),"only supports windows platforms") ## only supported for Windows platforms (use force=TRUE in case test platform already has wget)
        if (bowerbird:::get_os() %in% c("unix", "linux")) expect_true(is.string(bb_find_wget())) ## should still be able to find system-installed wget
    } else {
        wge <- bb_install_wget()
        expect_true(file.exists(wge))
        expect_true(is.string(bb_find_wget()))
    }
})

have_wget <- !is.null(bb_find_wget(install = FALSE, error = FALSE))

test_that("wget help works", {
    skip_if_not(have_wget)
    blah <- capture_messages(bb_wget("--help"))
    ## should see phrase like "GNU Wget 1.19.5, a non-interactive network retriever." in the output
    expect_true(grepl("network retriever",blah,ignore.case=TRUE))
})

test_that("internal flags_to_charvec function behaves",{
    is_zerolen_char <- function(z) is.character(z) && length(z)<1
    expect_true(is_zerolen_char(bowerbird:::flags_to_charvec(c())))
    expect_true(is_zerolen_char(bowerbird:::flags_to_charvec("")))
    expect_true(is_zerolen_char(bowerbird:::flags_to_charvec(NULL)))
    expect_true(is_zerolen_char(bowerbird:::flags_to_charvec(NA_character_)))
    expect_error(bowerbird:::flags_to_charvec(NA),"expecting flags as character vector or list")
})

test_that("internal resolve_wget_clobber_flags function behaves",{
    expect_equal(bowerbird:::resolve_wget_clobber_flags(c("blah"),c("--no-clobber")),
                 c("blah","--no-clobber"))
    expect_equal(bowerbird:::resolve_wget_clobber_flags(c("blah","--timestamping"),c("--no-clobber")),
                 c("blah","--timestamping"))
    expect_equal(bowerbird:::resolve_wget_clobber_flags(c("blah","--no-clobber"),c("--timestamping")),
                 c("blah","--no-clobber"))

    ## skip these temporarily - failing under covr for unknown reasons
    ##expect_equal(bowerbird:::resolve_wget_clobber_flags(c("blah"),c("-nc")),c("blah","-nc"))
    ##expect_equal(bowerbird:::resolve_wget_clobber_flags(c("blah","-N"),c("-nc")),c("blah","-N"))
    ##expect_equal(bowerbird:::resolve_wget_clobber_flags(c("blah","-nc"),c("-N")),c("blah","-nc"))
})