whitespace

[p5sagit/Try-Tiny.git] / t / named.t

diff --git a/t/named.t b/t/named.t
index 403adc1..dfa6a97 100644 (file)
--- 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
-