diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/testthat/H_sw_R1_stream_events.rds | bin | 334 -> 0 bytes | |||
-rw-r--r-- | tests/testthat/H_sw_R1_stream_events.txt | 0 | ||||
-rw-r--r-- | tests/testthat/H_sw_R1_stream_windows.rds | bin | 235 -> 0 bytes | |||
-rw-r--r-- | tests/testthat/H_sw_R1_stream_windows.txt | 0 | ||||
-rw-r--r-- | tests/testthat/test_TOXSWA.R | 6 |
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 Binary files differdeleted file mode 100644 index ba6557b..0000000 --- a/tests/testthat/H_sw_R1_stream_events.rds +++ /dev/null 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 Binary files differdeleted file mode 100644 index 2531189..0000000 --- a/tests/testthat/H_sw_R1_stream_windows.rds +++ /dev/null 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") }) |