Nothing
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("wordy versions are deprecated", {
expect_warning(expect_less_than(1, 2), "Deprecated")
expect_warning(expect_more_than(2, 1), "Deprecated")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.