1context("DESCRIPTION checks")
2
3test_that("Parse DESCRIPTION file", {
4  pkg <- pkg_desc("testNamespace")
5
6  expect_identical(package_version("0.1"), pkg$get_version())
7  expect_identical("testNamespace", pkg_name("testNamespace"))
8})
9