tests/testthat/test_show.R

In csoneson/SEE: Interactive SummarizedExperiment Explorer

# This tests the show method.
# library(testthat); library(iSEE); source("test_show.R")

test_that("show methods works as expected", {
    X <- ColumnDataPlot()
    expect_output(show(X), "ColumnDataPlot")

    X <- ColumnDataPlot(BrushData=list(A=1))
    expect_output(show(X), "list of length 1")

    X <- ColumnDataTable(HiddenColumns=LETTERS)
    expect_output(show(X), "+ 23 more")

    X <- ColumnDataTable(HiddenColumns=c("A\nS", "B X", "C\tD"))
    expect_output(show(X), "A\\.\\.\\.")

    X <- ColumnDataTable(HiddenColumns=c("Aasdasd_asdyasdyasdg_asdasgdya_asdagsdya_ASDSDSDASDASDadSDAasdasdasdasdasd"))
    expect_output(show(X), "SDAS\\.\\.\\.")

    X <- ColumnDataTable(HiddenColumns=rep("Aasdasd_asdyasdyasdg_asdasgdya_asdagsdya_ASDSDSDASDASDadSDA", 2))
    expect_output(show(X), "      Aas")

    test <- setClass("Dummy", contains="Panel", slots=c(thing='SummarizedExperiment'))
    expect_output(show(test()), "SummarizedExperiment")
})