use C3 in the tests also

diff --git a/t/lib/TestApp/Model/Test.pm b/t/lib/TestApp/Model/Test.pm
index a870eaf..7f702af 100644 (file)
--- a/t/lib/TestApp/Model/Test.pm
+++ b/t/lib/TestApp/Model/Test.pm
@@ -8,7 +8,7 @@ use base qw(Catalyst::Component::ACCEPT_CONTEXT Catalyst::Model);
 my $foo = 'bar';
 sub new {
     my $self = shift;
-    $self = $self->NEXT::new(@_);
+    $self = $self->next::method(@_);
     $foo = $self->context->config->{foo};
     return $self;
 }

diff --git a/t/preserve-object.t b/t/preserve-object.t
index 92e84fe..79d5afd 100644 (file)
--- a/t/preserve-object.t
+++ b/t/preserve-object.t
@@ -21,7 +21,7 @@ is $foo->context->{ctx}, 'it is', 'got ctx';
 
     sub new {
         my $class = shift;
-        return $class->NEXT::new(@_);
+        return $class->next::method(@_);
     }
 
 }