add test

tests/testthat/test-label-glue.R

@@ -0,0 +1,10 @@
+test_that("label_glue environments work out as intended", {
+
+  x <- LETTERS[1:3]
+  y <- "foo"
+
+  # Note `{x}` should mask the `x <- LETTERS[1:3]` above
+  f <- label_glue("{x} and {y}")
+  expect_equal(f(letters[1:3]), c("a and foo", "b and foo", "c and foo"))
+
+})