tests/testthat/test_names.R

In csoneson/SEE: Interactive SummarizedExperiment Explorer

# 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"))

})