This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[differences between cumulative patch application and perl5.003_19] perl-5.003_19
authorChip Salzenberg <chip@atlantic.net>
Sat, 4 Jan 1997 05:44:00 +0000 (17:44 +1200)
committerChip Salzenberg <chip@atlantic.net>
Sat, 4 Jan 1997 05:44:00 +0000 (17:44 +1200)
1  2 
t/comp/use.t

diff --combined t/comp/use.t
index a6ce2a4,0000000..a6ce2a4
mode 100644,000000..100755
--- /dev/null
@@@ -1,101 -1,0 +1,101 @@@
 +#!./perl
 +
 +BEGIN {
 +    chdir 't' if -d 't';
 +    @INC = '../lib';
 +}
 +
 +print "1..14\n";
 +
 +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";