diff --git a/tests/testthat/test-generate_functions.R b/tests/testthat/test-generate_functions.R
index b69f4566c79a54bae8c4651d0409fe5aaddd5ef0..75b295a0fa0d1adfcf24b20be27903df44e6d685 100644
--- a/tests/testthat/test-generate_functions.R
+++ b/tests/testthat/test-generate_functions.R
@@ -1,8 +1,5 @@
 
 
-
-
-
 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")
@@ -13,6 +10,6 @@ test_that("generate_as_node_func correctly generates as_node function from XML e
     #
     # children
 
-    generate_as_node_func(simple_xml_file, "b")
+    generate_as_node_func(simple_xml_file, "b", show_result = FALSE)
 
 })
diff --git a/tests/testthat/test-prj_parameters.R b/tests/testthat/test-prj_parameters.R
index 9ebe552f356d22e08675630712fa6b2e850cb5b9..ffb150f010077288ab34de31caa9441226d0e093 100644
--- a/tests/testthat/test-prj_parameters.R
+++ b/tests/testthat/test-prj_parameters.R
@@ -1,7 +1,6 @@
 
 test_that("new_r2ogs6_parameter basic validation is working", {
 
-    expect_error(r2ogs6_parameter("my_param", "my_type", "my_value"))
     expect_error(r2ogs6_parameter("my_param", c(0, 0), c(0, 0)))
     expect_error(r2ogs6_parameter(c(0, 0), "my_type", c(0, 0)))
 
diff --git a/tests/testthat/test-read_in_gml.R b/tests/testthat/test-read_in_gml.R
new file mode 100644
index 0000000000000000000000000000000000000000..1c67e489b607d02e85522b3945a329371373bd5d
--- /dev/null
+++ b/tests/testthat/test-read_in_gml.R
@@ -0,0 +1,10 @@
+
+test_that("read_in_points correctly reads point tibble from file", {
+
+    xml_doc <- validate_read_in_xml(system.file("extdata", "cube_1x1x1.gml", package = "r2ogs6"))
+
+    point_tibble <- read_in_points(xml_doc)
+    expect_equal(length(point_tibble), 4)
+    expect_equal(length(point_tibble[[1]]), 8)
+    expect_setequal(names(point_tibble), c("x", "y", "z", "name"))
+})
\ No newline at end of file