tests/testthat/test-helpers.R

In andbamp/hexutils: Convenience functions for parsing binary data with R

context("Helper functions")

test_that("raw vectors are split correctly", {
  vec_raw <- sapply(c("\x01", "\xaa", "\xff", "\x02", "\x03"), charToRaw)
  vec_input <- unname(vec_raw[c(
    "\x01", "\xaa", "\xff", "\x02", "\xaa", "\xff", "\x03", "\xff", "\xff"
  )])
  
  vec_exp1 <- list(
    unname(vec_raw[c("\x01", "\xaa", "\xff")]),
    unname(vec_raw[c("\x02", "\xaa", "\xff")]),
    unname(vec_raw[c("\x03", "\xff")]),
    unname(vec_raw[c("\xff")])
  )
  expect_equal(hexsplit(vec_input, as.hexmode("ff")), vec_exp1)
  
  vec_exp2 <- list(
    unname(vec_raw[c("\x01", "\xaa")]),
    unname(vec_raw[c("\xff", "\x02", "\xaa")]),
    unname(vec_raw[c("\xff", "\x03", "\xff", "\xff")])
  )
  expect_equal(hexsplit(vec_input, as.hexmode("aa")), vec_exp2)
  
  vec_exp3 <- list(
    unname(vec_raw[c("\x01", "\xaa", "\xff")]),
    unname(vec_raw[c("\x02", "\xaa", "\xff")]),
    unname(vec_raw[c("\x03", "\xff", "\xff")])
  )
  expect_equal(hexsplit(vec_input, as.hexmode(c("aa", "ff"))), vec_exp3)
})

test_that("a sequence of bytes is decoded correctly", {
  encoding_char <- list(
    c("a1", "a2", "a3", "a4", "a5", "a6", "a7", "a8"),
    c("e", "h", "i", "l", "s", "t", "u", "x")
  )
  encoding_int <- list(as.hexmode(encoding_char[[1]]), encoding_char[[2]])
  encoding_raw <- list(as.raw(as.hexmode(encoding_char[[1]])), encoding_char[[2]])
  encoding_dat <- as.data.frame(encoding_char)
  
  block <- as.raw(as.hexmode(
    c("a0", "a2", "a1", "a8", "a0", "a7", "a6", "a3", "a4", "a5", "bb")
  ))
  
  decoded_vec <- c(NA, "h", "e", "x", NA, "u", "t", "i", "l", "s", NA)
  expect_equal(hexdecode(block, encoding_char), decoded_vec)
  expect_equal(hexdecode(block, encoding_int), decoded_vec)
  expect_equal(hexdecode(block, encoding_raw), decoded_vec)
  expect_equal(hexdecode(block, encoding_dat), decoded_vec)
  
  decoded_col_1 <- "hexutils"
  decoded_res_1 <- hexdecode(block, encoding_char, nomatch = "", collapse = "")
  expect_equal(decoded_res_1, decoded_col_1)
  
  decoded_col_2 <- "!h!e!x!!u!t!i!l!s!"
  decoded_res_2 <- hexdecode(block, encoding_char, nomatch = "", collapse = "!")
  expect_equal(decoded_res_2, decoded_col_2)
  
  decoded_nom_3 <- "!hex!utils!"
  decoded_res_3 <- hexdecode(block, encoding_char, nomatch = "!", collapse = "")
  expect_equal(decoded_res_3, decoded_nom_3)
})