tests/testthat/test-make_sw_alignment.R

testthat::test_that("make_sw_alignment", {
  v1 <- c("SIINFEKL", "SYFPEITHI")
  v2 <- c("SIIPFEKL", "SYFFPEITHI")

  ot <- antigen.garnish:::make_sw_alignment(v1, v2)

  testthat::expect_equal(ot, c(30, 42))
})
andrewrech/antigen.garnish documentation built on July 8, 2022, 5:19 p.m.