basic tests

README.md

@@ -72,13 +72,13 @@ library(testthat)
 date()
 ```
 
-    ## [1] "Wed Sep 13 14:41:50 2017"
+    ## [1] "Wed Sep 13 14:44:54 2017"
 
 ``` r
 test_dir("tests/")
 ```
 
     ## testthat results ========================================================================================================
-    ## OK: 0 SKIPPED: 0 FAILED: 0
+    ## OK: 1 SKIPPED: 0 FAILED: 0
     ## 
     ## DONE ===================================================================================================================

tests/testthat/test-hgr.R

@@ -1,6 +1,14 @@
 context("basic functionality")
 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&region=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"
+  )
 
 })