Use try_again() for Zotero tests for CRAN

Author: mwmclean

tests/testthat/test-zotero.R

@@ -11,42 +11,55 @@ expect_length <- function(expr, len){
 test_that("basic Zotero search", {
    ## if (httr::http_error("https://api.zotero.org/users"))
     ##     skip("Couldn't connect to Zotero")
-    res <- ReadZotero(user='1648676',
+    try_again(5,
+    {
+        res <- ReadZotero(user='1648676',
                       .params=list(q='bayesian',
                                    key='7lhgvcwVq60CDi7E68FyE3br', limit=2))
-   if (!length(res))
-       skip("Couldn't connect to Zotero")
-   expect_length(res, 2L)
+        if (!length(res))
+            skip("Couldn't connect to Zotero")
+        expect_length(res, 2L)
+    })
 })
 
 test_that("Search specific collection", {
-   ## if (httr::http_error("https://api.zotero.org/users"))
+    ## if (httr::http_error("https://api.zotero.org/users"))
     ##   skip("Couldn't connect to Zotero")
-   Sys.sleep(2)
-   res <- ReadZotero(user='1648676',
+    try_again(5,
+    {
+        Sys.sleep(2)
+        res <- ReadZotero(user='1648676',
                      .params=list(q='yu', key='7lhgvcwVq60CDi7E68FyE3br',
                                   collection='3STEQRNU'))
-   if (!length(res))
-       skip("Couldn't connect to Zotero")
-   expect_length(res, 3L)
+        if (!length(res))
+            skip("Couldn't connect to Zotero")
+        expect_length(res, 3L)
+    })
 })
 
 test_that("Search by tag", {
-   ## Notice issue with how Zotero uses Techreport entry for arXiv manuscripts
-   ## if (httr::http_error("https://api.zotero.org/users"))
-   ##     skip("Couldn't connect to Zotero")
-   Sys.sleep(2)
-   BibOptions(check.entries = "error")
-   res <- suppressMessages(ReadZotero(user='1648676',
-                            .params=list(key='7lhgvcwVq60CDi7E68FyE3br',
-                                         tag='Statistics - Machine Learning')))
-   
-   expect_length(res, 0L)
-   BibOptions(check.entries = FALSE)
-   res <- suppressMessages(ReadZotero(user='1648676',
-                                  .params=list(key='7lhgvcwVq60CDi7E68FyE3br',
-                                      tag='Statistics - Machine Learning')))
-   if (!length(res))
-       skip("Couldn't connect to Zotero")
-   expect_length(res, 10L)
+    ## Notice issue with how Zotero uses Techreport entry for arXiv manuscripts
+    ## if (httr::http_error("https://api.zotero.org/users"))
+    ##     skip("Couldn't connect to Zotero")
+    try_again(5,
+    {
+        Sys.sleep(2)
+        BibOptions(check.entries = "error")
+        res <- suppressMessages(ReadZotero(user='1648676',
+                                .params=list(key='7lhgvcwVq60CDi7E68FyE3br',
+                                             tag='Statistics - Machine Learning')))
+
+        expect_length(res, 0L)
+    })
+
+    try_again(5,
+    {
+       BibOptions(check.entries = FALSE)
+       res <- suppressMessages(ReadZotero(user='1648676',
+                                      .params=list(key='7lhgvcwVq60CDi7E68FyE3br',
+                                          tag='Statistics - Machine Learning')))
+       if (!length(res))
+           skip("Couldn't connect to Zotero")
+       expect_length(res, 10L)
+    })
 })