tests/testthat/test-col.names.R

In biclustermd: Biclustering with Missing Data

context("column names")

test_that(
  "col.names() returns all columns and column names", {

    sbc <- biclustermd(synthetic)
    expect_equal(nrow(col.names(sbc)), ncol(synthetic))
    expect_equal(ncol(col.names(sbc)), 2)
    expect_equal(all(colnames(synthetic) %in% col.names(sbc)$col_name), TRUE)

  }
)

test_that(
  "col.names() is a subset of gather()", {

    sbc <- biclustermd(synthetic)
    library(dplyr)
    expect_equal(
      col.names(sbc),
      gather(sbc) %>% distinct(col_cluster, col_name) %>% select(col_cluster, col_name)
    )

  }
)