tests/testthat/test-QC3a.R

In rivm-syso/KRWQCprotocol: Standardised test for Dutch Groundwater Monitoring Networks

test_that("QC3a", {


              data(metingen)
              data(veld)

              x <- QC3a(d_veld = veld, d_metingen = metingen)

              # test if attributes exist
              expect_true(qcout_attrexists(x))
              x_attr <- attr(x, "qcout")
              expect_false(is.null(x_attr[["QC3a"]]))
              expect_true(is.list(x_attr[["QC3a"]][["resultaat"]]))

              expect_true(nrow(metingen) == nrow(x))

})