Skip to content
Snippets Groups Projects
Commit bc47cefc authored by Johannes Boog's avatar Johannes Boog
Browse files

[test] add OGS6_msh class

parent 4901ea14
No related branches found
No related tags found
1 merge request!50Add support for mesh files in MSH format
test_that("OGS6_msh initialization works", {
msh_path <- system.file("extdata/benchmarks/t1_1Dsource",
"t1_1Dsource.msh",
package = "r2ogs6")
msh_obj <- OGS6_msh$new(msh_path = msh_path)
expect_equal(class(msh_obj)[1], "OGS6_msh")
expect_equal(class(msh_obj$msh_path), "character")
expect_true(grepl("\\.msh$", msh_obj$msh_path))
})
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment