tests for catmaid neuron queries

natverse · Oct 24, 2014 · 59d9474 · 59d9474
1 parent 5197a82
commit 59d9474
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/tests/testthat/test-fetch.R b/tests/testthat/test-fetch.R
@@ -9,3 +9,17 @@ test_that("get neuron names", {
                  structure(c("IPC10", "IPC1"), .Names = c("10418394", "4453485")))
   }
 })
+
+context("catmaid neuron queries")
+
+test_that("get neuron", {
+  if(!inherits(conn, 'try-error')){
+    expect_is(skel<-catmaid_get_compact_skeleton(pid=1, skid=10418394, conn=conn), 'list')
+  }
+})
+
+test_that("read.neron.catmaid", {
+  if(!inherits(conn, 'try-error')){
+    expect_is(skel<-read.neuron.catmaid(pid=1, skid=10418394, conn=conn), 'neuron')
+  }
+})