X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Funit_core_setup.t;h=1e6e5729f01f41ef566c35917190a3e7b9780ac7;hb=aa2e6d9e59b1373b13fe7c37725f3fab3b8a1e92;hp=bcf3030df8985eac2ebaa934cc5a67adf35e679c;hpb=d31581c60ff345e3fa71ca66bc83e826935b158b;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/unit_core_setup.t b/t/unit_core_setup.t
index bcf3030..1e6e572 100644
--- a/t/unit_core_setup.t
+++ b/t/unit_core_setup.t
@@ -25,16 +25,18 @@ sub build_test_app_with_setup {
     return $name;
 }
 
+local %ENV; # Don't allow env variables to mess us up.
+
 {
     my $app = build_test_app_with_setup('MyTestDebug', '-Debug');
 
     ok my $c = MyTestDebug->new, 'Get debug app object';
     ok my $log = $c->log, 'Get log object';
     isa_ok $log, 'Catalyst::Log', 'It should be a Catalyst::Log object';
-    ok !$log->is_warn, 'Warnings should be disabled';
-    ok !$log->is_error, 'Errors should be disabled';
-    ok !$log->is_fatal, 'Fatal errors should be disabled';
-    ok !$log->is_info, 'Info should be disabled';
+    ok $log->is_warn, 'Warnings should be enabled';
+    ok $log->is_error, 'Errors should be enabled';
+    ok $log->is_fatal, 'Fatal errors should be enabled';
+    ok $log->is_info, 'Info should be enabled';
     ok $log->is_debug, 'Debugging should be enabled';
     ok $app->debug, 'debug method should return true';
 }