tests/testthat/test-getOperations.R

In froocpu/xlm: A 'Stellar' Client

context("Pull multiple operations.")


n = 20

o1_id = "10157597659137"

test_that("The first 20 operations from the network can be pulled.", {
  operations = getOperations(n, domain=domain)
  expect_true(is.data.table(operations))
  expect_equal(nrow(operations), n)
  expect_equal(operations$id[1], o1_id)
  expect_true(all(c("id","type","type_i", "account",
                    "created_at", "funder", "asset_code", "to", "from") %in% names(operations)))

})

test_that("List object can be returned instead of a data.table.", {
  operations_ls = getOperations(n, domain = domain, data.table = FALSE)
  expect_true(exists("_embedded", operations_ls))
  expect_true(exists("records", operations_ls[['_embedded']]))
  expect_length(operations_ls[['_embedded']][['records']], n)
  expect_equal(operations_ls[['_embedded']][['records']][[1]]$id, o1_id)
})