tests/testthat/test-function-containsNulString.R

test_that("containsNulString() works", {
  
  file <- tempfile()
  
  writeBin(as.raw(c(0xff, 0xfe)), con = file)
  
  expect_true(containsNulString(file))
  
  writeBin(as.raw(c(0x55, 0xff, 0xfe)), con = file)
  
  expect_false(containsNulString(file))
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.