Roxygenize, adapt tests

1 files changed, 5 insertions, 3 deletions

diff --git a/tests/testthat/test_plots_summary_twa.R b/tests/testthat/test_plots_summary_twa.R
index 19ae8770..13d1dd0f 100644
--- a/tests/testthat/test_plots_summary_twa.R
+++ b/tests/testthat/test_plots_summary_twa.R
@@ -39,7 +39,7 @@ test_that("Summaries are reproducible", {
   # The correlation matrix is quite platform dependent
   # It differs between i386 and amd64 on Windows
   # and between Travis and my own Linux system
-  test_summary$Corr <- NULL
+  test_summary$Corr <- "Correlation matrix is platform dependent, not tested"
   expect_known_output(print(test_summary), "summary_DFOP_FOCUS_C.txt")
 
   test_summary_2 <- summary(f_sfo_sfo_eigen)
@@ -53,7 +53,9 @@ test_that("Summaries are reproducible", {
   # It differs between i386 and amd64 on Windows
   # and between Travis and my own Linux system
   # Even more so when using the Eigen method
-  test_summary_2$Corr <- NULL
+  test_summary_2$Corr <- "Correlation matrix is platform dependent, not tested"
+  # The residuals for this method are also platform sensitive
+  test_summary_2$data$residual <- "not tested"
   expect_known_output(print(test_summary_2), "summary_DFOP_FOCUS_D_eigen.txt")
 
   test_summary_3 <- summary(f_sfo_sfo_desolve)
@@ -66,7 +68,7 @@ test_that("Summaries are reproducible", {
   # The correlation matrix is quite platform dependent
   # It differs between i386 and amd64 on Windows
   # and between Travis and my own Linux system
-  test_summary_3$Corr <- NULL
+  test_summary_3$Corr <- "Correlation matrix is platform dependent, not tested"
   expect_known_output(print(test_summary_3), "summary_DFOP_FOCUS_D_deSolve.txt")
 })