tests/testthat/test-pretty_name.R

In vincenzocoia/distionary: Create and Evaluate Probability Distributions

test_that("Pretty name is pretty.", {
  for (item in test_distributions) {
    d <- rlang::exec(item$distribution, !!!item$valid[[1]])
    prettynm <- pretty_name(d)
    expect_length(prettynm, 1)
    expect_true(!is.na(prettynm))
    prettynm <- pretty_name(d, 3)
    expect_length(prettynm, 1)
    expect_true(!is.na(prettynm))
  }
  expect_equal(pretty_name(dst_null()), "Null")
  expect_equal(pretty_name(dst_null(), 3), "Null")
})