Fix basic test for Test::MockObject 1.07, where it will die if a
Ton Voon [Tue, 10 Oct 2006 13:42:42 +0000 (13:42 +0000)]
non-mocked method is called

Changes
t/basic.t

diff --git a/Changes b/Changes
index fcc8022..e6cd5a2 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+0.08
+    - Fix basic test when using Test::MockObject 1.07 (die if using undefined interfaces)
+
 0.07
     - Applied Ton Voon's patch that fixed option propagation for basic auth.
 
index 35d733a..1af650c 100644 (file)
--- a/t/basic.t
+++ b/t/basic.t
@@ -24,6 +24,7 @@ my $cache = Test::MockObject->new;
 $cache->mock(set => sub { shift->{$_[0]} = $_[1] });
 $cache->mock(get => sub { return shift->{$_[0]} });
 $c->mock(cache => sub { $cache });
+$c->mock(debug => sub { 0 });
 my @login_info;
 $c->mock( login => sub { shift; @login_info = @_; 1 } );
 $c->set_always( config => {} );