tests/testthat/test_avnotebooks.R

In Bioconductor/AnVIL: Bioconductor on the AnVIL compute environment

test_that("'avnotebooks()' works", {
    namespace <- "foo"
    name <- "bar"

    expect_identical(
        .avnotebooks_runtime_path(name),
        path.expand(file.path("~", name, "edit"))
    )

    path <- with_mock(
        avbucket = function(namespace, name)
            paste("gs:/", namespace, name, sep="/"),
        .avnotebooks_workspace_path(namespace, name)
    )
    expect_identical(path, "gs://foo/bar/notebooks")
})