tests/testthat/test-import-read_listings.R

In IsaacVerm/find.apartment.analysis: Analyse Immoweb data to find a new appartment to rent.

context("read_raw_listings")

listings <- read_raw_listings()

test_that("reads as dataframe", {
  expect_is(listings, "data.frame")
})

test_that("contains correct column names", {
  expect_named(listings, c("address","availability_date","construction_year","floors","current_state","habitable_area",
                           "rent","charges","energy_consumption"))
})

test_that("contains rows", {
  expect_gt(nrow(listings), 0)
})