From: chromatic <chromatic@wgz.org>
Date: Thu, 6 Sep 2001 23:11:44 +0000 (-0600)
Subject: Add Tests for the less Pragma
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=70a6dec2023ddb804ce104624fb6280eadcec9e7;p=p5sagit%2Fp5-mst-13.2.git

Add Tests for the less Pragma
Message-ID: <20010907051609.91459.qmail@onion.perl.org>

p4raw-id: //depot/perl@11929
---

diff --git a/MANIFEST b/MANIFEST
index a662573..0e00ff7 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -952,6 +952,7 @@ lib/IPC/Open3.pm		Open a three-ended pipe!
 lib/IPC/Open3.t			See if IPC::Open3 works
 lib/IPC/SysV.t			See if IPC::SysV works
 lib/less.pm			For "use less"
+lib/less.t			See if less support works
 lib/lib_pm.PL			For "use lib", produces lib/lib.pm
 lib/Lingua/KO/Hangul/Util/Changes	Lingua::KO::Hangul::Util
 lib/Lingua/KO/Hangul/Util/README	Lingua::KO::Hangul::Util
diff --git a/lib/less.t b/lib/less.t
new file mode 100644
index 0000000..c801a1b
--- /dev/null
+++ b/lib/less.t
@@ -0,0 +1,10 @@
+#!./perl 
+
+BEGIN {
+    chdir 't' if -d 't';
+    push @INC, '../lib';
+}
+
+use Test::More tests => 1;
+
+use_ok( 'less' );
diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t
index fcf8738..d9ed792 100644
--- a/t/lib/1_compile.t
+++ b/t/lib/1_compile.t
@@ -284,6 +284,7 @@ constant
 diagnostics
 fields
 integer
+less
 locale
 ops
 overload