tests/testthat/test-annual_quantities_by.R

In BAAQMD/qtytools: Parse, Manipulate, and Predict Quantities

context("annual_quantities_by")

test_that("no groups", {

  expect_equal(
    ems_and_tput_by_year,
    annual_quantities_by(ems_and_tput))

  expect_equal(
    annual_quantities_by(ems_and_tput),
    sum_quantities_by(ems_and_tput, year))

})

test_that("grouped by pol_abbr", {

  ems_and_tput %>%
    annual_quantities_by(
      pol_abbr) %>%
    expect_equal(
      ems_and_tput_by_year_and_pol)

  expect_equal(
    annual_quantities_by(ems_and_tput, pol_abbr),
    sum_quantities_by(ems_and_tput, year, pol_abbr))

})

# test_that("S3 classes", {
#
#   ems_and_tput_by_year_and_pol %>%
#     annual_quantities_by(
#       pol_abbr) %>%
#     expect_s3_class(
#       "annual")
#
# })