tests/testthat/test-data.R

In pedro-teles-fonseca/daubl: Digit Analysis Using Benford's Law

context("data")

test_that("pooled sample sizes", {
  expect_true(length(pooled_sample_bl1) >= length(pooled_sample_bl2))
})

test_that("sample sizes bl1", {
  expect_equal(sum(sapply(
    list(
      austria_bl1,
      belgium_bl1,
      cyprus_bl1,
      finland_bl1,
      france_bl1,
      germany_bl1,
      greece_bl1,
      ireland_bl1,
      italy_bl1,
      luxembourg_bl1,
      malta_bl1,
      netherlands_bl1,
      portugal_bl1,
      slovakia_bl1,
      slovenia_bl1,
      spain_bl1
    ),
    length
  )),
  length(pooled_sample_bl1))
})

test_that("sample sizes bl2", {
  expect_equal(sum(sapply(
    list(
      austria_bl2,
      belgium_bl2,
      cyprus_bl2,
      finland_bl2,
      france_bl2,
      germany_bl2,
      greece_bl2,
      ireland_bl2,
      italy_bl2,
      luxembourg_bl2,
      malta_bl2,
      netherlands_bl2,
      portugal_bl2,
      slovakia_bl2,
      slovenia_bl2,
      spain_bl2
    ),
    length
  )),
  length(pooled_sample_bl2))
})

test_that("germany sample size", {
  expect_equal(length(germany_bl1),
               454)
})

test_that("slovakia_bl1 sample size", {
  expect_equal(length(slovakia_bl1),
               412 - 27)
})

test_that("lengths bl1", {
  expect_equal(
    sapply(l1, length)[1:17],
    c(
      427,
      539,
      379,
      405,
      405,
      454,
      385,
      380,
      473,
      468,
      400,
      490,
      490,
      385,
      485,
      532,
      7097
    )
  )
})

test_that("lengths bl2", {
  expect_equal(
    sapply(l1, length)[18:34],
    c(
      427,
      539,
      377,
      405,
      405,
      454,
      385,
      380,
      473,
      464,
      392,
      490,
      488,
      379,
      478,
      532,
      7068
    )
  )
})

test_that("data lengths", {
  expect_equal(
    sapply(l2, length),
    c(
      437,
      539,
      412,
      412,
      412,
      454,
      462,
      387,
      480,
      496,
      408,
      497,
      497,
      412,
      492,
      539,
      7336
    )
  )
})