Create test-get_xml_doc_example.R

SticsRPacks · Jun 20, 2023 · ae961ec · ae961ec
1 parent 979ec61
commit ae961ec
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/tests/testthat/test-get_xml_doc_example.R b/tests/testthat/test-get_xml_doc_example.R
@@ -0,0 +1,17 @@
+library(SticsRFiles)
+
+stics_version <- get_stics_versions_compat()$latest_version
+version_num <- SticsRFiles:::get_version_num()
+
+context("get example doc")
+usm_doc <- SticsRFiles:::get_xml_doc_example("usms.xml")
+
+test_that("get example doc", {
+  expect_equal(usm_doc@name,"usms.xml")
+})
+
+#usm_doc <- SticsRFiles:::get_xml_doc_example("usm.xml")
+
+test_that("get example doc", {
+  expect_error(SticsRFiles:::get_xml_doc_example("usm.xml"))
+})