From: Graham Barr <bodg@tiuk.ti.com>
Date: Mon, 30 Dec 1996 07:00:18 +0000 (+0000)
Subject: test harness for C<use x.xxxx>
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d5c001ddae568c5769b6a9eb70138c72d385cacb;p=p5sagit%2Fp5-mst-13.2.git

test harness for C<use x.xxxx>

Here is the test harness for version numbers in use statements. It
checks both the C<use x.xxx> and C<use MODULE x.xxxx>

Paul suggested in an earlier message, the introduction
of a pragma directory. I would suggest that this test
should also go in the pragma directory.

p5p-msgid: <32C76882.3F3C7999@tiuk.ti.com>
---

diff --git a/MANIFEST b/MANIFEST
index ea6fe73..8926a24 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -687,6 +687,7 @@ t/op/tie.t		See if tie/untie functions work
 t/op/time.t		See if time functions work
 t/op/undef.t		See if undef works
 t/op/unshift.t		See if unshift works
+t/op/use.t		See if use works
 t/op/vec.t		See if vectors work
 t/op/write.t		See if write works
 taint.c			Tainting code
diff --git a/t/op/use.t b/t/op/use.t
index e69de29..96c59ee 100755
--- a/t/op/use.t
+++ b/t/op/use.t
@@ -0,0 +1,101 @@
+#!./perl
+
+print "1..14\n";
+
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
+my $i = 1;
+
+eval "use 5.000;";
+if ($@) {
+    print STDERR $@,"\n";
+    print "not ";
+}
+print "ok ",$i++,"\n";
+
+eval sprintf "use %.5f;", $];
+if ($@) {
+    print STDERR $@,"\n";
+    print "not ";
+}
+print "ok ",$i++,"\n";
+
+
+eval sprintf "use %.5f;", $] - 0.000001;
+if ($@) {
+    print STDERR $@,"\n";
+    print "not ";
+}
+print "ok ",$i++,"\n";
+
+eval sprintf("use %.5f;", $] + 1);
+unless ($@) {
+    print "not ";
+}
+print "ok ",$i++,"\n";
+
+eval sprintf "use %.5f;", $] + 0.00001;
+unless ($@) {
+    print "not ";
+}
+print "ok ",$i++,"\n";
+
+
+
+use lib; # I know that this module will be there.
+
+
+local $lib::VERSION = 1.0;
+
+eval "use lib 0.9";
+if ($@) {
+    print STDERR $@,"\n";
+    print "not ";
+}
+print "ok ",$i++,"\n";
+
+eval "use lib 1.0";
+if ($@) {
+    print STDERR $@,"\n";
+    print "not ";
+}
+print "ok ",$i++,"\n";
+
+eval "use lib 1.01";
+unless ($@) {
+    print "not ";
+}
+print "ok ",$i++,"\n";
+
+
+eval "use lib 0.9 qw(fred)";
+if ($@) {
+    print STDERR $@,"\n";
+    print "not ";
+}
+print "ok ",$i++,"\n";
+
+print "not " unless $INC[0] eq "fred";
+print "ok ",$i++,"\n";
+
+eval "use lib 1.0 qw(joe)";
+if ($@) {
+    print STDERR $@,"\n";
+    print "not ";
+}
+print "ok ",$i++,"\n";
+
+print "not " unless $INC[0] eq "joe";
+print "ok ",$i++,"\n";
+
+eval "use lib 1.01 qw(freda)";
+unless ($@) {
+    print "not ";
+}
+print "ok ",$i++,"\n";
+
+print "not " if $INC[0] eq "freda";
+print "ok ",$i++,"\n";