tests/testthat/test-utils.R

In travisbyrum/clinkr: Composable Command Line Interfaces in R

context("Testing Utils")

### Testing is_truthy -------------------------------------------------------------------
test_that("is_truthy", {
  expect_false(is_truthy(NA))
  expect_false(is_truthy(NULL))
  expect_false(is_truthy(character(0)))
  expect_false(is_truthy(logical(0)))
  expect_false(is_truthy(numeric(0)))
  expect_false(is_truthy(''))
})

### Testing null default pipe -----------------------------------------------------------
test_that("pipe", {
  test_one <- 'a' %||% NULL
  test_two <- NULL %||% 'a'

  expect_equal(test_one, 'a')
  expect_equal(test_two, 'a')
})

### Testing arg scrubbing expansion -----------------------------------------------------
test_that("expand short flags", {
  test_args <- c('-vac')

  expect_equal(
    scrub_args(args = test_args),
    c('-v', '-a', '-c')
  )

  test_args <- c('-vac', '--verbose', '-vac', '--verbose')
  expect_equal(
    scrub_args(args = test_args),
    c('-v', '-a', '-c', '--verbose')
  )

  test_args <- c(1, 'test', '--verbose', '-vac', '--verbose')
  expect_equal(
    scrub_args(args = test_args),
    c('1', 'test', '--verbose', '-v', '-a', '-c')
  )
})