diff --git a/tests/testthat/test-generate_functions.R b/tests/testthat/test-generate_functions.R
new file mode 100644
index 0000000000000000000000000000000000000000..b69f4566c79a54bae8c4651d0409fe5aaddd5ef0
--- /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")
+
+})