Add unit test for strip clipping

Author: teunbrand

tests/testthat/test-facet-strips.r

@@ -138,3 +138,16 @@ test_that("y strip labels are rotated when strips are switched", {
 
   expect_doppelganger("switched facet strips", switched)
 })
+
+test_that("strip clipping can be set from the theme", {
+  labels <- data_frame(var1 = "a")
+
+  strip <- render_strips(labels, labeller = label_value,
+                         theme = theme_test() + theme(strip.clip = "on"))
+  expect_equal(strip$x$top[[1]]$layout$clip, "on")
+
+  strip <- render_strips(labels, labeller = label_value,
+                         theme = theme_test() + theme(strip.clip = "off"))
+  expect_equal(strip$x$top[[1]]$layout$clip, "off")
+})
+