[tests] Modified tests

tests/testthat/test-ogs6.R

@@ -23,7 +23,7 @@ test_that("OGS6$clear() works as expected", {
 })
 
 
-test_that("add_component works", {
+test_that("OGS6$add() works", {
 
     ogs6_obj <- OGS6$new(
         sim_name = "sim",
@@ -33,7 +33,7 @@ test_that("add_component works", {
         test_mode = TRUE
     )
 
-    ogs6_obj$add_component(r2ogs6_parameter(
+    ogs6_obj$add(r2ogs6_parameter(
         name = "pressure0",
         type = "Constant",
         values = 1e5

tests/testthat/test-read_in_utils.R

@@ -27,12 +27,12 @@ test_that("guess_structure works for simple r2ogs6 classes", {
 })
 
 
-test_that("guess_structure works for simple lists", {
+test_that("node_to_object works for simple lists", {
 
     my_xml <- xml2::read_xml("<a><b>1</b><b>2</b></a>")
     my_node <- xml2::xml_find_first(my_xml, "/a")
 
-    my_list <- guess_structure(my_xml, "/a")
+    my_list <- node_to_object(my_xml, "/a")
 
     expect_equal(my_list, list(b = "1", b = "2"))
 })