tests/testthat/test-extract.R

In fuj: Functions and Utilities for Jordan

# fmt: skip
test_that("alises are correct", {
  expect_identical(subset1,    `[`)
  expect_identical(subset2,    `[[`)
  expect_identical(subset3,    `$`)
  expect_identical(subassign1, `[<-`)
  expect_identical(subassign2, `[[<-`)
  expect_identical(subassign3, `$<-`)
})