udpate test baseline for cable

Author: jefferis

tests/testthat/test-summary.R

@@ -2,7 +2,7 @@ context("summary")
 
 test_that("summary.neuronlist behaves", {
   expect_is(s <- summary(Cell07PNs), 'data.frame')
-  expect_equal_to_reference(s, file = 'testdata/summary_cell07pns.rds', tolerance=1e-3)
+  expect_known_value(s, file = test_path('testdata/summary_cell07pns.rds'), tolerance=1e-3)
   expect_is(summary(kcs20, veclength=1.2), 'data.frame')
 
   skip_if_not(use_natcpp())
@@ -12,8 +12,9 @@ test_that("summary.neuronlist behaves", {
   # a discrepancy masked by tolerance = 1e-3
   # this is down to some neurons having cycles
   expect_equal(summary(Cell07PNs), s, tolerance = 1e-3)
-  expect_equal_to_reference(summary(Cell07PNs), file = 'testdata/summary_cell07pns.rds')
-  
+  expect_known_value(summary(Cell07PNs), 
+                     file = test_path('testdata/summary_cell07pns.rds'),
+                     tolerance=1e-3)
 })
 
 context('print')