include test for failure mode
[catagits/Catalyst-Runtime.git] / t / unit_core_log.t
index bc167b1..26a52d3 100644 (file)
@@ -1,8 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 24;
-use Test::NoWarnings;    # Adds an extra test.
+use Test::More tests => 23;
 
 my $LOG;
 
@@ -42,8 +41,7 @@ like $MESSAGES[0], qr/^\[info\] hello there!$/,
 {
 
     package Catalyst::Log::Subclass;
-    use Moose;
-    extends 'Catalyst::Log';
+    use base qw/Catalyst::Log/;
 
     sub _send_to_log {
         my $self = shift;