tests/testthat/test_tryptic.R

In mstaniak/proteomics_examples: Useful Functions For Proteomics Data Analysis and Simulations

context("Test tryptic digestion")


testthat::test_that("No sites works okay", {
  testthat::expect_equal(
    tryptic_digestion_single("AAAP"),
    list("AAAP")
  )
  testthat::expect_equal(
    tryptic_digestion_single("AAARP"),
    list("AAARP")
  )
})

testthat::test_that("P is recognized correctly", {
  testthat::expect_equal(
    tryptic_digestion_single("TRCAAPTTKP"),
    list("TR", "CAAPTTKP")
  )
  testthat::expect_equal(
    tryptic_digestion_single("TRCAAPTTKPAA"),
    list("TR", "CAAPTTKPAA")
  )
})

testthat::test_that("AA chains are cut correctly", {
  testthat::expect_equal(
    tryptic_digestion_single("DIRVVAAKRPKCAAP"),
    list("DIR", "VVAAK", "RPK", "CAAP")
  )
  testthat::expect_equal(
    tryptic_digestion_single("DIRVVAAKKCAAP"),
    list("DIR", "VVAAK", "K", "CAAP")
  )
})

testthat::test_that("Extreme cases are handled properly", {
  testthat::expect_equal(
    tryptic_digestion_single("ARKKRR"),
    list("AR", "K", "K", "R", "R")
  )
  testthat::expect_equal(
    tryptic_digestion_single("RPDCVKPARK"),
    list("RPDCVKPAR", "K")
  )
})