tests/testthat/test-label.R

test_that("label works", {
	x <- 1:3
	expect_equal(label(x, "something") |> attr("label"), "something")
	expect_equal(label(iris, "something") |> attr("label"), "something")
})
myominnoo/mStats documentation built on Nov. 29, 2023, 2:36 a.m.