tests/testthat/test_pcd_query.R

In kimjam/qrcutils: Contains utility functions for data pipeline project.

context('Test that pcd_query can communicate with PCD')

test_that('Test rocre query', {
  df <- pcd_query(query = fill_query(query = queries$rocre,
                                     range = onedayrange))

  expect_equal(class(df), 'data.frame')
  expect_equal(ncol(df), 19)
  expect_equal(names(df), roccl_names)
})

test_that('Test roceq query', {
  df <- pcd_query(query = fill_query(query = queries$roceq,
                                     range = onedayrange))

  expect_equal(class(df), 'data.frame')
  expect_equal(ncol(df), 19)
  expect_equal(names(df), roccl_names)
})

test_that('Test roctm query', {
  df <- pcd_query(query = fill_query(query = queries$roctm,
                                     range = onedayrange))

  expect_equal(class(df), 'data.frame')
  expect_equal(ncol(df), 25)
  expect_equal(names(df), roctm_names)
})