tests/testthat/test_set_tuple.R

In set6: R6 Mathematical Sets Interface

library(testthat)

context("tuple")

test_that("construction", {
  expect_silent(Tuple$new(1, 2, 3))
  expect_silent(Tuple$new(1, 2, 3, 1))
  expect_silent(Tuple$new("A", TRUE, as.factor("a")))
  expect_silent(Tuple$new(1 + 0i, 2, 2L, 5.67))
  expect_silent(Tuple$new(1:10))
  expect_silent(Tuple$new(list(a = 1)))
  expect_silent(Tuple$new(Set$new(2), Interval$new(1, 5)))
  expect_error(Tuple$new(1, 2, universe = c(1, 2, 3)))
  expect_silent(Tuple$new(1, 2, universe = Set$new(1, 2, 3)))
})

test_that("inherited_methods", {
  expect_equal(Tuple$new(1, 2)$type, "()")
  # expect_equal(Tuple$new(1,2)$max,2)
  # expect_equal(Tuple$new(1,2)$min,1)
  # expect_equal(Tuple$new(1,2)$upper,2)
  # expect_equal(Tuple$new(1,2)$lower,1)
  # expect_equal(Tuple$new("a",2)$max,NaN)
  # expect_equal(Tuple$new("a",1)$min,NaN)
  # expect_equal(Tuple$new("a",1)$upper, 1)
  # expect_equal(Tuple$new("a",1)$lower, "a")
  # expect_equal(Tuple$new(1,0.3)$class, "numeric")
  # expect_equal(Tuple$new(Set$new(1),Set$new())$class, "Set")
  # expect_equal(Tuple$new(1,"a")$class, "multiple")
  # expect_equal(Tuple$new(1,2,3)$range,2)
  # expect_equal(Tuple$new(1,"a",0.3)$range,numeric(0))
  expect_equal(Tuple$new(1, 2, 3)$elements, list(1, 2, 3))
  expect_equal(Tuple$new(1, 2, 3)$length, 3)
  expect_true(Tuple$new(1, 3, 0.9)$contains(1))
  expect_false(Tuple$new(1, 0.1, 2, 0.3, 3, 0.9)$contains(5))
  expect_equal(Tuple$new(1, 2)$strprint(), "(1, 2)")
})

test_that("equals", {
  expect_true(Tuple$new(1, 2, 3)$equals(Tuple$new(1, 2, 3)))
  expect_true(Tuple$new(Set$new(1), 2, 3)$equals(Tuple$new(Set$new(1), 2, 3)))
  expect_true(Tuple$new(1, 2, 3)$equals(Interval$new(1, 3, class = "integer")))
  expect_true(Tuple$new(1, 2, 3)$equals(FuzzyTuple$new(elements = 1:3)))
  expect_false(Tuple$new(1, 2, 3)$equals(Tuple$new(1, 2, 3, 2, 3, 3)))
  expect_false(Tuple$new(1, 2, 3)$equals(Tuple$new(2, 1, 3)))
  expect_false(Tuple$new(1, 2, 3)$equals(1))
  expect_false(Tuple$new(1, 2, 3)$equals(ConditionalSet$new(function(x) TRUE)))
  expect_true(Tuple$new(Set$new(1), 2) == Tuple$new(Set$new(1), 2))
  expect_true(Tuple$new(Set$new(1), 2) != Tuple$new(2, Set$new(1)))
  expect_true(Tuple$new(Set$new(1), 2) != Tuple$new(2))
  expect_true(Tuple$new(1, 2) == Interval$new(1, 2, class = "integer"))
})

test_that("isSubset", {
  expect_true(Tuple$new(1, 2, 3)$isSubset(Tuple$new(1, 2, 3)))
  expect_false(Tuple$new(1, 2, 3)$isSubset(Tuple$new(1, 2, 3), proper = TRUE))
  expect_false(Tuple$new(1, 2, 3)$isSubset(Tuple$new(3, 1, 2)))
  expect_false(Tuple$new(1, 2, 3)$isSubset(Tuple$new(3, 1)))
  expect_true(Tuple$new(1, 2, 3)$isSubset(Tuple$new(1, 3)))
  expect_true(Tuple$new(1, 2, 3)$isSubset(Tuple$new(1, 2)))
  expect_true(Tuple$new(1, 2, 3)$isSubset(FuzzySet$new(elements = 1:2)))
  expect_true(Tuple$new(1, 2, 3)$isSubset(Tuple$new(1, 2), proper = TRUE))
  expect_true(Tuple$new(1, 2, 3)$isSubset(Set$new(1, 2, 3)))
  expect_false(Tuple$new(1)$isSubset(Tuple$new(elements = 1:2)))
  expect_false(Tuple$new(elements = 1:2)$isSubset(Tuple$new(elements = 3:4)))
  expect_false(Tuple$new(1, 2, 3)$isSubset(Tuple$new(4)))
  expect_false(Tuple$new(1, 2, 3)$isSubset(4))
  expect_false(Tuple$new(1, 2, 3)$isSubset(FuzzySet$new(1, 0.5)))

  expect_equal(c(Tuple$new(1), Tuple$new(2, 4), Tuple$new(5), Tuple$new(1, 2, 3, 4)) < Tuple$new(1, 2, 3, 4), c(TRUE, TRUE, FALSE, FALSE))
  expect_equal(c(Tuple$new(1), Tuple$new(2, 4), Tuple$new(5), Tuple$new(1, 2, 3, 4)) <= Tuple$new(1, 2, 3, 4), c(TRUE, TRUE, FALSE, TRUE))
  expect_false(Tuple$new(1, 2, 3, 4)$isSubset(c(Tuple$new(1), Tuple$new(2, 4), Tuple$new(5)), all = TRUE))

  expect_true(Tuple$new(1, 2)$isSubset(Interval$new(1, 2, class = "integer")))
})

test_that("as.Tuple", {
  expect_equal(as.Tuple(c(1, 2)), Tuple$new(1, 2, class = "numeric"))
  expect_equal(as.Tuple(list(1:2, 2)), list(Tuple$new(elements = 1:2), Tuple$new(2)))
  expect_equal(as.Tuple(matrix(c(1, 2, 3, 4), nrow = 2)), list(Tuple$new(1, 2), Tuple$new(3, 4)))
  expect_equal(as.Tuple(FuzzySet$new(1, 0.1, 2, 0.2)), Tuple$new(1, 2))
  expect_equal(as.Tuple(Set$new(elements = 1:5)), Tuple$new(elements = 1:5))
  expect_error(expect_equal(as.Tuple(Interval$new()), Interval$new()), "Interval cannot")
  expect_error(expect_equal(as.Tuple(ConditionalSet$new(function(x) TRUE)), ConditionalSet$new(function(x) TRUE)), "ConditionalSet cannot be")
})