tests/testthat/test-colon.R

In robertzk/module: module (http://github.com/robertzk/module)

context("colon operator")

describe("Fail cases", {
  test_that("it fails as usual for non-module inputs", {
    bag_of_objects2 <- Filter(function(x) !is.numeric(x) && !is.complex(x), bag_of_objects)
    lapply(bag_of_objects2, function(x) lapply(bag_of_objects2, function(y) {
      expect_error(x:y)
    }))
  })
})

describe("Trivial checks", {
  test_that("it continues working on numerical inputs", {
    numbers <- list(1L, 2.0, 3.0 + 3.0i)
    lapply(numbers, function(x) lapply(numbers, function(y) {
      expect_equal(suppressWarnings(x:y), suppressWarnings(.Primitive(":")(x, y)))
    }))
  })
})