#20 tests

eblondel · Jun 5, 2022 · 021dd44 · 021dd44
1 parent 47389f6
commit 021dd44
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/R/readDCEntry.R b/R/readDCEntry.R
@@ -17,7 +17,7 @@
 #'
 #' @examples
 #' \donttest{
-#'   dcfile <- system.file("extdata/examples", "zenodo_dc_export.xml", package = "atom4R")
+#'   dcfile <- base::system.file("extdata/examples", "zenodo_dc_export.xml", package = "atom4R")
 #'   dc <- readDCEntry(dcfile)
 #' }
 #'

diff --git a/tests/testthat/test_DCEntry.R b/tests/testthat/test_DCEntry.R
@@ -74,3 +74,9 @@ test_that("decoding Zenodo Dublin core",{
     length(dcentry_xml_children)
   )
 })
+
+test_that("reading DC XML",{
+  dcfile <- base::system.file("extdata/examples", "zenodo_dc_export.xml", package = "atom4R")
+  dc <- readDCEntry(dcfile)
+  expect_is(dc, "DCEntry")
+})