aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat
diff options
context:
space:
mode:
Diffstat (limited to 'tests/testthat')
-rw-r--r--tests/testthat/H_sw_R1_stream_events.rdsbin334 -> 0 bytes
-rw-r--r--tests/testthat/H_sw_R1_stream_events.txt0
-rw-r--r--tests/testthat/H_sw_R1_stream_windows.rdsbin235 -> 0 bytes
-rw-r--r--tests/testthat/H_sw_R1_stream_windows.txt0
-rw-r--r--tests/testthat/test_TOXSWA.R6
5 files changed, 3 insertions, 3 deletions
diff --git a/tests/testthat/H_sw_R1_stream_events.rds b/tests/testthat/H_sw_R1_stream_events.rds
deleted file mode 100644
index ba6557b..0000000
--- a/tests/testthat/H_sw_R1_stream_events.rds
+++ /dev/null
Binary files differ
diff --git a/tests/testthat/H_sw_R1_stream_events.txt b/tests/testthat/H_sw_R1_stream_events.txt
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/tests/testthat/H_sw_R1_stream_events.txt
diff --git a/tests/testthat/H_sw_R1_stream_windows.rds b/tests/testthat/H_sw_R1_stream_windows.rds
deleted file mode 100644
index 2531189..0000000
--- a/tests/testthat/H_sw_R1_stream_windows.rds
+++ /dev/null
Binary files differ
diff --git a/tests/testthat/H_sw_R1_stream_windows.txt b/tests/testthat/H_sw_R1_stream_windows.txt
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/tests/testthat/H_sw_R1_stream_windows.txt
diff --git a/tests/testthat/test_TOXSWA.R b/tests/testthat/test_TOXSWA.R
index de60d48..b011288 100644
--- a/tests/testthat/test_TOXSWA.R
+++ b/tests/testthat/test_TOXSWA.R
@@ -1,4 +1,3 @@
-library(pfm)
context("Read and analyse TOXSWA cwa files")
# zipfile_test = tempfile()
@@ -61,9 +60,10 @@ test_that("A TOXSWA 5.5.3 out file is correctly read and printed", {
test_that("Getting events and moving window analysis works", {
# Event analysis with two different thresholds
H_sw_R1_stream$get_events(c(2, 10))
- expect_equal_to_reference(H_sw_R1_stream$events, file = "H_sw_R1_stream_events.rds")
+ expect_known_output(H_sw_R1_stream$events, file = "H_sw_R1_stream_events.txt")
# Moving window analysis
H_sw_R1_stream$moving_windows(c(7, 21))
- expect_equal_to_reference(H_sw_R1_stream$windows, file = "H_sw_R1_stream_windows.rds")
+ H_sw_R1_stream$windows
+ expect_known_output(H_sw_R1_stream$windows, file = "H_sw_R1_stream_windows.txt")
})

Contact - Imprint