From 3e7962435e4ce7bb7c4328b2ec4d45197884598e Mon Sep 17 00:00:00 2001
From: aheinri5 <Anna@netzkritzler.de>
Date: Wed, 24 Feb 2021 10:19:25 +0100
Subject: [PATCH] [tests] added check if overwrite flag yields error as
expected
---
tests/testthat/test-sim_utils.R | 3 +++
1 file changed, 3 insertions(+)
diff --git a/tests/testthat/test-sim_utils.R b/tests/testthat/test-sim_utils.R
index aba22cf..c89167a 100644
--- a/tests/testthat/test-sim_utils.R
+++ b/tests/testthat/test-sim_utils.R
@@ -70,6 +70,9 @@ test_that("ogs6_export_sim_files works", {
# Now export all files
ogs6_export_sim_files(ogs6_obj)
+ # Trying to overwrite should yield an error
+ expect_error(ogs6_export_sim_files(ogs6_obj, overwrite = F))
+
expect_equal(file.exists(paste0(test_path, "/circle_1e1_axi.prj")),
TRUE)
--
GitLab