tests/testthat/test-hcd_url.R

In gavinsimpson/canadaHCD: Canadian Historical Climate Data

library("testthat")
library("canadaHCD")

## test URL generation
test_that("hcd_url() returns a tbl_df for timescale = hourly", {
    df <- hcd_url("2855", timescale = "hourly", year = 2015, month = 1)
    expect_s3_class(df, "tbl_df")
    expect_identical(ncol(df), 4L)
    expect_named(df, expected = c("station", "year", "month", "url"))
})

## test URL generation
test_that("hcd_url() returns a tbl_df for timescale = daily", {
    df <- hcd_url("2855", timescale = "daily", year = 2015)
    expect_s3_class(df, "tbl_df")
    expect_identical(ncol(df), 3L)
    expect_named(df, expected = c("station", "year", "url"))
})

## test URL generation
test_that("hcd_url() returns a tbl_df for timescale = monthly", {
    df <- hcd_url("2855", timescale = "monthly")
    expect_s3_class(df, "tbl_df")
    expect_identical(ncol(df), 2L)
})

## Test variable types
test_that("hcd_url() returns correct variables types: monthly", {
    df <- hcd_url("2855", timescale = "monthly")
    expect_named(df, expected = c("station", "url"))
    expect_type(df$station, "character")
    expect_type(df$url, "character")
})

test_that("hcd_url() returns correct variables types: daily", {
    df <- hcd_url("2855", timescale = "daily", year = 2015)
    expect_named(df, expected = c("station", "year", "url"))
    expect_type(df$station, "character")
    expect_type(df$year, "integer")
    expect_type(df$url, "character")
})

test_that("hcd_url() returns correct variables types: hourly", {
    df <- hcd_url("2855", timescale = "hourly", year = 2015, month = 1)
    expect_named(df, expected = c("station", "year", "month", "url"))
    expect_type(df$station, "character")
    expect_type(df$year, "integer")
    expect_type(df$month, "integer")
    expect_type(df$url, "character")
})