[tests] export of referenced files

    GML, DAT, PY, PRJ includes, VTU files

tests/testthat/test-export_prj.R

 
-test_that("export_prj works", {
+test_that("export_prj works for OGS6_gml", {
 
     # Get extdata directory and create folder for the test
     extdata_path <- system.file("extdata/", package = "r2ogs6")
@@ -10,18 +10,125 @@ test_that("export_prj works", {
     ogs6_obj <- OGS6$new(sim_name = "flow_free_expansion",
                          sim_path = test_path)
 
-
     prj_path <- (system.file("extdata/benchmarks/flow_free_expansion",
                              "flow_free_expansion.prj", package = "r2ogs6"))
 
     read_in_prj(ogs6_obj, prj_path, read_in_gml = T)
 
-    # Now export it
-    export_prj(ogs6_obj)
+    # test export of prj and gml only
+    export_prj(ogs6_obj, copy_ext_files = F)
+    expect_equal(sort(list.files(ogs6_obj$sim_path)),
+                 sort(c("flow_free_expansion.gml", "flow_free_expansion.prj")))
+    file.remove(paste0(ogs6_obj$sim_path, "flow_free_expansion.gml"))
+    file.remove(paste0(ogs6_obj$sim_path, "flow_free_expansion.prj"))
+
+    export_prj(ogs6_obj, copy_ext_files = T)
+    expect_equal(sort(list.files(ogs6_obj$sim_path)),
+                 sort(c("cube_1x1x1_quad.vtu", "flow_free_expansion.gml",
+                   "flow_free_expansion.prj")))
+
+    # Tidy up by deleting the folder we created
+    unlink(test_path, recursive = TRUE)
+})
+
+test_that("export_prj works for referenced *.gml, *.vtu, *.py files", {
+
+    # Get extdata directory and create folder for the test
+    extdata_path <- system.file("extdata/", package = "r2ogs6")
+    test_path <- paste0(extdata_path, "/export_prj_test")
+    dir.create(test_path)
+
+    # Define prj_path and OGS6 object, then read in .prj file
+    ogs6_obj <- OGS6$new(sim_name = "square_1e3_laplace_eq",
+                         sim_path = test_path)
+
+    prj_path <- system.file(
+        "extdata/benchmarks/square_1x1_SteadyStateDiffusion_Python",
+        "square_1e3_laplace_eq.prj", package = "r2ogs6")
+
+    read_in_prj(ogs6_obj, prj_path, read_in_gml = F)
+
+    # test export of prj only
+    export_prj(ogs6_obj, copy_ext_files = F)
+    expect_equal(list.files(ogs6_obj$sim_path), "square_1e3_laplace_eq.prj")
+
+    file.remove(paste0(ogs6_obj$sim_path, "square_1e3_laplace_eq.prj"))
+
+    # test with copying referenced files
+    export_prj(ogs6_obj, copy_ext_files = T)
+    expect_equal(sort(list.files(ogs6_obj$sim_path)),
+                 sort(c("bcs_laplace_eq.py", "square_1e3_laplace_eq.prj",
+                   "square_1x1_quad_1e3.vtu", "square_1x1.gml")))
+
+    # Tidy up by deleting the folder we created
+    unlink(test_path, recursive = TRUE)
+})
+
+test_that("export_prj works for referenced *.dat files", {
+
+    # Get extdata directory and create folder for the test
+    extdata_path <- system.file("extdata/", package = "r2ogs6")
+    test_path <- paste0(extdata_path, "/export_prj_test")
+    dir.create(test_path)
+
+    # Define prj_path and OGS6 object, then read in .prj file
+    ogs6_obj <- OGS6$new(sim_name = "exchange",
+                         sim_path = test_path)
+
+    prj_path <- system.file("extdata/benchmarks/CationExchange",
+                                 "exchange.prj", package = "r2ogs6")
+
+    read_in_prj(ogs6_obj, prj_path, read_in_gml = F)
 
-    expect_equal(file.exists(paste0(test_path, "/flow_free_expansion.prj")),
-                 TRUE)
+    # test export of prj only
+    export_prj(ogs6_obj, copy_ext_files = F)
+    expect_equal(list.files(ogs6_obj$sim_path), "exchange.prj")
+
+    file.remove(paste0(ogs6_obj$sim_path, "exchange.prj"))
+
+    # test with copying referenced files
+    export_prj(ogs6_obj, copy_ext_files = T)
+    expect_equal(sort(list.files(ogs6_obj$sim_path)),
+                 sort(c("exchange_downstream.vtu", "exchange_upstream.vtu",
+                   "exchange.prj", "exchange.vtu", "phreeqc.dat",
+                   "ReactiveDomain_exchange.vtu")))
 
     # Tidy up by deleting the folder we created
     unlink(test_path, recursive = TRUE)
 })
+
+
+
+test_that("export_prj works for process$include", {
+
+    # Get extdata directory and create folder for the test
+    extdata_path <- system.file("extdata/", package = "r2ogs6")
+    test_path <- paste0(extdata_path, "/export_prj_test")
+    dir.create(test_path)
+
+    # Define prj_path and OGS6 object, then read in .prj file
+    ogs6_obj <- OGS6$new(sim_name = "circle_1e1_axi",
+                         sim_path = test_path)
+
+    prj_path <- (system.file("extdata/benchmarks/Elliptic/circle_radius_1",
+                             "circle_1e1_axi.prj", package = "r2ogs6"))
+    incl_path <- (system.file("extdata/benchmarks/Elliptic/other_dir",
+                              "SteadyStateDiffusion.xml", package = "r2ogs6"))
+
+    read_in_prj(ogs6_obj, prj_path, read_in_gml = F)
+
+    # test export of prj only
+    export_prj(ogs6_obj, copy_ext_files = F)
+    expect_equal(list.files(ogs6_obj$sim_path), "circle_1e1_axi.prj")
+
+    file.remove(paste0(ogs6_obj$sim_path, "circle_1e1_axi.prj"))
+
+    # test with copying referenced files
+    export_prj(ogs6_obj, copy_ext_files = T)
+    expect_equal(sort(list.files(ogs6_obj$sim_path)),
+                 sort(c("circle_1_axi.gml", "circle_1e1_axi.prj",
+                   "line_1_lines_1e1.vtu", "SteadyStateDiffusion.xml")))
+
+    # Tidy up by deleting the folder we created
+    unlink(test_path, recursive = TRUE)
+})
\ No newline at end of file