mirror of https://git.sr.ht/~hrbrmstr/hgr
boB Rudis
7 years ago
2 changed files with 11 additions and 3 deletions
@ -1,6 +1,14 @@ |
|||||
context("basic functionality") |
context("basic functionality") |
||||
test_that("we can do something", { |
test_that("we can do something", { |
||||
|
|
||||
#expect_that(some_function(), is_a("data.frame")) |
story <- "https://www.nytimes.com/2017/04/18/world/asia/aircraft-carrier-north-korea-carl-vinson.html?hp&action=click&pgtype=Homepage&clickSource=story-heading&module=first-column-region®ion=top-news&WT.nav=top-news&_r=0" |
||||
|
|
||||
|
doc <- just_the_facts(story) |
||||
|
plain <- clean_text(doc$content) |
||||
|
|
||||
|
expect_equal( |
||||
|
substr(plain, 1, 100), |
||||
|
"WASHINGTON — Just over a week ago, the White House declared that ordering an American aircraft carri" |
||||
|
) |
||||
|
|
||||
}) |
}) |
||||
|
Loading…
Reference in new issue