tests/testthat/test-utils.R

In rtemis.core: Core Utilities for the 'rtemis' Ecosystem

# test-utils.R

# match_arg ----
test_that("match_arg matches case-insensitively", {
  expect_equal(
    match_arg("papaya", c("AppleExtreme", "SuperBanana", "PapayaMaster")),
    "PapayaMaster"
  )
})

test_that("match_arg supports partial matching", {
  expect_equal(
    match_arg("apple", c("AppleExtreme", "SuperBanana", "PapayaMaster")),
    "AppleExtreme"
  )
})

test_that("match_arg errors on ambiguous match", {
  expect_error(match_arg("a", c("Apple", "Apricot", "Banana")))
})

# abbreviate_class ----
test_that("abbreviate_class returns abbreviated class string", {
  result <- abbreviate_class("hello")
  expect_match(result, "^<.+>$")
  expect_true(nchar(result) >= 3) # at least < + char + >
})

test_that("abbreviate_class respects n parameter", {
  result <- abbreviate_class(iris, n = 3)
  expect_match(result, "^<.+>$")
})