tests/testthat/testupdateGEOdata.R

In jasdumas/shinyGEO: Gene Expression Omnibus Analysis with Shiny

library(shinyGEO)
context("Update meta data")

# test_that("updateGEOdata starts", {
#   expect_null(updateGEOdata())
# })

# test_that("updateGEOdata generates csv files", {
#   expect_output_file(updateGEOdata(), file = "inst/extdata/series.csv", update=F)
#   expect_output_file(updateGEOdata(), file = "inst/extdata/platform.csv", update=T)
#
# })

# test_that("updateGEOdata generates rda files", {
#   skip_on_cran()
#   skip_if_not_installed()
#   expect_output_file(updateGEOdata(), file = "data/platforms.RData", update=T)
#   expect_output_file(updateGEOdata(), file = "data/series.RData", update=T)
# })