tests/testthat/test_db_access.R

In blongworth/amstools: Provides tools for AMS data extraction and analysis

context("Database connection")

#test_that("conNOSAMS returns db connection", {
#	expect_true(conNOSAMS())
#})

from <- as.Date('2016-01-01')
to <- as.Date('2016-01-06')
sys <- 'both'
data <- getStandards(from, to, sys, getcurrents = TRUE)

context("getQCTable")
test_that("getQCTable returns good data", {
  data <- getQCTable(from, to, sys)
	expect_true(is.data.frame(data))
  expect_equal(nrow(data), 5)
})

context("getStandards")
test_that("getStandards returns good data", {
	expect_true(is.data.frame(data))
  expect_equal(nrow(data), 12)
})

test_that("getStandards sys argument works", {
  expect_equal(nrow(getStandards(from, to, sys = "USAMS",
                            getcurrents = FALSE)), 12)
  expect_equal(nrow(getStandards(from, to, sys = "CFAMS",
                            getcurrents = FALSE)), 0)
})

test_that("getStandards works with rec argument", {
  expect_equal(getStandards(from, to, sys,
                            getcurrents = FALSE, rec = 34149)[,1], 198420)
  expect_equal(sort(getStandards(from, to, sys,
                            getcurrents = FALSE,
                            rec = c(34148, 34149))[,1]), c(198420, 198441))
})

test_that("getStandards works with osg argument", {
  expect_equal(getStandards(from, to, sys,
                            getcurrents = FALSE,
                            osg = 146514)[,1],
               198405)
  expect_equal(sort(getStandards(from, to, sys,
                            getcurrents = FALSE,
                            osg = c(146514, 146202))[,1]),
               c(198405, 198406))
})

context("getWheelInfo")
test_that("getWheelInfo returns correct number of results", {
  expect_equal(nrow(getWheelInfo("USAMS111819")), 32)
})

context("numRun")
test_that("numRun returns all runs in a date range", {
  expect_equal(numRun(from, to, sys)[1], 125)
  expect_equal(numRun(from, to, "USAMS")[1], 80)
})

context("getWheel")
test_that("getWheel returns all results for two wheels", {
  expect_equal(nrow(getWheel(c("USAMS111819", "USAMS102619"))), 89)
})

context("getRawWheel")
test_that("getRawWheel returns all results for two wheels", {
  expect_equal(nrow(getRawWheel(c("USAMS111819", "USAMS102619"))), 890)
})

context("getProcess")
test_that("getProcess returns correct result", {
  expect_equal(getProcess(200000), "WS")
})

context("getRawData")
test_that("getRawData returns correct number of results", {
  expect_equal(nrow(getRawData(from, to)), 942)
})