test_that("sanity check (1)", {
expect_equal(cli::num_ansi_colors(), 1)
expect_false(has_color())
expect_equal(num_colors(), 1)
expect_snapshot({
cli::num_ansi_colors()
has_color()
num_colors()
style_na("NA")
})
})
test_that("output test", {
skip_if(getRversion() < "4.0")
x <- list(
column_zero_one = 1:3 + 0.23,
col_02 = letters[1:3],
col_03 = factor(letters[1:3]),
col_04 = ordered(letters[1:3])
)
expect_snapshot({
colonnade(x, width = 4)
colonnade(x, width = 5)
colonnade(x, width = 6)
colonnade(x, width = 7)
colonnade(x, width = 8)
colonnade(x, width = 9)
colonnade(x, width = 10)
colonnade(x, width = 11)
colonnade(x, width = 12)
colonnade(x, width = 13)
colonnade(x, width = 14)
colonnade(x, width = 15)
colonnade(x, width = 16)
colonnade(x, width = 17)
colonnade(x, width = 18)
colonnade(x, width = 19)
colonnade(x, width = 20)
colonnade(x, width = 21)
colonnade(x, width = 22)
colonnade(x, width = 23)
colonnade(x, width = 24)
colonnade(x, width = 25)
colonnade(x, width = 26)
colonnade(x, width = 27)
colonnade(x, width = 28)
colonnade(x, width = 29)
colonnade(x, width = 30)
colonnade(x, width = 31)
colonnade(x, width = 32)
colonnade(x, width = 33)
colonnade(x, width = 34)
colonnade(x, width = 35)
colonnade(x, width = 36)
colonnade(x, width = 37)
colonnade(x, width = 38)
colonnade(x, width = 39)
colonnade(x, width = Inf)
})
expect_snapshot({
colonnade(rep(list(paste(letters, collapse = " ")), 4), width = Inf)
})
# Spurious warnings on Windows
suppressWarnings(
expect_snapshot({
as_glue(extra_cols_impl(squeeze_impl(colonnade(x), width = 10)))
})
)
suppressWarnings(
expect_snapshot({
as_glue(extra_cols_impl(squeeze_impl(colonnade(x), width = 20)))
})
)
suppressWarnings(
expect_snapshot({
as_glue(extra_cols_impl(squeeze_impl(colonnade(x), width = 30)))
})
)
suppressWarnings(
expect_snapshot({
as_glue(extra_cols_impl(squeeze_impl(colonnade(x), width = 35)))
})
)
expect_snapshot({
as_glue(extra_cols_impl(squeeze_impl(colonnade(x), width = 40)))
})
})
test_that("tests from tibble", {
skip_if(getRversion() < "4.0")
skip_if_not_installed("rlang", "0.4.11.9000")
local_options(width = 80)
expect_snapshot({
colonnade(mtcars[1:8, ], has_row_id = "*", width = 30)
colonnade(trees[1:5, ], width = 20)
colonnade(trees[1:3, ], width = 10)
colonnade(df_all, width = 30)
colonnade(df_all, width = 300)
options(width = 70)
colonnade(df_all, width = 300)
options(width = 60)
colonnade(df_all, width = 300)
options(width = 50)
colonnade(df_all, width = 300)
options(width = 40)
colonnade(df_all, width = 300)
options(width = 30)
colonnade(df_all, width = 300)
options(width = 20)
colonnade(df_all, width = 300)
list_with_ctl <- list(c("\n", '"'), factor(c("\n", "\n")))
names(list_with_ctl) <- c("\n", "\r")
colonnade(list_with_ctl, width = 30)
colonnade(list(a = c("", " ", "a ", " a")), width = 30)
colonnade(list("mean(x)" = 5, "var(x)" = 3), width = 30)
})
})
test_that("empty", {
scoped_lifecycle_silence()
skip_if(getRversion() < "4.0")
expect_equal(
format(colonnade(list(a = character(), b = logical()), width = 30)),
as_glue(character())
)
expect_equal(
format(colonnade(trees[1:5, character()], width = 30)),
as_glue(character())
)
})
test_that("NA names", {
skip_if(getRversion() < "4.0")
x <- list(`NA` = 1:3, set_to_NA = 4:6)
names(x)[[2]] <- NA_character_
expect_snapshot({
colonnade(x, width = 30)
})
})
test_that("sep argument", {
skip_if(getRversion() < "4.0")
x <- list(sep = 1:3)
expect_snapshot({
colonnade(x, width = 30)
"dummy"
})
})
test_that("color", {
skip_if_not_installed("testthat", "3.1.1")
local_colors()
expect_equal(cli::num_ansi_colors(), 16)
expect_true(has_color())
expect_equal(num_colors(), 16)
if (l10n_info()$`UTF-8`) {
local_utf8()
expect_true(cli::is_utf8_output())
}
expect_snapshot(variant = snapshot_variant("output-enc"), {
cli::num_ansi_colors()
has_color()
num_colors()
style_na("NA")
style_neg("-1")
})
with_lifecycle_silence({
xf <- colonnade(list(x = c((10^(-3:4)) * c(-1, 1), NA)))
})
expect_snapshot(variant = snapshot_variant("output-enc"), {
print(xf)
with_options(pillar.subtle_num = TRUE, print(xf))
with_options(pillar.subtle = FALSE, print(xf))
with_options(pillar.neg = FALSE, print(xf))
with_options(pillar.subtle = FALSE, pillar.neg = FALSE, print(xf))
with_options(pillar.bold = TRUE, print(xf))
})
skip_if(getRversion() < "4.0")
expect_snapshot(variant = snapshot_variant("output-enc"), {
colonnade(list(a_very_long_column_name = 0), width = 15)
})
})
test_that("sanity check (2)", {
expect_equal(cli::num_ansi_colors(), 1)
expect_false(has_color())
expect_equal(num_colors(), 1)
expect_snapshot({
cli::num_ansi_colors()
has_color()
num_colors()
style_na("NA")
})
})
test_that("tibble columns", {
skip_if(getRversion() < "4.0")
x <- list(a = 1:3, b = data.frame(c = 4:6, d = 7:9))
expect_snapshot({
colonnade(x, width = 30)
})
})
test_that("tibble columns (nested)", {
skip_if(getRversion() < "4.0")
x <- list(
a = 1:3,
b = structure(
list(
c = 4:6, d = 7:9,
e = data.frame(f = 10:12, g = 13:15)
),
class = "data.frame"
)
)
expect_snapshot({
colonnade(x, width = 40)
})
})
test_that("tibble columns (empty)", {
skip_if(getRversion() < "4.0")
x <- list(
a = 1:3,
b = structure(
list(
c = 4:6, d = 7:9,
e = data.frame(f = 10:12)[, 0],
f = 10:12
),
class = "data.frame"
)
)
expect_snapshot({
colonnade(x, width = 40)
})
})
test_that("matrix columns (unnamed)", {
skip_if(getRversion() < "4.0")
x <- list(a = 1:3, b = matrix(4:9, ncol = 2))
expect_snapshot({
colonnade(x, width = 30)
})
})
test_that("matrix columns (named)", {
skip_if(getRversion() < "4.0")
x <- list(a = 1:3, b = matrix(4:9, ncol = 2, dimnames = list(NULL, c("c", "d"))))
expect_snapshot({
colonnade(x, width = 30)
})
})
test_that("matrix columns (empty)", {
x <- list(a = 1:3, b = matrix(4:6, ncol = 1)[, 0], c = 4:6)
expect_snapshot({
colonnade(x, width = 30)
})
})
Generated by dwww version 1.15 on Sun Jun 23 04:19:21 CEST 2024.