tests/testthat/test_parse_folder.R

In jonotuke/adParser: Gets adverts from various webpages

library(adParser)
library(testthat)
context("Parse folder functions")

test_that("parse folder works",
          {
            df <- parse_folder(dir = "../../inst/rawdata/webpages/",
                               page = "gumtree",
                               animal = "dog",
                               date = "2015")
            expect_equal(nrow(df), 5)
            expect_equal(df$dob[1], "30/06/2015")
            expect_equal(df$price[1], "$550.00")
          }
)