diff options
author | Johannes Ranke <jranke@uni-bremen.de> | 2016-09-27 23:00:48 +0200 |
---|---|---|
committer | Johannes Ranke <jranke@uni-bremen.de> | 2016-09-27 23:00:48 +0200 |
commit | 12a31f4c130c551f82232d9ef7dfb608bd52c53f (patch) | |
tree | 2525ab1ea4102a6edddbd0c2f03f4a851bf2f9c5 /pkg/tests/testthat/test_TOXSWA_cwa.R | |
parent | 0d958ab6f84b569b5437f231c56004890c4ae23b (diff) |
Reorganise repository using standard package layout
Diffstat (limited to 'pkg/tests/testthat/test_TOXSWA_cwa.R')
-rw-r--r-- | pkg/tests/testthat/test_TOXSWA_cwa.R | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/pkg/tests/testthat/test_TOXSWA_cwa.R b/pkg/tests/testthat/test_TOXSWA_cwa.R deleted file mode 100644 index 7c9a73c..0000000 --- a/pkg/tests/testthat/test_TOXSWA_cwa.R +++ /dev/null @@ -1,56 +0,0 @@ -library(pfm) -context("Read and analyse TOXSWA cwa files") - -zipfile_test = system.file("testdata/SwashProjects.zip", package = "pfm") -basedir_test = "SwashProjects/project_H_sw/TOXSWA" - -H_sw_D4_pond <- read.TOXSWA_cwa("00001p_pa.cwa", - basedir = basedir_test, - zipfile = zipfile_test) - -H_sw_R1_stream <- read.TOXSWA_cwa("00003s_pa.cwa", - basedir = basedir_test, - zipfile = zipfile_test) - -basedir_test_2 = "SwashProjects/Project_1/TOXSWA" - -EXSW2_R1_stream <- read.TOXSWA_cwa("3.out", - basedir = basedir_test_2, - zipfile = zipfile_test) - - - -test_that("TOXSWA cwa file is correctly read and printed", { - - # This was the setting when printing the output into text files - options(width = 100) - - # Most content of the R6 object is at least partially printed - - H_sw_D4_pond_printed <- capture.output(print(H_sw_D4_pond)) - - expect_equal(H_sw_D4_pond_printed, readLines("H_sw_D4_pond_printed.txt")) - - H_sw_R1_stream_printed <- capture.output(print(H_sw_R1_stream)) - expect_equal(H_sw_R1_stream_printed, readLines("H_sw_R1_stream_printed.txt")) - - # The basedir is not printed, therefore tested separately - expect_equal(H_sw_D4_pond$basedir, basedir_test) - - EXSW2_R1_stream_printed <- capture.output(print(EXSW2_R1_stream)) - expect_equal(EXSW2_R1_stream_printed, readLines("EXSW2_R1_stream_printed.txt")) - - # The basedir is not printed, therefore tested separately - expect_equal(H_sw_D4_pond$basedir, basedir_test) -}) - -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") - - # 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") -}) |