Nothing
context("binman_utils")
test_that("canListBinmanApp", {
appdir <- app_dir("superduperapp", FALSE)
on.exit(unlink(appdir, recursive = TRUE))
platforms <- LETTERS[1:4]
versions <- LETTERS[5:7]
mkdirs <- file.path(appdir, outer(platforms, versions, file.path))
chk <- vapply(mkdirs, dir.create, logical(1), recursive = TRUE)
expect_true(all(chk))
res <- list_versions("superduperapp")
expect_identical(names(res), platforms)
expect_true(all(vapply(res, identical, logical(1), versions)))
})
test_that("canListPlatformBinmanApp", {
appdir <- app_dir("superduperapp", FALSE)
on.exit(unlink(appdir, recursive = TRUE))
platforms <- LETTERS[1:4]
versions <- LETTERS[5:7]
mkdirs <- file.path(appdir, outer(platforms, versions, file.path))
chk <- vapply(mkdirs, dir.create, logical(1), recursive = TRUE)
expect_true(all(chk))
res <- list_versions("superduperapp", "B")
expect_identical(names(res), "B")
expect_true(all(vapply(res, identical, logical(1), versions)))
})
test_that("canCheckBinmanAppDir", {
expect_error(
appdir <- app_dir("superduperapp"),
"superduperapp app directory not found"
)
})
test_that("canRemoveBinmanAppVersion", {
appname <- "superduperapp"
appdir <- app_dir(appname, FALSE)
on.exit(unlink(appdir, recursive = TRUE))
platforms <- LETTERS[1:4]
versions <- LETTERS[5:7]
mkdirs <- file.path(appdir, outer(platforms, versions, file.path))
chk <- vapply(mkdirs, dir.create, logical(1), recursive = TRUE)
expect_true(all(chk))
appver <- list_versions(appname)
chk <- rm_version(appname, platforms[2], versions[1:2])
expect_true(all(chk))
appver <- list_versions(appname)
expect_identical(appver[[platforms[2]]], versions[3])
chk <- rm_version(appname, platforms[2])
expect_true(all(chk))
})
test_that("canRemoveBinmanAppPlatform", {
appname <- "superduperapp"
appdir <- app_dir(appname, FALSE)
on.exit(unlink(appdir, recursive = TRUE))
platforms <- LETTERS[1:4]
versions <- LETTERS[5:7]
mkdirs <- file.path(appdir, outer(platforms, versions, file.path))
chk <- vapply(mkdirs, dir.create, logical(1), recursive = TRUE)
expect_true(all(chk))
appver <- list_versions(appname)
chk <- rm_platform(appname, platforms[1:2])
expect_true(all(chk))
appver <- list_versions(appname)
expect_identical(names(appver), platforms[3:4])
chk <- rm_platform(appname)
expect_true(all(chk))
})
test_that("canThrowUtilErrors", {
appname <- "superduperapp"
appdir <- app_dir(appname, FALSE)
on.exit(unlink(appdir, recursive = TRUE))
platforms <- LETTERS[1:4]
versions <- LETTERS[5:7]
mkdirs <- file.path(appdir, outer(platforms, versions, file.path))
chk <- vapply(mkdirs, dir.create, logical(1), recursive = TRUE)
expect_true(all(chk))
expect_error(
list_versions("superduperapp", "nothere"),
"No platforms found"
)
expect_error(
rm_platform("superduperapp", "nothere"),
"No platforms found"
)
expect_error(
rm_version("superduperapp", "A", "nothere"),
"No versions found"
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.