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")
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.