tests/testthat/test-get_past_sales_data.R

In allhomes: Extract Past Sales Data from Allhomes.com.au

test_that("Valid search returns `data.frame`/`tibble`", {
    expect_s3_class(
        get_past_sales_data("Swinger Hill, ACT", 2020, quiet = TRUE),
        "data.frame")
})

test_that("Empty search returns zero-row `tibble`", {
    expect_warning(
        get_past_sales_data("Arboretrum, ACT", 2020),
        "Could not find")
})