tests/testthat/test-1-github-functions.R

In miniCRAN: Create a Mini Version of CRAN Containing Only Selected Packages

if (interactive()) library(testthat)

# Copyright (c) Andrie de Vries 2018


test_that("package file extension is computed correctly", {
  expect_equal(pkgFileExt("source"), ".tar.gz")
  expect_equal(pkgFileExt("win.binary"), ".zip")
  expect_equal(pkgFileExt("mac.binary"), ".tgz")
  expect_error(pkgFileExt("nonsense"))
})

test_that("package verson is extracted correctly", {
  skip_on_cran()
  ff <- c(
    "KernSmooth_2.23-15.tar.gz",
    "MASS_7.3-47.tar.gz",
    "Matrix_1.2-12.tar.gz",
    "boot_1.3-20.tar.gz"
  )
  df <- data.frame(
    package = c("boot", "KernSmooth", "MASS", "Matrix"),
    version = c("1.3-20", "2.23-15", "7.3-47", "1.2-12"),
    stringsAsFactors = FALSE
  )
  
  # <don't understand> why we need to reorder to get tests to pass
  df <- df[order(df$package), ]
  row.names(df) <- seq_len(nrow(df))
  # </don't understand>
  
  expect_equal(
    getPkgVersFromFile(ff),
    df
  )

  expect_equal(
    getPkgVersFromFile("nonsense"),
    data.frame(package = character(0), version = character(0), stringsAsFactors = FALSE)
  )
})

test_that("readDescription reads file", {
  sf <- system.file("DESCRIPTION", package = "miniCRAN")
  desc <- readDescription(sf)

  expect_type(desc, "list")
  expect_true(
    all(c("Imports", "Suggests", "Package") %in% names(desc))
  )
})