tests/testthat/test-read_replicates.R

In verdata: Analyze Data from the Truth Commission in Colombia

# ============================================
# Authors:     MJ
# Maintainers: MJ
# Copyright:   2022, HRDAG, GPL v2 or later
# ============================================

right_dir <- system.file("extdata", "right", package = "verdata", "verdata-reclutamiento-R1.parquet")
wrong_dir <- system.file("extdata", "wrong", package = "verdata", "verdata-reclutamiento-R1.parquet")
csv_right <- system.file("extdata", "right", package = "verdata", "verdata-reclutamiento-R1.csv.zip")

testthat::test_that("Hashing content", {

    testthat::expect_true(all(read_replicate(right_dir, version = "v1")$match))
    testthat::expect_s3_class(read_replicate(right_dir, version = "v1"), "data.frame")

})

testthat::test_that("Hashing csv content", {

    testthat::expect_s3_class(read_replicate(csv_right, version = "v1"), "data.frame")
    testthat::expect_true(all(read_replicate(csv_right, version = "v1")$match))

})

testthat::test_that("Hashing wrong content with default crash", {

    testthat::expect_s3_class(read_replicate(wrong_dir, version = "v1"), "data.frame")
    testthat::expect_false(all(read_replicate(wrong_dir, version = "v1")$match))

})

right_dir <- system.file("extdata", "right", package = "verdata")
wrong_dir <- system.file("extdata", "wrong", package = "verdata")

testthat::test_that("Hashing content of files", {

    testthat::expect_s3_class(read_replicates(right_dir, "reclutamiento", c(1, 2), version = "v1"), "data.frame")

})

testthat::test_that("Hashing content of wrong files with default crash", {

    testthat::expect_error(read_replicates(wrong_dir, "reclutamiento", c(1, 2), version = "v1"))

})

testthat::test_that("Hashing content of wrong with crash set to F", {
    testthat::expect_warning(read_replicates(wrong_dir, "reclutamiento", c(1, 2), version = "v1", FALSE))
    testthat::expect_s3_class(read_replicates(wrong_dir, "reclutamiento", c(1, 2), version = "v1", FALSE), "data.frame")

})

testthat::test_that("Function should return an error if the violation type is incorrect", {

  testthat::expect_error(read_replicates(right_dir, "desplazamiento", c(1, 2), version = "v1"))

})

testthat::test_that("Expect message when number of replicates exceed available replicates", {

  testthat::expect_error(read_replicates(right_dir, "reclutamiento", 90:110, version = "v1"))

})

testthat::test_that("Expect message when first replicate is less than 1", {

  testthat::expect_error(read_replicates(right_dir, "reclutamiento", 0:2, version = "v1"))

})

testthat::test_that("Expect message when first replicate is less than 1 and last is more than 100", {

  testthat::expect_error(read_replicates(right_dir, "reclutamiento", 0:101, version = "v1"))
})

testthat::test_that("Function should return an error if replicate numbers are misspecified", {

  testthat::expect_error(read_replicates(right_dir, "reclutamiento", c("1", 2), version = "v1"))

})

testthat::test_that("Function should return an error if replicate numbers are misspecified", {

  testthat::expect_error(read_replicates(right_dir, "RECLUTAMIENTO", c(1, "dos"), version = "v1"))

})

testthat::test_that("Function should return an error if one or more of the replicates is not in the directory, but within the plausible bounds", {

    testthat::expect_error(read_replicates(right_dir, "reclutamiento", 1:10, version = "v1"))

})

# --- Done