From 7aa22ee6b245b9308352acd66384373a99376c13 Mon Sep 17 00:00:00 2001 From: Jan Gorecki Date: Wed, 16 Dec 2020 21:32:34 +0200 Subject: [PATCH] extra print in test summary (#4850) --- R/test.data.table.R | 2 +- inst/tests/tests.Rraw | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/R/test.data.table.R b/R/test.data.table.R index 67e4ce6d8..c5da3e0ba 100644 --- a/R/test.data.table.R +++ b/R/test.data.table.R @@ -177,7 +177,7 @@ test.data.table = function(script="tests.Rraw", verbose=FALSE, pkg=".", silent=F cat("10 longest running tests took ", as.integer(tt<-DT[, sum(time)]), "s (", as.integer(100*tt/(ss<-timings[,sum(time)])), "% of ", as.integer(ss), "s)\n", sep="") print(DT, class=FALSE) - cat("All ",ntest," tests in ",names(fn)," completed ok in ",timetaken(env$started.at),"\n",sep="") + cat("All ",ntest," tests (last ",env$prevtest,") in ",names(fn)," completed ok in ",timetaken(env$started.at),"\n",sep="") ## this chunk requires to include new suggested deps: graphics, grDevices #memtest.plot = function(.inittime) { diff --git a/inst/tests/tests.Rraw b/inst/tests/tests.Rraw index d26f7ff50..390fadd0f 100644 --- a/inst/tests/tests.Rraw +++ b/inst/tests/tests.Rraw @@ -12899,7 +12899,7 @@ for (col in c('b', 'c')) { # # tests-S4.R (S4 Compatability) # -suppressWarnings(setClass("Data.Table", contains="data.table")) # suppress 'Created a package name, ‘2018-05-26 06:14:43.444’, when none found' +suppressWarnings(setClass("Data.Table", contains="data.table")) # suppress "Created a package name, '2018-05-26 06:14:43.444', when none found" suppressWarnings(setClass("S4Composition", representation(data="data.table"))) # data.table can be a parent class ids <- sample(letters[1:3], 10, replace=TRUE)