tests/testthat/test-utils.R

In gaborcsardi/argufy: Declerative Arguments Checks

context("Utilities")

test_that("find_parent", {

  f <- function() {
    foo <- "bar"
    g()
  }

  g <- function() {
    parent <- find_parent(quote(f))
    expect_equal(
      get("foo", envir = sys.frame(parent)),
      "bar"
    )
  }

  f()
})

test_that("find_all_parents", {

  f <- function(recurse = FALSE) {
    foo <- "bar"
    if (recurse) f() else g()
  }

  g <- function() {
    parents <- find_all_parents(quote(f))
    expect_equal(length(parents), 2)
    expect_equal(
      get("foo", envir = sys.frame(parents[1])),
      "bar"
    )
    expect_equal(
      get("foo", envir = sys.frame(parents[2])),
      "bar"
    )
  }

  f(recurse = TRUE)
})

test_that("parse_deps", {

  test_cases <- list(
    list("foo, bar, foobar", c("foo", "bar", "foobar")),
    list("foo,\n  bar,\n  foobar", c("foo", "bar", "foobar")),
    list("foo", "foo"),
    list("foo (>= 1.0)", "foo"),
    list("foo (>= 1.0), bar", c("foo", "bar")),
    list("foo, bar (>=0.2-3)", c("foo", "bar")),
    list("", character(0)),
    list("\n\n", character(0))
  )

  lapply(test_cases, function(t) {
    expect_equal(parse_deps(t[[1]]), t[[2]], info = t[[1]])
  })
})

test_that("str_trim", {

  res <- "foo"

  expect_equal(str_trim(""), "")
  expect_equal(str_trim(" "), "")
  expect_equal(str_trim("\n"), "")
  expect_equal(str_trim("\t"), "")
  expect_equal(str_trim(" \n\t\n "), "")
  expect_equal(str_trim(res), res)

  expect_equal(str_trim("foo "), res)
  expect_equal(str_trim(" foo"), res)
  expect_equal(str_trim(" foo "), res)

  expect_equal(str_trim("foo  "), res)
  expect_equal(str_trim("  foo "), res)
  expect_equal(str_trim("  foo  "), res)

  expect_equal(str_trim("foo\n "), res)
  expect_equal(str_trim(" \nfoo"), res)
  expect_equal(str_trim(" \n foo \n "), res)

  expect_equal(str_trim("foo\t"), res)
  expect_equal(str_trim("\tfoo"), res)
  expect_equal(str_trim("\tfoo\n"), res)
})