tests/testthat/helper_functions.R

In Paradigm4/ArrayOpR: Toolset for Object-Oriented SciDB Array Operations/Operands

# Whitespace doesn't matter in AFL
assert_afl_equal <- function(actual, expected) {
  actual <- gsub('\\s+', '', actual)
  expected <- gsub('\\s+', '', expected)
  testthat::expect_identical(actual, expected)
}

# Get a str vector from one str split by white spaces
.strsplit = function(x, sep="\\s+") {
  strsplit(x, split = sep)[[1]]
}