tests/testthat/test-translate_cDNA.R

In andrewrech/antigen.garnish: Tumor neoantigen prediction

testthat::test_that("translate_cDNA", {

  # load test data
  v <- "ATGTCTTCTTTTGCTTGCTGGAGCCTGTCTCTTCTTATCCTGTTCTACAGCCCAGGGTCTGGTGAGAAGGCCTTTGAGGTCTACATATGGTCCGAGAAGCAGATAGTAGAAGCCACAGAGTCTTGGAAAATCAACTGCAGCACCAACTGCGCAGCCCCAGACATGGGCGGCCTGGAGACGCCCACGAATAAAATAATGTTGGAAGAGCATCCTCAAGGGAAGTGGAAACAGTTCTTAGTCTCAAACGTCTCCAAAGACACGGTCTTCTTTTGCCATTTCACGTGTTCGGGAAAGCAGCACTCGGAGAGTCTCAACATCAGGGTGTACCAGCCTCCAGCTCAAGTCACACTGAAGCTGCAGCCGCCTCGGGTGTTTGTGGGTGAAGACTTCACCATTGAGTGCACGGTGTCCCCTGTGCAGCCCCTTGAGAGGCTCACCCTCTCTCTGCTCCGTGGCAGAGAGACCCTGAAGAATCAGACCTTTGGGGGAGCAGAAACTGTCCCCCAAGAGGCCACAGCCACGTTCAACAGCACAGCTCTGAAAAAGGACGGTCTCAACTTTTCCTGCCAGGCTGAGCTGGATCTACGGCCCCATGGTGGGTATATCATCCGCAGCATCTCGGAGTACCAGATCCTTGAAGTCTATGAGCCGATGCAGGACAACCAAATGGTCATCATCATCGTGGTGGTGTCAATACTGCTGTTCTTATTTGTGACATCTGTCCTGCTATGCTTTATCTTTGGCCAGCACTGGCACAGAAGACGGACAGGCACCTACGGGGTGCTAGCTGCCTGGAGGAGGCTGCCCCGAGCCTTTCGGGCACGTCCCGTGTGA"

  # run test
  antigen.garnish:::translate_cDNA(v) %>%

    testthat::expect_equal(., "MSSFACWSLSLLILFYSPGSGEKAFEVYIWSEKQIVEATESWKINCSTNCAAPDMGGLETPTNKIMLEEHPQGKWKQFLVSNVSKDTVFFCHFTCSGKQHSESLNIRVYQPPAQVTLKLQPPRVFVGEDFTIECTVSPVQPLERLTLSLLRGRETLKNQTFGGAETVPQEATATFNSTALKKDGLNFSCQAELDLRPHGGYIIRSISEYQILEVYEPMQDNQMVIIIVVVSILLFLFVTSVLLCFIFGQHWHRRRTGTYGVLAAWRRLPRAFRARPV*")
})