tests/testthat/test-print.R

In mcanouil/NACHO: NanoString Quality Control Dashboard

test_that("default", {
  expect_null(print(GSE74821))
})

test_that("missing object", {
  expect_error(print.nacho())
})

test_that("show_legend to TRUE", {
  expect_null(print.nacho(GSE74821, colour = "CartridgeID", size = 0.5, show_legend = TRUE))
})

test_that("wrong attribute", {
  attr(GSE74821, "RCC_type") <- "something_wrong"
  expect_error(print.nacho(GSE74821))
})

test_that("numeric column for colour", {
  GSE74821$outliers_thresholds$FoV <- 95
  GSE74821$nacho$channel_count <- as.numeric(GSE74821$nacho$channel_count)
  expect_null(print.nacho(GSE74821, colour = "channel_count", echo = TRUE))
})

test_that("xaringan", {
  expect_null(print.nacho(GSE74821, xaringan = TRUE, echo = TRUE))
})