temporary debug output to diagnose bug #64 on CI/CD build server sinc…

…e it is not reproducible locally
aryoda · May 17, 2021 · 114b91d · 114b91d
1 parent be8b090
commit 114b91d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/tests/testthat/test_build_log_entry.R b/tests/testthat/test_build_log_entry.R
@@ -66,6 +66,8 @@ test_that("stack trace is correct", {
 
   expected_FST <- paste(readLines("expected_full_stack_trace.txt"), collapse = "\n")
   # writeLines(log.entry$full.stack.trace, "expected_full_stack_trace.txt")  # to write the expected result after checking it manually
+  print(class(log.entry$full.stack.trace)); print(log.entry$full.stack.trace);
+  print(class(expected_FST)); print(expected_FST)  # debugging
   expect_equal(log.entry$full.stack.trace, expected_FST, "full stack trace")
 
 

diff --git a/tests/testthat/test_build_log_output.R b/tests/testthat/test_build_log_output.R
@@ -48,12 +48,13 @@ test_that("log output is correct", {
   # expected2 <- paste(readLines("tests/testthat/build_log_output_test_data_2.txt"), collapse = "\n")
   expected2 <- paste(readLines("build_log_output_test_data_2.txt"), collapse = "\n")
   # writeLines(out2, "build_log_output_test_data_2.txt")  # to write the expected result after checking it manually
-
+  print(out2); print(expected2)  # debugging
   expect_equal(out2, expected2, info = "include.full.call.stack = TRUE")
 
 
 
   out3 <- tryCatchLog::build.log.output(log.entry)  # default is include.full.call.stack = TRUE
+  print(out3); print(expected2)  # debugging
   expect_equal(out3, expected2, info = "default value of include.full.call.stack")  # same expected result as before