context("quoting")
test_that("quote characters are escaped", {
gt <- GenericTranslator$new()
css <- function(x) gt$css_to_xpath(x)
expect_that(css('*[aval="\'"]'),
equals('descendant-or-self::*[(@aval = "\'")]'))
expect_that(css('*[aval="\'\'\'"]'),
equals("descendant-or-self::*[(@aval = \"'''\")]"))
expect_that(css('*[aval=\'"\']'),
equals("descendant-or-self::*[(@aval = '\"')]"))
expect_that(css('*[aval=\'"""\']'),
equals("descendant-or-self::*[(@aval = '\"\"\"')]"))
expect_that(css('*[aval=\'"\\\'"\']'),
equals("descendant-or-self::*[(@aval = concat('\"',\"'\",'\"'))]"))
})
Generated by dwww version 1.15 on Sat May 18 11:00:33 CEST 2024.