tests/testthat/test-knit.R

In rikhuijzer/codex: Various Functions with Tests and Documentation

test_that("rounding is according to spec", {
	expect_equal(rn(1.234, 1), "1.2")
	expect_equal(r.2(1.234), "1.23")
})

test_that("out.format", {
	expect_equal(out.format(), "unknown-knit-format")
})

test_that("ap", {
	# Smoke test.
	expect_equal(ap("@foo"), "@foo")
})