tests/testthat/test-convert_file.R

In ConverTier2: Conversion of Tiered Assessment Responses to Polytomous Scores

test_that("convert_file menghasilkan skor dari file Excel", {

  input_file <- tempfile(
    fileext = ".xlsx"
  )

  output_file <- tempfile(
    fileext = ".xlsx"
  )

  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)
  )

  rules <- c(
    "11" = 4,
    "10" = 3,
    "01" = 2,
    "00" = 1
  )

  writexl::write_xlsx(
    data,
    input_file
  )

  hasil <- convert_file(
    input = input_file,
    output = output_file,
    rules = rules,
    n_tier = 2
  )

  expect_true(
    file.exists(output_file)
  )

  expect_equal(
    hasil$Score_Item_1,
    c(4, 3, 1)
  )

  expect_equal(
    hasil$Score_Item_2,
    c(2, 3, 4)
  )

})