tests/testthat/test-expect-comparison.R

test_that("basic comparisons work", {
  expect_success(expect_lt(10, 11))
  expect_failure(expect_lt(10, 10))
  expect_success(expect_lte(10, 10))

  expect_success(expect_gt(11, 10))
  expect_failure(expect_gt(10, 10))
  expect_success(expect_gte(10, 10))
})

test_that("comparison result object invisibly", {
  out <- expect_invisible(expect_lt(1, 10))
  expect_equal(out, 1)
})

test_that("comparisons with Inf work", {
  expect_success(expect_lt(10, Inf))
  expect_failure(expect_lt(Inf, Inf))
  expect_success(expect_lte(Inf, Inf))

  expect_success(expect_gt(Inf, 10))
  expect_failure(expect_gt(Inf, Inf))
  expect_success(expect_gte(Inf, Inf))
})

test_that("comparisons with NA work", {
  expect_failure(expect_lt(10, NA_real_))
  expect_failure(expect_lt(NA_real_, 10))
  expect_failure(expect_lt(NA_real_, NA_real_))
  expect_failure(expect_lte(NA_real_, NA_real_))

  expect_failure(expect_gt(10, NA_real_))
  expect_failure(expect_gt(NA_real_, 10))
  expect_failure(expect_gt(NA_real_, NA_real_))
  expect_failure(expect_gte(NA_real_, NA_real_))
})

test_that("comparisons with more complicated objects work", {
  time <- Sys.time()
  time2 <- time + 1
  expect_success(expect_lt(time, time2))
  expect_success(expect_lte(time, time2))
  expect_success(expect_gt(time2, time))
  expect_success(expect_gte(time2, time))
})

test_that("comparison must yield a single logical", {
  expect_error(expect_lt(1:10, 5), "single logical")
})

test_that("wordly versions are deprecated", {
  expect_warning(expect_less_than(1, 2), "Deprecated")
  expect_warning(expect_more_than(2, 1), "Deprecated")
})
r-lib/testthat documentation built on April 19, 2019, 7:05 p.m.