From 7b1935f7aa276f7ca746021b79bb385e2d3398b3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Todor=20Kondi=C4=87?= <kontrapunkt@uclmail.net>
Date: Wed, 8 Mar 2023 13:55:35 +0100
Subject: [PATCH] Create (conditional) integration tests.
---
tests/testthat/test-integration.R | 12 ++++++++++++
1 file changed, 12 insertions(+)
create mode 100644 tests/testthat/test-integration.R
diff --git a/tests/testthat/test-integration.R b/tests/testthat/test-integration.R
new file mode 100644
index 0000000..4c0cb8f
--- /dev/null
+++ b/tests/testthat/test-integration.R
@@ -0,0 +1,12 @@
+test_that("Extraction returns what is needed.",{
+ topd = Sys.getenv("SS_INTEG_TOP_DATA_DIR")
+ projd = Sys.getenv("SS_INTEG_PROJ_DIR")
+ skip_if_not(shiny::isTruthy(topd) && shiny::isTruthy(projd),"Environment variables SS_INTEG_TOP_DATA_DIR and SS_INTEG_PROJ_DIR must be present for this test to work.")
+
+ eo = init(top_data_dir=topd,projects=projd)
+ print(str(eo))
+ m = run(envopts=eo,
+ project="proj",
+ phase=c("setup","comptab"))
+ expect_true(1==1)
+})
--
GitLab