tests/testthat/test-validate_data.R

In ConverTier2: Conversion of Tiered Assessment Responses to Polytomous Scores

test_that("validate_data menerima data binary yang valid", {

  data <- data.frame(
    Jwb_1 = c(1, 1, 0),
    Als_1 = c(1, 0, 0),
    Jwb_2 = c(0, 1, 1),
    Als_2 = c(1, 0, 1)
  )

  expect_invisible(
    validate_data(
      data,
      n_tier = 2
    )
  )

})


test_that("validate_data menolak nilai selain 0 dan 1", {

  data <- data.frame(
    Jwb_1 = c(1, 2, 0),
    Als_1 = c(1, 0, 0)
  )

  expect_error(
    validate_data(
      data,
      n_tier = 2
    ),
    "hanya boleh berisi nilai 0 atau 1"
  )

})


test_that("validate_data menolak NA", {

  data <- data.frame(
    Jwb_1 = c(1, NA, 0),
    Als_1 = c(1, 0, 0)
  )

  expect_error(
    validate_data(
      data,
      n_tier = 2
    ),
    "mengandung NA"
  )

})


test_that("validate_data menolak jumlah kolom yang tidak sesuai", {

  data <- data.frame(
    Jwb_1 = c(1, 1),
    Als_1 = c(1, 0),
    Jwb_2 = c(0, 1)
  )

  expect_error(
    validate_data(
      data,
      n_tier = 2
    ),
    "tidak habis dibagi"
  )

})


test_that("validate_data menolak n_tier yang tidak valid", {

  data <- data.frame(
    Jwb_1 = c(1, 1),
    Als_1 = c(1, 0)
  )

  expect_error(
    validate_data(
      data,
      n_tier = 0
    ),
    "bilangan bulat positif"
  )

})