tests/testthat/test-bleu_vec.R

In kanishkamisra/footrulr: Measure Quality of Machine Generated Texts

context("test-bleu_vec")

test_that("bleu works", {
  expect_equal(bleu_vec("the", "the", 1), 1)
  expect_equal(bleu_vec("the cat the cat on the mat", c("the cat is on the mat", "there is a cat on the mat"), n = 2), 4 / 6)
})