{
    ...
} is not TRUE

`actual`:   FALSE
`expected`: TRUE

expect_equal(request_args(compound, .which = "namespace"), "name")
test_that("returns error if 'x' is missing", {
test_that('"x" is ignored if type = "all"', {
test_that("match types works properly.", {
expect_equal(property_map(x = "MolecularFormula", type = "match"), "MolecularFormula")
expect_equal(property_map(x = "molecularform", type = "contain"), "MolecularFormula")
expect_equal(property_map(x = "molecularf", type = "start"), "MolecularFormula")
expect_equal(property_map(x = "formula", type = "end"), "MolecularFormula")
expect_equal(property_map(x = "molecularform", type = "contain", .ignore.case = TRUE), "MolecularFormula")
expect_equal(property_map(x = "molecularform", type = "contain", .ignore.case = FALSE), NULL)
test_that("returns NULL when no match found.", {
expect_null(property_map("some_text", type = "contain", .ignore.case = TRUE))
test_that("namespace_text() returns error if 'x' is missing", {
expect_equal(domain_text(x = "some_text"), "DomainSpecific (some_text)")
test_that("succesfully returned primary class of given object", {
tmp <- get_assays(identifier = 1234, namespace = "aid")
test_that("find_last_layer() returns the given input if it is not a list or does not have nested layers", {
test_that("slot details successfully printed", {
pview <- get_pug_view(identifier = "1234", annotation = "data", domain = "compound")
test_that("section details successfully printed", {
write.csv(iris, file = file.path(path, "iris.csv"))
all(is.numeric(tmp$size), abs(tmp$size - 4.71) < .02, tmp$unit == "KB")

"namespace_text() returns error if 'x' is missing"
"succesfully returned primary class of given object"
"find_last_layer() returns the given input if it is not a list or does not have nested layers"