tests/testthat/test-find-frist.R

In caprice-j/ggbash: A Simpler Syntax for ggplot2

library(ggbash)
context("find-first")

test_that("find_first", {

    f <- find_first_by_prefix

    expect_equal(f("a", c(     "b", "c")), NULL)
    expect_equal(f("a", c("a", "b", "c")), 1)
    expect_equal(f("a", c("a", "aa", "c")), 1) # exact match
    expect_message(f("a", c("ab", "aa", "c")), "Ambiguous match.")

})