context("Create File Repository Folder Argument Validation")
#####################################################################
# Create File Repository Folder
test_that(
"Return an error when rcon is not a redcapConnection",
{
local_reproducible_output(width = 200)
expect_error(createFileRepositoryFolder(mtcars,
name = "Folder Name"),
"no applicable method for 'createFileRepositoryFolder'")
}
)
test_that(
"Return an error when name is not character(1) or has more than 150 characters",
{
local_reproducible_output(width = 200)
expect_error(createFileRepositoryFolder(rcon,
name = c("Folder1", "Folder2")),
"Variable 'name'[:] Must have length 1")
expect_error(createFileRepositoryFolder(rcon,
123),
"Variable 'name'[:] Must be of type 'character'")
expect_error(createFileRepositoryFolder(rcon,
paste0(sample(letters,
size = 151,
replace = TRUE),
collapse = ""),
"All elements must have at most 150 characters"))
}
)
test_that(
"Return an error when folder_id is not integerish(0/1)",
{
local_reproducible_output(width = 200)
expect_error(createFileRepositoryFolder(rcon,
name = "folder",
folder_id = pi),
"'folder_id'[:] Must be of type 'integerish'")
expect_error(createFileRepositoryFolder(rcon,
name = "folder",
folder_id = c(2, 3)),
"'folder_id'[:] Must have length [<][=] 1")
expect_error(createFileRepositoryFolder(rcon,
name = "folder",
folder_id = "one"),
"'folder_id'[:] Must be of type 'integerish'")
}
)
test_that(
"Return an error when dag_id is not integerish(0/1)",
{
local_reproducible_output(width = 200)
expect_error(createFileRepositoryFolder(rcon,
name = "folder",
dag_id = pi),
"'dag_id'[:] Must be of type 'integerish'")
expect_error(createFileRepositoryFolder(rcon,
name = "folder",
dag_id = c(2, 3)),
"'dag_id'[:] Must have length [<][=] 1")
expect_error(createFileRepositoryFolder(rcon,
name = "folder",
dag_id = "one"),
"'dag_id'[:] Must be of type 'integerish'")
}
)
test_that(
"Return an error when role_Id is not integerish(0/1)",
{
local_reproducible_output(width = 200)
expect_error(createFileRepositoryFolder(rcon,
name = "folder",
role_id = pi),
"'role_id'[:] Must be of type 'integerish'")
expect_error(createFileRepositoryFolder(rcon,
name = "folder",
role_id = c(2, 3)),
"'role_id'[:] Must have length [<][=] 1")
expect_error(createFileRepositoryFolder(rcon,
name = "folder",
role_id = "one"),
"'role_id'[:] Must be of type 'integerish'")
}
)
test_that(
"Validate config, api_param",
{
local_reproducible_output(width = 200)
expect_error(createFileRepositoryFolder(rcon,
name = "folder",
config = list(1)),
"'config': Must have names")
expect_error(createFileRepositoryFolder(rcon,
name = "folder",
config = "not a list"),
"'config': Must be of type 'list'")
expect_error(createFileRepositoryFolder(rcon,
name = "folder",
api_param = list(1)),
"'api_param': Must have names")
expect_error(createFileRepositoryFolder(rcon,
name = "folder",
api_param = "not a list"),
"'api_param': Must be of type 'list'")
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.