1test_that("can test documentation from path or Rd object", { 2 rd_path <- test_path("../../man/expect_length.Rd") 3 skip_if_not(file.exists(rd_path)) 4 5 test_example(rd_path) 6 test_rd(tools::parse_Rd(rd_path)) 7}) 8 9test_that("returns false if no examples", { 10 rd_path <- test_path("../../man/test_examples.Rd") 11 skip_if_not(file.exists(rd_path)) 12 13 expect_false(test_example(rd_path)) 14}) 15