update tests

Author: jthomasmock

tests/testthat/test-gt_pct_bar.R

@@ -99,18 +99,18 @@ test_that("gt_pct_bar SVG is created and has specific palette", {
 
   expect_equal(
     round(bar_vals, 2),
-    c(0.00, 0, 119.06, 0.00, 0, 124.02, 0.00, 0, 85.04, 0.00, 0, 85.04)
+    c(0.00, 119.06, 0.00, 124.02, 0.00, 85.04, 0.00, 85.04)
   )
   expect_equal(
     bar_colors,
     c(
-      "FF4343;",
+      #"FF4343;",
       "BFBFBF;",
-      "FF4343;",
+      #"FF4343;",
       "BFBFBF;",
-      "FF4343;",
+      #"FF4343;",
       "BFBFBF;",
-      "FF4343;",
+      #"FF4343;",
       "BFBFBF;"
     )
   )

tests/testthat/test-gt_plt_bar.R

@@ -35,11 +35,11 @@ test_that("gt_plt_bar svg is created and has specific values", {
   # SVG has specific points ----
 
   bar_vals <- bar_tbl %>%
-    rvest::html_nodes("svg > g > g > rect:nth-child(2)") %>%
+    rvest::html_nodes("svg > g > g > rect") %>%
     rvest::html_attr("width")
 
   bar_neg_vals <- bar_tbl_neg %>%
-    rvest::html_nodes("svg > g > g > rect:nth-child(2)") %>%
+    rvest::html_nodes("svg > g > g > rect") %>%
     rvest::html_attr("width")
 
   expect_equal(

tests/testthat/test_test-gt_pct_bar.R

@@ -71,9 +71,9 @@ test_that("gt_pct_bar SVG structure, positions, and default palette are correct"
     ) %>%
     rvest::html_attr("style")
 
-  # There should be 4 rows * 2 segments
-  expect_length(bar_x, 8L)
-  expect_length(styles, 8L)
+  # There should be 4 rows
+  expect_length(bar_x, 4L)
+  expect_length(styles, 4L)
 })
 
 test_that("gt_pct_bar respects a custom two-color palette", {
@@ -147,5 +147,5 @@ test_that("gt_pct_bar respects a custom two-color palette", {
     rvest::html_attr("style")
 
   cols <- normalize_colors(styles)
-  expect_length(cols, 8L)
+  expect_length(cols, 4L)
 })