X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fnamed.t;h=dfa6a9746667a6c58aebed950787d4dfe36da745;hb=1d1a1b199a488e6fa4f4f6bc69e2cb5e454c6b92;hp=403adc10b9901fb524385a3a56e039489f1a18f1;hpb=ada8284ba56d43e13de84a735ca4d9d42f498e6d;p=p5sagit%2FTry-Tiny.git

diff --git a/t/named.t b/t/named.t
index 403adc1..dfa6a97 100644
--- a/t/named.t
+++ b/t/named.t
@@ -1,37 +1,35 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
 use Test::More;
 
 BEGIN {
-	plan skip_all => "Sub::Name required"
-		unless eval { require Sub::Name; 1 };
-	plan tests => 4;
+    plan skip_all => "Sub::Util or Sub::Name required"
+        unless eval { require Sub::Util; defined &Sub::Util::set_subname; }
+            || eval { require Sub::Name; Sub::Name->VERSION(0.08) };
+    plan tests => 3;
 }
 
-BEGIN { use_ok 'Try::Tiny' }
+use Try::Tiny;
 
 my $name;
 try {
-	$name = (caller(0))[3];
+    $name = (caller(0))[3];
 };
-is $name, "main::try {...}", "try name";
+is $name, "main::try {...} ", "try name"; # note extra space
 
 try {
-	die "Boom";
+    die "Boom";
 } catch {
-	$name = (caller(0))[3];	
+    $name = (caller(0))[3];
 };
 is $name, "main::catch {...} ", "catch name"; # note extra space
 
 try {
-	die "Boom";
+    die "Boom";
 } catch {
-	# noop
+    # noop
 } finally {
-	$name = (caller(0))[3];	
+    $name = (caller(0))[3];
 };
 is $name, "main::finally {...} ", "finally name"; # note extra space
-