tests/testthat/test-get_description.R

In rworkflows: Test, Document, Containerise, and Deploy R Packages

if (!is_gha()) testthat::skip_if_offline(host = "github.com")
test_that("get_description works", {
  
  run_tests <- function(dl){
    for(i in seq_len(length(dl))){
      d <- dl[[i]]
      testthat::expect_true(methods::is(d,"description"))
      testthat::expect_equal(basename(names(dl)[i]),
                             d$get_field("Package"))
    }
  }
   
  d1 <- get_description(refs="neurogenomics/rworkflows") 
  d2 <- get_description(refs="neurogenomics/rworkflows", 
                        paths=here::here("typo","DESCRIPTION")) 
  
  d3 <- get_description(refs="neurogenomics/rworkflows", 
                        paths="typo")
  d4 <- get_description(refs="rworkflows", 
                        paths="typo")
  d5 <- get_description(refs="typoooo", 
                        paths="typo")
  d6 <- get_description(refs=NULL, 
                        paths="typo")
  d7 <- get_description(refs=NULL,
                        paths=system.file("DESCRIPTION", package="rworkflows")
                        )
  d8 <- get_description(refs=c("stats","data.table"), 
                        paths=NULL)
  tmp <- tempfile()
  utils::download.file("https://github.com/neurogenomics/MAGMA_Celltyping/raw/master/DESCRIPTION",tmp)
  d9 <- get_description(refs="MAGMA_Celltyping",
                        paths=tmp) 
  d10 <- get_description(refs = "ABSSeq", 
                         use_wd = FALSE,
                         db = rworkflows::biocpkgtools_db,
                         use_repos = TRUE)
  d11 <- get_description(refs = d1)
  d12 <- get_description(paths = d1)
  
  run_tests(d1)
  run_tests(d2)
  run_tests(d3)
  run_tests(d4) 
  run_tests(d8) 
  testthat::expect_true(methods::is(d9[[1]],"description"))
  run_tests(d10) 
  run_tests(d11) 
  run_tests(d12) 
  testthat::expect_equal(d2$`neurogenomics/rworkflows`,
                         d1$`neurogenomics/rworkflows`) 
  testthat::expect_equal(d3,d1)
  testthat::expect_equal(d4$rworkflows,
                         d1$`neurogenomics/rworkflows`)
  testthat::expect_null(d5$typoooo)
  testthat::expect_null(d6[[1]])
  
  
  testthat::expect_equal(d7[[1]],
                         d1[[1]])

  #### Search CRAN/Bioc repos ####
  if (!is_gha()) testthat::skip_if_offline(host = "bioconductor.org")
  #### Run first time ####
  d13a <- get_description(refs="ABSSeq",
                         db = rworkflows::biocpkgtools_db,
                         use_repos = TRUE)
  testthat::expect_equal(d13a[[1]],
                         d1[[1]])
  #### Rerun to use stored DESCRITPION files ####
  d13b <- get_description(refs="ABSSeq",
                         db = rworkflows::biocpkgtools_db,
                         use_repos = TRUE)
  testthat::expect_equal(d13b[[1]],
                         d1[[1]])
  #### Unable to find pkg info ####
  testthat::expect_null(
    get_description(refs="typooo",
                    db = rworkflows::biocpkgtools_db,
                    use_repos = TRUE)
  )
  #### Gather remote data ####
  d13c <- get_description(refs="ABSSeq",
                          db = NULL,
                          use_repos = TRUE,
                          repo = "BioCsoft")
  testthat::expect_equal(d13c[[1]],
                         d1[[1]])
  #### Search GitHub repos ####
  d14 <- get_description(refs="neurogenomics/orthogene",
                         paths=NULL,
                         use_wd = FALSE) 
  testthat::expect_true(methods::is(d14[[1]],"description"))
})