tests/testthat/test-create-package-description.r

In rbundler: Rbundler manages an application's dependencies systematically and repeatedly.

context("rbundler can create a package description dynamically")

test_that('we can create a dependency clause for the package description',
  {
    dependencies <- data.frame(type=c('Depends', 'Suggests'), package=c('foo', 'bar'),compare=c(NA, '=='), version=c(NA, '1'))
    clause <- dependency_clauses(dependencies)
    expect_equal(clause, "Depends:\n    foo\nSuggests:\n    bar (== 1)")
  }
)

test_that('we can create a simple package description with no dependencies',
  {
  expected <- "Package: nodependencies
Title: A mock package with no dependencies.
License: GPL-2
Description:
Author: Foo Bar <foo.bar@gmail.com>
Maintainer: Foo Bar <foo.bar@gmail.com>
Version: 0.1
Collate:
    ''
"
    name <- 'nodependencies'
    title <- 'A mock package with no dependencies.'
    dependencies <- data.frame(type = c(), package=c(), compare=c(), version=c())
    actual <- create_package_description(name=name, title=title, dependencies=dependencies)
    expect_equal(actual, expected)
  }
)

test_that('we can create a simple package description with versioned and unversioned dependencies',
  {
  expected <- "Package: simpledependency
Title: A mock package with a single dependency.
License: GPL-2
Description:
Author: Foo Bar <foo.bar@gmail.com>
Maintainer: Foo Bar <foo.bar@gmail.com>
Version: 0.1
Depends:
    foo
Suggests:
    bar (== 1)
Collate:
    ''
"
    name <- 'simpledependency'
    title <- 'A mock package with a single dependency.'
    dependencies <- data.frame(type = c('Depends', 'Suggests'), package=c('foo', 'bar'), compare=c(NA, '=='), version=c(NA, '1'))
    actual <- create_package_description(name=name, title=title, dependencies=dependencies)
    expect_equal(actual, expected)
  }
)