tests/testthat/test.sugar.R

In mpkocher/pbcommandR: R Package for generating reports using SMRT-Link

library(pbcommandR)
#setwd("/Users/nigel/git/pbcommandR/tests/testthat")

context("Test that sugar layers work.")

test_that("WriteTitle", {
  path <- "reseq-conditions-01.json"
  opath = "test_out.json"
  t = pbreporter(path, opath, "c", "My Report")
  t$write.report()
  d = jsonlite::fromJSON(opath)
  expect_equal(d$title, "My Report")
  file.remove(opath)
})