Updates to pass checks and tests

1 files changed, 28 insertions, 11 deletions

diff --git a/pkg/tests/testthat/test_TOXSWA_cwa.R b/pkg/tests/testthat/test_TOXSWA_cwa.R
index 582c51e..407a7a1 100644
--- a/pkg/tests/testthat/test_TOXSWA_cwa.R
+++ b/pkg/tests/testthat/test_TOXSWA_cwa.R
@@ -1,20 +1,37 @@
 library(pfm)
 context("Read and analyse TOXSWA cwa files")
 
-test_that("TOXSWA cwa file is correctly read", {
-  H_sw_D4_pond  <- read.TOXSWA_cwa("00001p_pa.cwa",
-                                   basedir = "SwashProjects/project_H_sw/TOXSWA",
-                                   zipfile = system.file("testdata/SwashProjects.zip",
-                                               package = "pfm"))
-  H_sw_D4_pond$zipfile <- NULL # do not test the path
-  expect_equal_to_reference(H_sw_D4_pond, file = "H_sw_D4_pond.rds")
+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)
+
+
+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)
 })
 
 test_that("Getting events and moving window analysis works", {
-  H_sw_R1_stream  <- read.TOXSWA_cwa("00003s_pa.cwa",
-                                   basedir = "SwashProjects/project_H_sw/TOXSWA",
-                                   zipfile = system.file("testdata/SwashProjects.zip",
-                                               package = "pfm"))
 
   # Event analysis with two different thresholds
   H_sw_R1_stream$get_events(c(2, 10))