tests/testthat/test-makeParse.R

In dougmet/makeparse: Parse the GNU make database

context("makeParse function")

test_that("top level function runs", {

  result <- makeParse("mkdb.txt")

  # Nothing to demanding just yet
  expect_is(result, "list")

  expect_gt(length(result), 0)
})

test_that("Can run make", {

  result <- makeParse(makefile = "test.makefile")

  # Nothing to demanding just yet
  expect_is(result, "list")

  expect_gt(length(result), 0)

  unlink("count_test_lines.txt")

})