tests/testthat.R

In mknoll/imageanalysisBrain: Analysis of Brain Imaging Data

## test decoding  of encoded coordinate
#DECVAL <- 51512331
#testthat::expect_that(getOption("BITSIZE"), testthat::equals(10))
#testthat::expect_that(decX(DECVAL), testthat::equals(49))
#testthat::expect_that(decY(DECVAL), testthat::equals(129))
#testthat::expect_that(decZ(DECVAL), testthat::equals(11))

## test encoding of var
#testthat::expect_that(enc(49,129,11), testthat::equals(DECVAL))