aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_mkinds.R
diff options
context:
space:
mode:
Diffstat (limited to 'tests/testthat/test_mkinds.R')
-rw-r--r--tests/testthat/test_mkinds.R7
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/testthat/test_mkinds.R b/tests/testthat/test_mkinds.R
index cb0d2686..5ce3619b 100644
--- a/tests/testthat/test_mkinds.R
+++ b/tests/testthat/test_mkinds.R
@@ -1,6 +1,11 @@
-context("Test dataset class mkinds used in gmkin")
+context("Test dataset classes mkinds and mkindsg")
test_that("An mkinds object can be created and printed", {
testdata <- mkinds$new("FOCUS C", data = FOCUS_2006_C, time_unit = "days", unit = "%AR")
expect_known_output(print(testdata), "FOCUS_2006_C_mkinds.txt")
})
+
+test_that("An mkindsg object can be created and printed", {
+ testdata_group <- mkindsg$new("Experimental X", experimental_data_for_UBA_2019[6:10])
+ expect_known_output(print(testdata_group), "experimental_data_for_UBA_2019_mkindsg.txt")
+})

Contact - Imprint