test-export_prj.R

test_that("export_prj works for OGS6_gml", {

    # 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 = "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)

    # 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")