Update test-get_xml_doc_example.R

SticsRPacks · Jun 20, 2023 · 20db104 · 20db104
1 parent 5297f33
commit 20db104
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/tests/testthat/test-get_xml_doc_example.R b/tests/testthat/test-get_xml_doc_example.R
@@ -9,4 +9,5 @@ usm_doc <- SticsRFiles:::get_xml_doc_example("usms.xml")
 test_that("get example doc", {
   expect_equal(usm_doc@name,"usms.xml")
   expect_error(SticsRFiles:::get_xml_doc_example("usm.xml"))
+  expect_equal(length(unlist(SticsRFiles:::get_xml_doc_example())),8)
 })