tests/testthat/test_is.subset.R

In jakobbossek/JBmisc: Different tiny helper functions for R.

context("is.subset (and isSuperset)")

test_that("is.subset works as expected", {
  x = 1:10
  y = 1:11
  expect_true(is.subset(x, y))
  expect_false(is.subset(y, x))
  expect_true(is.subset(x, y, strict = TRUE))

  x = y
  expect_true(is.subset(x, y))
  expect_false(is.subset(x, y, strict = TRUE))
  expect_true(is.subset(y, x))
  expect_false(is.subset(y, x, strict = TRUE))
})