Make untermiated quotes error

Closes #219.
tidyverse · Sep 25, 2021 · 2c9459b · 2c9459b
1 parent 9d88032
commit 2c9459b
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/src/glue.c b/src/glue.c
@@ -176,6 +176,12 @@ SEXP glue_(SEXP x, SEXP f, SEXP open_arg, SEXP close_arg) {
   if (state == delim) {
     free(str);
     Rf_error("Expecting '%s'", close);
+  } else if (state == single_quote) {
+    free(str);
+    Rf_error("Unterminated quote (')");
+  } else if (state == double_quote) {
+    free(str);
+    Rf_error("Unterminated quote (\")");
   }
 
   free(str);

diff --git a/tests/testthat/test-glue.R b/tests/testthat/test-glue.R
@@ -424,3 +424,8 @@ test_that("+ method for glue works", {
   x <- 1
   expect_identical(glue("x = ") + "{x}", glue("x = {x}"))
 })
+
+test_that("unterminated quotes are error", {
+  expect_error(glue("{this doesn\"t work}"), "Unterminated quote")
+  expect_error(glue("{this doesn't work}"), "Unterminated quote")
+})