htmltidy/tests/testthat/test-htmltidy.R

context("basic functionality")
test_that("tidying works", {

  th <- tidy_html("<b><p><a href='http://google.com'>google &gt</a></p></b>")

  expect_gte(nchar(th), 249)
  expect_equivalent(grepl("HTML Tidy for HTML5 for R", th), TRUE)

})
initial commit 8 years ago			`context("basic functionality")`
embedded HTML Tidy library 8 years ago			`test_that("tidying works", {`
initial commit 8 years ago
handle response objects 8 years ago			`th <- tidy_html("<b><p><a href='http://google.com'>google &gt</a></p></b>")`

			`expect_gte(nchar(th), 249)`
			`expect_equivalent(grepl("HTML Tidy for HTML5 for R", th), TRUE)`
initial commit 8 years ago
			`})`