mirror of https://git.sr.ht/~hrbrmstr/hgr
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
522 B
14 lines
522 B
context("basic functionality")
|
|
test_that("we can do something", {
|
|
|
|
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"
|
|
)
|
|
|
|
})
|
|
|