From: Vincent Pit <vince@profvince.com>
Date: Fri, 29 Aug 2008 22:18:46 +0000 (+0200)
Subject: Test -X _
X-Git-Tag: v0.03~3
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fsubs-auto.git;a=commitdiff_plain;h=a00238a93730075d0dc26b6152c958c9d8da30a8

Test -X _
---

diff --git a/t/10-base.t b/t/10-base.t
index 4d5840a..33c6fb2 100644
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 66;
+use Test::More tests => 67;
 
 my %_re = (
  bareword => sub { qr/^Bareword\s+['"]?\s*$_[0]\s*['"]?\s+not\s+allowed\s+while\s+["']?\s*strict\s+subs\s*['"]?\s+in\s+use\s+at\s+$_[1]\s+line\s+$_[2]/ },
@@ -264,6 +264,8 @@ is($foo, 16, 'foo really was executed');
 eval { blech };
 _got_undefined('blech', __LINE__-1);
 
+ok(-f $0 && -r _, '-X _');
+
 __DATA__
 apple
 pear