tests/testthat/test-lyric-abbreviation.R

In taylor: Lyrics and Song Data for Taylor Swift's Discography

test_that("translation works", {
  atw <- tibble::tibble(
    track = c(
      "All Too Well (Taylor's Version)",
      "All Too Well (10 Minute Version) [Taylor's Version] [From The Vault]"
    ),
    line = "But you keep my old scarf from that very first week"
  )
  expect_equal(translate_bracelet("bykmosftvfw"),
               glue::glue_data(atw, "{track}: {line}\n\n"))

  krm <- tibble::tibble(
    track = c("Karma", "Karma (Remix)"),
    line = paste0("karma is my boyfriend Karma is a god Karma is the breeze ",
                  "in my hair on the weekend")
  )
  expect_equal(translate_bracelet("kimbkiagkitbimhotw"),
               glue::glue_data(krm, "{track}: {line}\n\n"))

  expect_equal(translate_bracelet("ymtotcd"),
               glue::glue("champagne problems: Your Midas touch on the ",
                          "Chevy door\n\n"))
})