Nothing
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('\"',\"'\",'\"'))]"))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.