add test

Author: t-kalinowski

tests/testthat/test-errors.R

@@ -0,0 +1,9 @@
+test_that("case-sensitive variable name clashes", {
+  expect_error(regexp = "case-insensitive.+`j`.+`J`", {
+    quick(function(j) {
+      declare(type(j = integer(1)))
+      J <- double(length = j)
+      J
+    })
+  })
+})