inst/tinytest/test_slugify.R

In hrbrmstr/slugify: Create Slug Strings for SEO

library(slugify)

expect_true(slugify("R is great!") == "r-is-great")

expect_true(slugify("R is great!", lower = FALSE) == "R-is-great")

expect_true(slugify("R is great!", replacement = "@") == "r@is@great")

expect_true(slugify("R is great!", remove = "/[Rr]/g") == "is-geat")

expect_true(slugify_native("R is great!") == "r-is-great")

expect_true(slugify_native("R is great!", lower = FALSE) == "R-is-great")

expect_true(slugify_native("R is great!", repl = "@") == "r@is@great")

expect_true(
  slugify("Mining R 4.0.0 Changelog for Nuggets of Gold: #1 stopifnot()") ==
    "mining-r-400-changelog-for-nuggets-of-gold-1-stopifnot"
)

expect_true(
  slugify_native("Mining R 4.0.0 Changelog for Nuggets of Gold: #1 stopifnot()") ==
    "mining-r-400-changelog-for-nuggets-of-gold-1-stopifnot"
)