From c0bd7a90e4952f4a54c5dd0c1edb36cdc83b62bb Mon Sep 17 00:00:00 2001
From: aheinri5 <Anna@netzkritzler.de>
Date: Wed, 18 Nov 2020 23:15:48 +0100
Subject: [PATCH] Test methods for script generate_functions (WIP)
---
tests/testthat/test-generate_functions.R | 18 ++++++++++++++++++
1 file changed, 18 insertions(+)
create mode 100644 tests/testthat/test-generate_functions.R
diff --git a/tests/testthat/test-generate_functions.R b/tests/testthat/test-generate_functions.R
new file mode 100644
index 0000000..b69f456
--- /dev/null
+++ b/tests/testthat/test-generate_functions.R
@@ -0,0 +1,18 @@
+
+
+
+
+
+test_that("generate_as_node_func correctly generates as_node function from XML element", {
+
+ simple_xml_file <- system.file("extdata", "simple_case_1.xml", package = "r2ogs6")
+
+ # xml_doc <- xml2::read_xml(simple_xml_file)
+ #
+ # children <- xml2::xml_find_first(xml_doc, paste("//", "a", sep = ""))
+ #
+ # children
+
+ generate_as_node_func(simple_xml_file, "b")
+
+})
--
GitLab