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 (file)
--- 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 (file)
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 (file)
--- a/t/lib/1_compile.t
+++ b/t/lib/1_compile.t
@@ -284,6 +284,7 @@ constant
 diagnostics
 fields
 integer
+less
 locale
 ops
 overload