test_set_interval.R
In set6: R6 Mathematical Sets Interface

library(testthat)

context("Interval")

test_that("construction", {
  expect_silent(Interval$new())
  expect_silent(Interval$new(lower = 1, upper = 3))
  expect_silent(Interval$new(type = "()"))
  expect_silent(Interval$new(type = "[]"))
  expect_silent(Interval$new(class = "integer"))
  expect_error(Interval$new(lower = 0, upper = -10))
  expect_error(Interval$new(type = "{}"))
  expect_error(Interval$new(class = "character"))
})

test_that("inherited_methods", {
  expect_equal(Interval$new(1, 2)$type, "[]")
  expect_equal(Interval$new(1, 2)$max, 2)
  expect_equal(Interval$new(1, 2)$min, 1)
  expect_equal(Interval$new(1, 2, type = "()")$max, 2 - 1.1e-15)
  expect_equal(Interval$new(1, 2, type = "()")$min, 1 + 1.1e-15)
  expect_equal(Interval$new(1, 2)$upper, 2)
  expect_equal(Interval$new(1, 2)$lower, 1)
  expect_equal(Interval$new(1, 2)$class, "numeric")
  expect_equal(Interval$new(1, 3)$range, 2)
  expect_silent(setcomplement(Interval$new(1, 10)))
  expect_equal(
    setcomplement(Interval$new(1, 10, universe = Interval$new(1, 15))),
    Interval$new(10, 15, type = "(]")
  )
})

test_that("properties", {
  useUnicode(TRUE)
  expect_equal(Interval$new()$properties$countability, "uncountable")
  expect_equal(Interval$new()$properties$cardinality, "Beth1")
  useUnicode(TRUE)
  expect_equal(Interval$new(1, 5, class = "integer")$properties$countability, "countably finite")
  expect_equal(Interval$new(1, 5, class = "integer")$properties$cardinality, 5)
  expect_equal(Interval$new(class = "integer")$properties$countability, "countably infinite")
  expect_equal(Interval$new(class = "integer")$properties$cardinality, "Aleph0")
  expect_equal(Interval$new(class = "integer")$properties$strprint()$cardinality, "\u2135\u2080")
  useUnicode(TRUE)
})

test_that("elements", {
  expect_equal(Interval$new(1, 10, class = "numeric")$elements, NA)
  expect_equal(Interval$new(1, class = "integer")$elements, NA)
  expect_equal(Interval$new(1, 10, class = "integer")$elements, 1:10)
})

test_that("length", {
  expect_equal(Interval$new(1, 10, class = "numeric")$length, Inf)
  expect_equal(Interval$new(1, Inf, class = "integer")$length, Inf)
  expect_equal(Interval$new(1, 10, class = "integer")$length, 10)
  expect_equal(Interval$new(1, 1)$length, 1)
})

test_that("equals", {
  expect_true(Interval$new(1, 4)$equals(Interval$new(1, 4)))
  expect_true(Interval$new(1, 4, class = "integer")$equals(Set$new(1:4)))
  expect_false(Interval$new(1, 4)$equals(Set$new(1:4)))
  expect_false(Interval$new(1, 4, class = "numeric")$equals(Interval$new(1, 4, class = "integer")))
  expect_false(Interval$new(1, 4)$equals(Interval$new(1, 4, type = "(]")))
  expect_false(Interval$new(1, 4) != Interval$new(1, 4))
})

test_that("strprint", {
  expect_equal(Interval$new()$strprint(), "[-\u221E,+\u221E]")
  expect_equal(Interval$new(1, 10, type = "(]")$strprint(), "(1,10]")
  expect_equal(Interval$new(1, 3)$strprint(), "[1,3]")
  expect_equal(Interval$new(1, 3, class = "integer")$strprint(), "{1,...,3}")
})

test_that("contains", {
  x <- Interval$new(1, 10, type = "[]")
  y <- Interval$new(1, 10, type = "()")
  expect_equal(x$contains(c(1, 2.5, 10, 11)), c(TRUE, TRUE, TRUE, FALSE))
  expect_equal(y$contains(c(1, 2.5, 10, 11)), c(FALSE, TRUE, FALSE, FALSE))
  expect_equal(y$contains(c(1, 2.5, 10, 11), bound = TRUE), c(TRUE, TRUE, TRUE, FALSE))
  expect_false(x$contains(c(1, 2.5, 10, 11), all = T))
  expect_true(x$contains(c(1.1, 9.99), all = T))
  expect_equal(Interval$new(1, 10)$contains(list(1, "a")), c(TRUE, FALSE))
  expect_true(Interval$new(1, 5, class = "integer")$contains(c(2, 3, 4), all = T))
})

