Skip to content

Commit

Permalink
add test
Browse files Browse the repository at this point in the history
agricolamz committed Jul 7, 2022

Verified

This commit was signed with the committer’s verified signature.
scottopell Scott Opell
1 parent 5b90315 commit 1f9b6ee
Showing 1 changed file with 24 additions and 0 deletions.
24 changes: 24 additions & 0 deletions tests/test-bib-csv-obligatory-fields.R
Original file line number Diff line number Diff line change
@@ -227,3 +227,27 @@ see https://en.wikipedia.org/wiki/BibTeX for the details.", {
}
expect_equal(observed, expected)
})


test_that("Test BIBTEXKEYs", {
df <- map_dfr(list.files("../data/orig_bib_tsv", full.names = TRUE), function(i){
read_tsv(i, show_col_types = FALSE, progress = FALSE) %>%
mutate(filename = i)})

df %>%
filter(str_detect(BIBTEXKEY, "[^a-z0-9-]")) ->
wrong_bibtexkeys

if(nrow(wrong_bibtexkeys) > 0){
observed <- str_c("Revise the BibTeX entry ",
wrong_bibtexkeys$BIBTEXKEY,
" from the file ",
str_remove(wrong_bibtexkeys$filename, ".*/"),
".")
expected <- rep("", nrow(wrong_fields))
} else {
observed <- "everything is ok"
expected <- "everything is ok"
}
expect_equal(observed, expected)
})

0 comments on commit 1f9b6ee

Please sign in to comment.