tests/testthat/test-util_html_attr_quote_escape.R

test_that("util_html_attr_quote_escape escapes quotes properly", {
  skip_on_cran()
  input_string <- 'Hello "World"!'
  expected_output <- 'Hello &quot;World&quot;!'
  actual_output <- util_html_attr_quote_escape(input_string)
  expect_equal(actual_output, expected_output)
})

Try the dataquieR package in your browser

Any scripts or data that you put into this service are public.

dataquieR documentation built on May 29, 2024, 7:18 a.m.