print out results before stopifnot(identical())

git-svn-id: https://svn.r-project.org/R/trunk@84648 00db46b3-68df-0310-9c12-caf00c1e9a41
r-devel · Jul 7, 2023 · fc2556d · fc2556d
1 parent fe51445
commit fc2556d
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/tests/reg-tests-1e.R b/tests/reg-tests-1e.R
@@ -744,6 +744,7 @@ sockChk <- function(enc, port = 27182)
  " (should be TRUE - FIXME?)\n") # FALSE wrongly ?
  r5 <- suppressWarnings(# Warning "text connection used with readChar(), .."
  readChar(incoming, 100))
+ print(cbind(r1,r3,r4,r5)[1,])
  stopifnot(identical(cbind(r1,r3,r4,r5)[1,],
  c(r1 = "hello", r3 = "again1",
  r4 = "again2",r5 = "again3\n")))