tests/testthat/test-method-registration.R

context("methods")

test_that("method registration occurs correctly", {
    library(XML)
    xdoc <- xmlParse("<svg><circle /></svg>")

    library(xml2)
    x2doc <- read_xml("<svg><circle /></svg>")

    results <- querySelector(xdoc, "circle")
    results <- querySelector(x2doc, "circle")
})
sjp/selectr documentation built on Dec. 3, 2023, 3:45 a.m.