tests/testthat/test-utilities.R

context("Auxiliary functions")

test_that("Output is as expected", {
  expect_equal(currentGitHubRef("GuangchuangYu/badger"), "GuangchuangYu/badger")
  expect_equal(assembleBadgeOutput("X", "Y", "Z"), "[![Z](https://X)](https://Y)")
})

Try the badger package in your browser

Any scripts or data that you put into this service are public.

badger documentation built on Feb. 16, 2023, 5:24 p.m.