tests/testthat/test-format.R

test_that("peptr_position format", {
  expect_equal(format(peptr_position(c(1, 2, 3))), c("@1", "@2", "@3"))
})


test_that("peptr_ptm format", {
  expect_equal(format(peptr_ptm(c(1, 2, 3))), c("@1", "@2", "@3"))
})
jeanmanguy/peptr documentation built on Feb. 3, 2020, 12:04 a.m.