Tidy up these tests

tests/testthat/_snaps/glue.md

@@ -1,4 +1,4 @@
-# + method requires character vectors
+# `+` method requires character vectors
 
     Code
       as_glue("a") + 1
@@ -9,7 +9,7 @@
     Error <simpleError>
       LHS must be a character vector.
 
-# `+` method returns length-0 for a length-0 input
+# `+` method errors for inputs of incompatible size
 
     Code
       as_glue(letters[1:2]) + letters[1:3]

tests/testthat/test-glue.R

@@ -507,30 +507,34 @@ test_that("throws informative error if interpolating a function", {
   }
 })
 
-test_that("+ method for glue works", {
-  expect_identical(glue("foo") + "bar", as_glue("foobar"))
-  expect_identical(glue("x = ") + "{x}", as_glue("x = {x}"))
+test_that("`+` method for glue works", {
+  expect_identical(glue("foo") + "bar", "foobar")
+  expect_identical("foo" + glue("bar"), "foobar")
+})
 
-  x <- c("a", "b", "c")
-  expect_identical("(" + as_glue(x) + ")", paste0("(", x, ")"))
+test_that("`+` method requires character vectors", {
+  expect_snapshot(error = TRUE, {
+    as_glue("a") + 1
+    1 + as_glue("a")
+  })
 })
 
 test_that("`+` method does not interpolate twice", {
-  expect_identical(glue("{x}", x = "{wut}") + "y", as_glue("{wut}y"))
+  expect_identical(glue("{x}", x = "{wut}") + "y", "{wut}y")
 })
 
 test_that("`+` method returns length-0 for a length-0 input", {
   expect_identical(as_glue("hello") + character(), character())
 })
 
-test_that("+ method requires character vectors", {
-  expect_snapshot(error = TRUE, {
-    as_glue("a") + 1
-    1 + as_glue("a")
-  })
+test_that("`+` recycles", {
+  x <- c("a", "b", "c")
+  expect_identical("(" + as_glue(x) + ")", paste0("(", x, ")"))
+  y <- as.character(1:3)
+  expect_identical(as_glue(x) + y, c("a1", "b2", "c3"))
 })
 
-test_that("`+` method returns length-0 for a length-0 input", {
+test_that("`+` method errors for inputs of incompatible size", {
   expect_snapshot(error = TRUE, {
     as_glue(letters[1:2]) + letters[1:3]
   })