tests/testthat/test-max-integer.R

context("max-integer")

test_that("max_integer works", {
  expect_true(length(max_integer()) == 1)
  expect_is(max_integer(), "integer")
  expect_identical(max_integer(), .Machine$integer.max)
})

Try the datacheckr package in your browser

Any scripts or data that you put into this service are public.

datacheckr documentation built on May 30, 2017, 6:05 a.m.