tests/testthat/test_names.R

context("names")

test_that("", {

    x <- c("---", b=2, c=3)
    y <- c(c=3)

    out <- .setdiffWithNames(x, y)
    expect_identical(out, c("---", b = "2"))

})

Try the iSEE package in your browser

Any scripts or data that you put into this service are public.

iSEE documentation built on Feb. 3, 2021, 2:01 a.m.