add tests for raw string search

Author: randy3k

tests/testthat/test-search.R

@@ -5,8 +5,13 @@ test_that("enclosed_by_quotes works as expected", {
     expect_false(enclosed("hello_world", 4))
     expect_true(enclosed("'hello_world", 4))
     expect_true(enclosed("\"hello_world", 4))
+    expect_true(enclosed("R\"(hello_world", 4))
+    expect_true(enclosed("r\"(hello_world", 4))
+    expect_true(enclosed("R\"-(hello_world", 5))
+    expect_true(enclosed("r\"-(hello_world", 5))
     expect_true(enclosed("\"\\\"hello_world", 4))
     expect_false(enclosed("\"a\"hello_world", 4))
+    expect_false(enclosed("R\"(a)\"hello_world", 7))
     expect_true(enclosed("'\\'hello_world", 4))
     expect_false(enclosed("'a'hello_world", 4))
 })
@@ -32,6 +37,14 @@ test_that("find_unbalanced_bracket works as expected", {
     expect_equal(bsearch("foo(\"xyz(bar", 0, 10)[[1]], c(0, 3))
     expect_equal(bsearch("foo('xyz', bar", 0, 10)[[1]], c(0, 3))
     expect_equal(bsearch("foo(\"xyz\", bar", 0, 10)[[1]], c(0, 3))
+    expect_equal(bsearch("foo(R\"(x\"yz)\", bar", 0, 15)[[1]], c(0, 3))
+    expect_equal(bsearch("foo(r\"(x\"yz)\", bar", 0, 15)[[1]], c(0, 3))
+    expect_equal(bsearch("foo(R\"(x\"yz)\", bar", 0, 15)[[1]], c(0, 3))
+    expect_equal(bsearch("foo(r\"(x\"yz)\", bar", 0, 15)[[1]], c(0, 3))
+    expect_equal(bsearch("foo(\"(x\"yz)\", bar", 0, 15)[[1]], c(-1, -1))
+    expect_equal(bsearch("foo(\"(x\"yz)\", bar", 0, 15)[[1]], c(-1, -1))
+    expect_equal(bsearch("foo(\"(x\"yz)\", bar", 0, 15)[[1]], c(-1, -1))
+    expect_equal(bsearch("foo(\"(x\"yz)\", bar", 0, 15)[[1]], c(-1, -1))
     expect_equal(bsearch("𐐀𐐀𐐀(𐐀𐐀𐐀", 0, 5)[[1]], c(0, 3))
 
     # multiline