diff --git a/ChangeLog b/ChangeLog index 2e794250..ee621e20 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2020-07-17 FelixErnst + + * tests/skeleton_get2r.R: Fixed issue for pruning on r-oldrel + 2020-07-10 Dirk Eddelbuettel * DESCRIPTION (Version): Release 0.1.7 diff --git a/tests/skeleton_git2r.R b/tests/skeleton_git2r.R index d0ada71f..8f42f157 100644 --- a/tests/skeleton_git2r.R +++ b/tests/skeleton_git2r.R @@ -96,9 +96,16 @@ testRepoActions <- function(repodir){ # repoinfo <- drat::pruneRepo(repopath = repodir, remove = TRUE) # - repoinfo <- drat:::getRepoInfo(repopath = repodir, version = NA) - if(nrow(repoinfo) != 6L){ - stop("Wrong package files found after pruning for version = NA") + repoinfo <- drat:::getRepoInfo(repopath = repodir, version = NA, + type = c("source","binary")) + if(getRversion() < package_version("4.0")){ + if(nrow(repoinfo) != 4L){ + stop("Wrong package files found after pruning for version = NA") + } + } else { + if(nrow(repoinfo) != 6L){ + stop("Wrong package files found after pruning for version = NA") + } } repoinfo2 <- drat::pruneRepoForAllRversions(repopath = repodir, remove = TRUE) if(nrow(repoinfo2) != 4L){