Make the errors from NoEventStorage bubble up through History.

So the user sees their own call to TB2::History not inside TB2::History. For #198
Test-More · May 25, 2012 · adc2c55 · adc2c55
1 parent e47df19
commit adc2c55
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/lib/TB2/History/NoEventStorage.pm b/lib/TB2/History/NoEventStorage.pm
@@ -4,6 +4,8 @@ use Carp;
 use TB2::Mouse;
 extends 'TB2::History::EventStorage';
 
+our @CARP_NOT = qw(TB2::History);
+
 
 =head1 NAME
 

diff --git a/t/History/History.t b/t/History/History.t
@@ -72,7 +72,10 @@ note "Turn off event storage";
     is $history->event_count, 3;
 
     ok !eval { $history->events; 1 };
+    is $@, sprintf "Events are not stored at %s line %d.\n", __FILE__, __LINE__-1;
+
     ok !eval { $history->results; 1 };
+    is $@, sprintf "Results are not stored at %s line %d.\n", __FILE__, __LINE__-1;
 
     ok !eval { $history->store_events(1) }, "can't turn on storage for an existing object";
 }