tests/testthat/test-read.ulong.R

context("ulong tests")

test_that("can read ulong", {
  con <- rawConnection(c(as.raw(0xff), raw(3)))
  expect_equal(read.ulong(con, "little"), 0x000000ff)
  con <- rawConnection(c(as.raw(0xff), raw(3)))
  expect_equal(read.ulong(con, "big"), 0xff000000)
})
mlt/csdf documentation built on May 23, 2019, 4:06 a.m.