tests/testthat/test_is.subsetsuperset.R

context("isSubset (and isSuperset)")

test_that("isSubset/isSuperset", {
  x = 1:10
  y = 1:11
  expect_true(isSubset(x, y))
  expect_false(isSubset(y, x))
  expect_true(isSubset(x, y, strict = TRUE))

  x = y
  expect_true(isSubset(x, y))
  expect_false(isSubset(x, y, strict = TRUE))
  expect_true(isSubset(y, x))
  expect_false(isSubset(y, x, strict = TRUE))
})
berndbischl/BBmisc documentation built on Jan. 6, 2023, 12:32 p.m.