add test for catmaid_get_neuronnames

* this enforces #6
natverse · Apr 22, 2015 · dbcd282 · dbcd282
1 parent 6ec1041
commit dbcd282
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/tests/testthat/test-fetch.R b/tests/testthat/test-fetch.R
@@ -23,3 +23,10 @@ test_that("read.neuron.catmaid", {
     expect_is(n<-read.neuron.catmaid(pid=1, skid=10418394, conn=conn), 'neuron')
   }
 })
+
+test_that("catmaid_get_neuronnames", {
+  if(!inherits(conn, 'try-error')){
+    baseline=c(`4453485`="IPC1", `10418394`="IPC10")
+    expect_equal(catmaid_get_neuronnames(skids=c(4453485,10418394)), baseline)
+  }
+})