tests/testthat/test-calc_identity.R

context("test-calc_identity")

test_that("calc_ident", {
  expect_equal(calc_ident("ATGC", "ATCC"), 0.75)
  expect_equal(calc_ident("ATG-C", "ATC-C"), 0.75)
  expect_equal(calc_ident("ATG-C", "ATC-C", "."), 0.8)
})
t-arae/bstringr documentation built on March 18, 2021, 3:08 a.m.