tests/testthat/test_run_afl.R

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

test_that("run afl query", {
  skip_if_no_db()
  conn = get_scidb_connection()

  operators = conn$query("list('operators')")
  expect_true(nrow(operators) > 1)
})

test_that("create an array then remove it", {
  skip_if_no_db()
  conn = get_scidb_connection()
  
  name = dbutils$random_array_name()
  
  show_array = function(){
    conn$query(sprintf("show(%s)", name))
  }
  
  conn$execute(sprintf("create temp array %s <a:string> [z]", name))
  # array should exist
  expect_identical(nrow(show_array()), 1L)
  
  # Remove the array
  conn$execute(sprintf("remove(%s)", name))
  expect_error(show_array())
  
})