inst/tests/testthat/test-connection.R

context("test-connection.R")

test_that("connection object", {
  expect_is(con, "Neo4JAPI")
  expect_is(con, "R6")
  expect_equal(con$ping(), 200)
  expect_equal(con$access()$url, "http://localhost:7474")
  expect_equal(con$access()$user, "neo4j")
  expect_equal(ncol(con$get_constraints()), 3)
  expect_equal(names(con$get_constraints()), c("label", "type", "property_keys"))
  expect_equal(ncol(con$get_labels()), 1)
  expect_equal(names(con$get_labels()), c("labels"))
  expect_equal(ncol(con$get_property_keys()), 1)
  expect_equal(names(con$get_property_keys()), c("labels"))
  expect_equal(ncol(con$get_relationships()), 1)
  expect_equal(names(con$get_relationships()), c("labels"))
  expect_equal(ncol(con$get_index()), 2)
  expect_equal(names(con$get_index()), c("label", "property_keys"))
  expect_is(con$get_version(), "character")
})

Try the neo4r package in your browser

Any scripts or data that you put into this service are public.

neo4r documentation built on May 2, 2019, 4:01 a.m.