tests/testthat/test-find_tmh.R

test_that("use", {

  if (Sys.getenv("TRAVIS") == "") return()

  s <- find_tmh()
  expect_true(pureseqtmr::is_tmh(s))
  expect_equal(nchar(s), Peptides::lengthpep(s))
})
richelbilderbeek/prosefi documentation built on Nov. 21, 2020, 3:31 a.m.