tests(b_get_color): Add test for null case

rstudio · Dec 10, 2024 · 9bab3c1 · 9bab3c1
1 parent 038f6a2
commit 9bab3c1
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testthat/test-bs-theme-preset-brand.R b/tests/testthat/test-bs-theme-preset-brand.R
@@ -108,6 +108,11 @@ describe("b_get_color()", {
       "recursion limit"
     )
   })
+
+  it("returns `key` if `brand.color` isn't present", {
+    brand <- list(meta = list(name = "no color"))
+    expect_equal(b_get_color(brand, "red"), "red")
+  })
 })
 
 describe("maybe_convert_font_size_to_rem()", {