tests/testthat/test_graphdatabase_class.R

In hitfuture/Neo4jDriveR: R Driver for Neo4j database access which uses Python as default driver

context("Test GraphDatabase class")

testthat::test_that("Ensure that the object will be returned",{

        graph <- GraphDatabase$new()
        the_class <- class(graph)
        expect_is(graph,c("GraphDatabase","R6"))
})

testthat::test_that("Graph Driver",{

        graph <- GraphDatabase$new()
        uri_v <- Sys.getenv("NEO4J_URI")

        print(paste("URI in Graph Driver:",uri_v))
        driver <- graph$driver(uri = uri_v,user_id = Sys.getenv("NEO4J_USER"),password = Sys.getenv("NEO4J_PSWD"))
        expect_is(graph,c("Driver","R6"))

})


testthat::test_that("Session",{
        graph <- GraphDatabase$new()
        driver <- graph$driver(uri = Sys.getenv("NEO4J_URI"),user_id = Sys.getenv("NEO4J_USER"),password = Sys.getenv("NEO4J_PSWD"))
        session <- driver$session()
        expect_is(session,c("Session","R6"))

})


testthat::test_that("Transaction",{
        graph <- GraphDatabase$new()
        driver <- graph$driver(uri = Sys.getenv("NEO4J_URI"),user_id = Sys.getenv("NEO4J_USER"),password = Sys.getenv("NEO4J_PSWD"))
        session <- driver$session()
        tx <- session$begin_transaction()
        expect_is(tx,c("Transaction","R6"))

})

testthat::test_that("Test Query return StatementResult class",{
        graph <- GraphDatabase$new()
        driver <- graph$driver(uri = Sys.getenv("NEO4J_URI"),user_id = Sys.getenv("NEO4J_USER"),password = Sys.getenv("NEO4J_PSWD"))
        session <- driver$session()
        tx <- session$begin_transaction()
        results <- tx$run("MATCH (n:Hospital) WHERE n.provider_id = '50441'
               return n.provider_id AS provider_id, n.hospital_name as hospital_name")
        expect_is(results,c("StatementResult","R6"))


})

testthat::test_that("Test Query - Return results as data",{
        graph <- GraphDatabase$new()
        driver <- graph$driver(uri = Sys.getenv("NEO4J_URI"),user_id = Sys.getenv("NEO4J_USER"),password = Sys.getenv("NEO4J_PSWD"))
        session <- driver$session()
        tx <- session$begin_transaction()
        results <- tx$run("MATCH (n:Hospital) WHERE n.provider_id = 50441
               return n.provider_id AS provider_id, n.hospital_name as hospital_name")

        data  <- results$data()
        str(data)
        print(paste("results$data()",data))
        expect_is(data,c("list"))


})

testthat::test_that("Test Query - Return results as data.frame",{
        graph <- GraphDatabase$new()
        driver <- graph$driver(uri = Sys.getenv("NEO4J_URI"),user_id = Sys.getenv("NEO4J_USER"),password = Sys.getenv("NEO4J_PSWD"))
        session <- driver$session()
        tx <- session$begin_transaction()
        results <- tx$run("MATCH (n:Hospital) WHERE n.provider_id = 50441
               return n.provider_id AS provider_id, n.hospital_name as hospital_name")

        data  <- results$data.frame()
        str(data)
        print(paste("results$data.frame()",data))
        expect_is(data,c("data.frame"))


})

testthat::test_that("StatementResult$attached()",{
        graph <- GraphDatabase$new()
        driver <- graph$driver(uri = Sys.getenv("NEO4J_URI"),user_id = Sys.getenv("NEO4J_USER"),password = Sys.getenv("NEO4J_PSWD"))
        session <- driver$session()
        tx <- session$begin_transaction()
        results <- tx$run("MATCH (n:Hospital) WHERE n.provider_id = 50441
               return n.provider_id AS provider_id, n.hospital_name as hospital_name")

        is_attached  <- results$attached()
        expect_true(is_attached)


})