tests/testthat/test_names.R

# Tests for internal functions
# library(testthat); library(iSEE); source("test_names.R")

context("names")

test_that("", {

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

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

})
csoneson/SEE documentation built on Oct. 13, 2024, 10:19 a.m.