Nothing
test_that("Test message on cff", {
expect_snapshot(def <- cff("abcde"))
expect_identical(def, cff())
nocff <- system.file("examples/CITATION_skeleton.cff",
package = "cffR"
)
expect_snapshot(afile <- cff(nocff))
expect_identical(afile, cff())
})
test_that("Walk trough full lifecycle", {
complete <- system.file("examples/CITATION_complete.cff",
package = "cffr"
)
# Read
read <- cff_read(complete)
expect_s3_class(read, "cff")
expect_true(cff_validate(read, verbose = FALSE))
expect_snapshot(read)
# Modify
modify <- cff_create(read, keys = list(title = "A new title"))
expect_snapshot(modify)
expect_true(length(read) == length(modify))
expect_true(length((setdiff(names(read), names(modify)))) == 0)
expect_false(read$title == modify$title)
# Write
tmp <- tempfile(fileext = ".cff")
cff_write(modify, outfile = tmp, validate = FALSE, verbose = FALSE)
expect_silent(file_exist_abort(tmp))
# Validate
expect_true(cff_validate(tmp, verbose = FALSE))
file.remove(tmp)
})
test_that("Recursive parsing", {
complete <- system.file("examples/CITATION_complete.cff",
package = "cffr"
)
# Read
expect_snapshot(read <- cff(complete))
read <- cff_read(complete)
# Test all levels
expect_s3_class(read, "cff")
expect_s3_class(read$authors, "cff")
expect_s3_class(read$authors[[1]], "cff")
expect_s3_class(read$references, "cff")
expect_s3_class(read$references[[1]]$authors, "cff")
expect_s3_class(read$references[[1]]$authors[[1]], "cff")
})
test_that("Fuzzy matching of keys on cff", {
expect_snapshot(cff(
tittle = "a",
cff_version = "ar",
version = "200",
messange = "Fix my keys"
))
expect_snapshot(cffobj <- cff(
tittle = "a",
cff_version = "1.2.0", version = "200",
messange = "aa",
anthor = list(list(
"family-names" = "a",
"given-names" = "b"
))
))
expect_true(is_cff(cffobj))
expect_true(cff_validate(cffobj, verbose = FALSE))
})
test_that("duplicated", {
expect_snapshot(ss <- cff(
tittle = "a", tittle = "ar",
version = "200",
messange = "Fix my keys"
))
expect_s3_class(ss, "cff")
expect_length(ss, 3)
})
test_that("unnamed", {
expect_snapshot(ss <- cff(
path = "a", "200", "Fix my keys"
), error = TRUE)
expect_snapshot(s1 <- cff(path = NULL, title = "a", "b", version = 1))
expect_snapshot(s2 <- cff(
path = NULL, title = "a", "aa", "bb", "cc",
"b", version = 1, "h", "j"
))
expect_identical(s1, s2)
})
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.