test_that("isSubset", {
  expect_true(Interval$new(2, 3) < Interval$new(1, 4))
  expect_true(Interval$new(1, 3) < Interval$new(1, 4))
  expect_true(Interval$new(2, 4) < Interval$new(1, 4))
  expect_false(Interval$new(1, 4) < Interval$new(1, 4))
  expect_true(Interval$new(1, 4) <= Interval$new(1, 4))
  expect_true(Set$new(2, 3) < Interval$new(1, 4))
  expect_false(Interval$new()$isSubset(1))
  expect_true(Interval$new()$isSubset(Set$new()))

  expect_true(Interval$new(1, 3)$isSubset(Set$new(1, 2)))
  expect_true(Interval$new(1, 3)$isSubset(Set$new(2, 1)))
  expect_true(Reals$new()$isSubset(Integers$new()))
})

test_that("isSubinterval", {
  expect_true(Interval$new(1, 4)$isSubinterval(Interval$new(2, 3)))
  expect_true(Interval$new(1, 4)$isSubinterval(Interval$new(1, 3)))
  expect_true(Interval$new(1, 4)$isSubinterval(Interval$new(2, 4)))
  expect_false(Interval$new(1, 4)$isSubinterval(Interval$new(1, 4), proper = TRUE))
  expect_true(Interval$new(1, 4)$isSubinterval(Interval$new(1, 4), proper = FALSE))
  expect_false(Interval$new(1, 4)$isSubinterval(Set$new(1, 2, 3)))
  expect_false(Interval$new(1, 4)$isSubinterval(Set$new(3, 2, 1)))
  expect_true(Interval$new(1, 4, class = "integer")$isSubinterval(Set$new(1, 2, 3)))

  expect_true(Interval$new(1, 4)$isSubinterval(Interval$new(2, 3), proper = TRUE))
  expect_false(Interval$new(1, 4)$isSubinterval(Interval$new(0, 3), proper = FALSE))

  expect_true(Interval$new(1, 3, class = "integer")$isSubinterval(Set$new(1, 2)))
  expect_false(Interval$new(1, 3)$isSubinterval(Set$new(1, 2)))
  expect_false(Interval$new(1, 3)$isSubinterval(Set$new(2, 1)))
  expect_false(Reals$new()$isSubinterval(Integers$new()))

  expect_false(Interval$new()$isSubinterval(1))
  expect_false(Interval$new()$isSubinterval(FuzzySet$new(2, 0.2)))
  expect_true(Interval$new()$isSubinterval(Set$new()))
})

test_that("coercions", {
  expect_equal(as.double(Interval$new(1, 5, class = "integer")), 1:5)
  expect_error(expect_equal(as.Interval(Set$new(1, 5)), Set$new(1, 5)), "Cannot be")
  expect_error(expect_equal(as.Interval(ConditionalSet$new(function(x) TRUE)), ConditionalSet$new(function(x) TRUE)), "ConditionalSet cannot be")
  expect_error(expect_equal(as.Interval(c(1, 5)), c(1, 5)), "Cannot be")
  expect_equal(as.Interval(Set$new(1)), Interval$new(1, 1))
  expect_equal(as.Interval(FuzzySet$new(1, 0.1, 2, 0.3, 3, 0.4, 4, 0)), Interval$new(1, 3, class = "integer"))
  expect_equal(as.Interval(list(lower = 1, upper = 2, type = "[]", class = "numeric")), Interval$new(1, 2))
  expect_equal(
    as.Interval(data.frame(lower = 1, upper = 2, type = "[]", class = "numeric", stringsAsFactors = FALSE)),
    Interval$new(1, 2)
  )
  expect_equal(as.Interval(1:10), Interval$new(lower = 1, upper = 10, class = "integer"))
  expect_equal(as.Interval(matrix(1:10)), Interval$new(lower = 1, upper = 10, class = "integer"))
})