Add tests

DESCRIPTION

@@ -46,6 +46,7 @@ Suggests:
     testthat (>= 3.1.1),
     tibble,
     units (>= 0.7.2),
+    vdiffr,
     withr
 VignetteBuilder: 
     knitr

tests/testthat/_snaps/unicode/ctl_colonnade.new.md

@@ -0,0 +1,24 @@
+# color
+
+    Code
+      style_na("NA")
+    Output
+      [1] "\033[31mNA\033[39m"
+    Code
+      style_neg("-1")
+    Output
+      [1] "\033[31m-1\033[39m"
+
+---
+
+    Code
+      ctl_colonnade(list(a_very_long_column_name = 0), width = 20)
+    Output
+      $body
+      
+      $extra_cols
+      $extra_cols$a_very_long_column_name
+      [1] 0
+      
+      
+

tests/testthat/test-ggplot2.R

@@ -0,0 +1,24 @@
+test_that("ggplot2 snapshot tests", {
+  skip_if_not_installed("ggplot2")
+  skip_if_not_installed("vdiffr")
+  skip_if_not_installed("tibble")
+
+  data <- tibble::tibble(
+    x = num((1:10) / 100, fixed_exponent = -3, notation = "eng"),
+    y = num((1:10) / 100, scale = 100, label = "%"),
+    z = num(10^(-5:4), notation = "si")
+  )
+
+  basic <-
+    ggplot2::ggplot(data, ggplot2::aes(x, y)) +
+    ggplot2::geom_point()
+
+  vdiffr::expect_doppelganger("basic", basic)
+
+  log_scale <-
+    ggplot2::ggplot(data, ggplot2::aes(x, z)) +
+    ggplot2::geom_point() +
+    scale_y_num(trans = "log10")
+
+  vdiffr::expect_doppelganger("log_scale", log_scale)
+})