tests/testthat/test-split.R

In natverse/hemibrainr: Code for Working with Data from Janelia FlyEM's Hemibrain Project and the flywire data sets``

skip_if(as.logical(Sys.getenv("SKIP_NP_SERVER_TESTS")))

test_that("hemibrain_skeleton_check works", {
  ids = c("203253072")

  neurons = neuprint_read_neurons(ids)

  expect_is(neurons.flow <- hemibrain_flow_centrality(neurons),
            'neuronlist')
  expect_equal(class(neurons.flow[[1]]),
               c("neuprintneuron", "catmaidneuron", "neuron", "list"))
  expect_length(neurons.flow[[1]][['primary.branch.point']], 1L)
})