1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
Description: Drop test that is requiring remote access
Author: Andreas Tille <tille@debian.org>
Last-Update: Tue, 08 Mar 2022 12:21:51 +0100
--- a/inst/unitTests/test_cache.R
+++ b/inst/unitTests/test_cache.R
@@ -31,17 +31,3 @@ test_cache <- function(){
removeCache(ah, ask=FALSE)
}
-test_cache_download_ok_maxdownloads<- function() {
- FUN <- AnnotationHub:::.cache_download_ok
- hub <- AnnotationHub()
-
- checkIdentical(rep(TRUE, 3), unname(FUN(hub, rep(tempfile(), 3), 3,force=FALSE, verbose=FALSE)))
- cachepath <- AnnotationHub:::.named_cache_path(hub[1:3])
- paths <- cache(hub[1:3])
- checkIdentical(rep(FALSE,3), unname(FUN(hub, cachepath, 3, force=FALSE, verbose=FALSE)))
- checkIdentical(rep(TRUE, 3), unname(FUN(hub, cachepath, 3, force=TRUE,
- verbose=FALSE)))
- if (!interactive()){
- checkException(FUN(hub, cachepath, max.downloads=2, force=TRUE, verbose=FALSE))
- }
-}
|
