tests/testthat/test_make_title.R

context("Test plot title creation")

xname <- "S|TEST|chrX:100-101|1"

test_that("Rowname converts to human-friendly title", {
  target <- make_title(xname)
  expected <- "TEST\n(chrX:100-101, 1 bp, type S)"
  expect_equal(target, expected)
})
kcha/psiplot documentation built on March 27, 2022, 4:20 a.m.