tests/testthat/test_package_description.R

In o2r-project/containerit: Package R in Docker Containers

# Copyright 2018 Opening Reproducible Research (https://o2r.info)

context("Packaging a DESCRIPTION file")

test_that("version tag can be extracted from DESCRIPTION object", {
  description <- desc::desc(file = "package_description/DESCRIPTION")
  version <- getRVersionTag(description)
  expect_equal(version, "3.4.0")
})

test_that("a DESCRIPTION _file_ can be packaged", {
  output <- capture_output(
    the_dockerfile <- dockerfile(from = "package_description/DESCRIPTION",
                                 maintainer = "o2r")
  )
  # write(the_dockerfile, file = "package_description/Dockerfile")
  expected_file <- readLines("package_description/Dockerfile")
  expect_equal(capture.output(print(the_dockerfile)), expected_file)
})

test_that("a DESCRIPTION _object_ can be packaged", {
  description <- desc::desc(file = "package_description/DESCRIPTION")
  output <- capture_output(
    the_dockerfile <- dockerfile(from = description,
                                 maintainer = "o2r")
  )
  expected_file <- readLines("package_description/Dockerfile")
  expect_equal(capture.output(print(the_dockerfile)), expected_file)
})

test_that("a DESCRIPTION of an installed package can be packaged", {
  output <- capture_output(
    the_dockerfile <- dockerfile(from = desc::desc(package = "sf"),
                                 maintainer = "o2r")
  )
  # write(the_dockerfile, file = "package_description/Dockerfile.sf")

  expected_file <- readLines("package_description/Dockerfile.sf")
  expect_equal(capture.output(print(the_dockerfile)), expected_file)
})

test_that("the version of the packaged DESCRIPTION package can be installed", {
  output <- capture_output(
    the_dockerfile <- dockerfile(from = "package_description/DESCRIPTION",
                                 maintainer = "o2r",
                                 versioned_packages = TRUE)
  )
  # write(the_dockerfile, file = "package_description/Dockerfile.versioned")
  expected_file <- readLines("package_description/Dockerfile.versioned")
  expect_equal(capture.output(print(the_dockerfile)), expected_file)
})

test_that("the version of the packaged DESCRIPTION's imports are be installed", {
  output <- capture_output(
    the_dockerfile <- dockerfile(from = desc::desc(package = "sf"),
                                 maintainer = "o2r",
                                 versioned_packages = TRUE)
  )
  # write(the_dockerfile, file = "package_description/Dockerfile.sf.versioned")
  expected_file <- readLines("package_description/Dockerfile.sf.versioned")
  expect_equal(capture.output(print(the_dockerfile)), expected_file)
})

test_that("the Dockerfile (unversioned) can be built and run", {
  skip_if_not(stevedore::docker_available())

  output <- capture_output(
    the_dockerfile <- dockerfile(from = "package_description/DESCRIPTION",
                                                        maintainer = "o2r")
  )

  the_dockerfile_dir <- tempdir()
  write(x = the_dockerfile, file = file.path(the_dockerfile_dir, "Dockerfile"))

  output <- capture_output({
    client <- stevedore::docker_client()
    build <- client$image$build(context = the_dockerfile_dir,
                                dockerfile = "Dockerfile",
                                tag = "containerit_test_description_file")
    run <- client$container$run(image = build$id(), rm = TRUE, cmd = c('Rscript',
                                                                       '-e', 'library(\"units\");',
                                                                       '-e', 'library(\"yaml\");',
                                                                       '-e', 'sessionInfo();'))
  })

  expect_match(toString(run$logs), "R version 3.4.0")
  expect_match(toString(run$logs), "units_")
  expect_match(toString(run$logs), "yaml_2.1.17")
})

test_that("a DESCRIPTION can be used together with copy", {
  output <- capture_output(
    the_dockerfile <- dockerfile(from = "package_description/DESCRIPTION",
                                 maintainer = "o2r",
                                 copy = c("package_description/hello.txt"))
  )
  # write(the_dockerfile, file = "package_description/Dockerfile.copy")

  expected_file <- readLines("package_description/Dockerfile.copy")
  expect_equal(capture.output(print(the_dockerfile)), expected_file)
})