Fix ambiguous warnings sub & package test failure

[chaz/p5-File-KDBX] / t / error.t

diff --git a/t/error.t b/t/error.t
index ae467f262b09ef207484cefb10e4ddb08945f050..79ad54f8657eb966be346839ded8d444f41e15de 100644 (file)
--- a/t/error.t
+++ b/t/error.t
@@ -3,14 +3,15 @@
 use warnings;
 use strict;
 
+BEGIN { delete $ENV{DEBUG} }
+
 use lib 't/lib';
 use TestCommon;
 
+use File::KDBX::Error;
 use File::KDBX;
 use Test::More;
 
-BEGIN { use_ok 'File::KDBX::Error' }
-
 subtest 'Errors' => sub {
     my $error = exception {
         local $! = 1;
@@ -30,17 +31,6 @@ subtest 'Errors' => sub {
     ok 0 < @$trace, 'Errors record a stacktrace';
     like $trace->[0], qr!^uh oh at \H+error\.t line \d+$!, 'Stacktrace is correct';
 
-    {
-        local $ENV{DEBUG} = '';
-        like "$error", qr!^uh oh at \H+error\.t line \d+\.$!, 'Errors stringify without stacktrace';
-    }
-
-    {
-        local $ENV{DEBUG} = '1';
-        like "$error", qr!^uh oh at \H+error\.t line \d+\.\nbless!,
-            'Errors stringify with stacktrace when DEBUG environment variable is set';
-    }
-
     $error = exception { File::KDBX::Error->throw('uh oh') };
     like $error, qr/uh oh/, 'Errors can be thrown using the "throw" constructor';
     like $error->trace->[0], qr!^uh oh at \H+error\.t line \d+$!, 'Stacktrace is correct';
@@ -90,7 +80,7 @@ subtest 'Warnings' => sub {
     }
 
     SKIP: {
-        skip 'warnings::warnif_at_level is required', 1 if !warnings->can('warnif_at_level');
+        skip 'warnings::warnif_at_level is required', 1 if !warnings::->can('warnif_at_level');
         no warnings 'File::KDBX';
         my @warnings = warnings { alert 'uh oh' };
         is @warnings, 0, 'Warnings can be disabled lexically'
@@ -98,7 +88,7 @@ subtest 'Warnings' => sub {
     }
 
     SKIP: {
-        skip 'warnings::fatal_enabled_at_level is required', 1 if !warnings->can('fatal_enabled_at_level');
+        skip 'warnings::fatal_enabled_at_level is required', 1 if !warnings::->can('fatal_enabled_at_level');
         use warnings FATAL => 'File::KDBX';
         my $exception = exception { alert 'uh oh' };
         like $exception, qr/uh oh/, 'Warnings can be fatal';