From 1f9b6ee69df69c0739ce3d5c6f77a1a12c3a7cfa Mon Sep 17 00:00:00 2001
From: George Moroz <agricolamz@gmail.com>
Date: Thu, 7 Jul 2022 12:59:50 +0300
Subject: [PATCH] add test

---
 tests/test-bib-csv-obligatory-fields.R | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/tests/test-bib-csv-obligatory-fields.R b/tests/test-bib-csv-obligatory-fields.R
index d03af047..13816eee 100644
--- a/tests/test-bib-csv-obligatory-fields.R
+++ b/tests/test-bib-csv-obligatory-fields.R
@@ -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)
+})