tests/testthat/test-daily-trips.R

In ropensci/bikedata: Download and Aggregate Data from Public Hire Bicycle Systems

context ("daily trips")

require (testthat)

bikedb <- system.file ("db", "testdb.sqlite", package = "bikedata")

test_that ("no db arg", {
               expect_error (bike_daily_trips (),
                             "Can't get daily trips if bikedb isn't provided")
})

test_that ("db does not exist", {
               expect_error (bike_daily_trips (a), "object 'a' not found")
               expect_error (bike_daily_trips ("a"), "file a does not exist")
               expect_error (bike_daily_trips (a = "a"), "unused argument")
               expect_error (bike_daily_trips (bikedb = "a"),
                             "file a does not exist")
})

test_that ("no city", {
               expect_error (bike_daily_trips (bikedb),
                     "bikedb contains multiple cities; please specify one")
})

test_that ("daily trips", {
               nt <- bike_daily_trips (bikedb = bikedb, city = "ny")
               expect_equal (nrow (nt), 1) # only one day of trips
               expect_equal (nt$numtrips, 200)
               expect_is (nt$numtrips, "integer")
               nt <- bike_daily_trips (bikedb = bikedb, city = "ny",
                                       standardise = TRUE)
               expect_is (nt$numtrips, "numeric")

               expect_equal (bike_daily_trips (bikedb = bikedb,
                                               city = "ny")$numtrips, 200)
               expect_equal (bike_daily_trips (bikedb = bikedb,
                                               city = "ny",
                                               member = TRUE)$numtrips, 191)
               expect_equal (bike_daily_trips (bikedb = bikedb, city = "ny",
                                               gender = "f")$numtrips, 22)
               expect_equal (bike_daily_trips (bikedb = bikedb, city = "ny",
                                               station = "173",
                                               gender = 1)$numtrips, 1)
})