tests/testthat/test-make_with_dir.R

In makepipe: Pipeline Tools Inspired by 'GNU Make'

# Tempfiles --------------------------------------------------------------------
target1 <- tempfile(fileext=".csv")
target2 <- tempfile(fileext=".txt")
target3 <- tempfile(fileext=".txt")

# make_with_dir ----------------------------------------------------------------
test_that("make_with_dir ignores scripts without @makepipe", {
  reset_pipeline()
  p <- make_with_dir(
    system.file("tests", "make_with_dir_ok", package = "makepipe"),
    build=FALSE
  )

  # redundant has been ignored
  expect_length(p$segments, 2)

  # Targets have been evaluated
  expect_equal(
    p$segments[[1]]$targets,
    target1
  )
  expect_equal(
    p$segments[[2]]$targets,
    target2
  )

  # Warn if nothing found
  expect_warning(
    make_with_dir(system.file("tests", package = "makepipe"), build=FALSE),
    "No `@makepipe` tags found"
  )
})

test_that("make_with_dir evaluates tags using parent environment", {
  reset_pipeline()
  p <- make_with_dir(
    system.file("tests", "make_with_dir_ok", package = "makepipe"),
    build=FALSE
  )

  expect_equal(
    p$segments[[1]]$targets,
    target1
  )

  expect_equal(
    p$segments[[2]]$targets,
    target2
  )

  expect_error(
    make_with_dir(
      system.file("tests", "make_with_dir_ok", package = "makepipe"),
      build=FALSE, envir = new.env(parent=emptyenv()) # Doesn't have target1 etc
    )
  )
})

test_that("make_with_dir finds scripts in subdir if told to", {
  reset_pipeline()
  p <- make_with_dir(
    system.file("tests", "make_with_dir_ok", package = "makepipe"),
    build=FALSE, recursive = TRUE
  )

  # source3 has been ignored
  expect_length(p$segments, 3)

  # Targets have been evaluated
  expect_equal(
    p$segments[[3]]$targets,
    target3
  )
})

test_that("make_with_dir warns if more than one @makepipe tag", {
  reset_pipeline()
  expect_warning(make_with_dir(
    system.file("tests", "make_with_dir_warn", package = "makepipe"),
    build=FALSE
  ), "More than one")
})


# make_with_roxy ---------------------------------------------------------------
test_that("make_with_roxy warns on scripts without @makepipe", {
  reset_pipeline()

  # Warn if nothing found
  fp <- system.file("tests", "source1.R", package = "makepipe")
  expect_warning(make_with_roxy(fp), "No `@makepipe` tag found")

  # Warn if no makepipe tag
  fp <- system.file("tests", "make_with_dir_ok", "redundant.R", package = "makepipe")
  expect_warning(make_with_roxy(fp), "No `@makepipe` tag found")
})

# Unlink -----------------------------------------------------------------------
unlink(c("target1", "target2", "target3"))