if \$running_under_some_shell;
!GROK!THIS!
+print OUT "\n# perlivp $^V\n";
+
# In the following, perl variables are not expanded during extraction.
print OUT <<'!NO!SUBS!';
-# perlivp V 0.02
-
-
sub usage {
warn "@_\n" if @_;
print << " EOUSAGE";
Usage:
- $0 [-p] [-v] | [-h]
+ $0 [-a] [-p] [-v] | [-h]
+ -a Run all tests (default is to skip .ph tests)
-p Print a preface before each test telling what it will test.
-v Verbose mode in which extra information about test results
is printed. Test failures always print out some extra information
usage() if '?' =~ /\Q$flag/;
usage() if 'h' =~ /\Q$flag/;
usage() if 'H' =~ /\Q$flag/;
- usage("unknown flag: `$flag'") unless 'HhPpVv' =~ /\Q$flag/;
+ usage("unknown flag: `$flag'") unless 'HhPpVva' =~ /\Q$flag/;
warn "$0: `$flag' flag already set\n" if $opt{$flag}++;
}
shift;
!GROK!THIS!
print OUT <<'!NO!SUBS!';
-if ($ivp_VERSION == $]) {
+if ($ivp_VERSION eq $]) {
print "## Perl version `$]' appears installed as expected.\n" if $opt{'v'};
print "ok 2\n";
$pass__total++;
next if ($_ eq 'threads');
next if ($_ eq 'threads/shared');
}
- next if ($_ eq 'Devel/DProf');
+ # that's a distribution name, not a module name
+ next if $_ eq 'IO/Compress/Zlib';
+ next if $_ eq 'Devel/DProf';
+ # test modules
+ next if $_ eq 'XS/APItest';
+ next if $_ eq 'XS/Typemap';
# VMS$ perl -e "eval ""require \""Devel/DProf.pm\"";"" print $@"
# \NT> perl -e "eval \"require 'Devel/DProf.pm'\"; print $@"
# DProf: run perl with -d to use DProf.
$tests_total++;
+if ($opt{'a'}) {
print "## Checking installations of *.h -> *.ph header files.\n" if $opt{'p'};
my $ph_there = 0;
my $var = undef;
$error_total++;
}
$tests_total++;
+}
+else {
+ print "## Skip checking of *.ph header files.\n" if $opt{'p'};
+}
# Final report (rather than feed ousrselves to Test::Harness::runtests()
# we simply format some output on our own to keep things simple and
=head1 NAME
-B<perlivp> - Perl Installation Verification Procedure
+perlivp - Perl Installation Verification Procedure
=head1 SYNOPSIS
-B<perlivp> [B<-p>] [B<-v>] [B<-h>]
+B<perlivp> [B<-a>] [B<-p>] [B<-v>] [B<-h>]
=head1 DESCRIPTION
Prints out a brief help message.
+=item B<-a> run all tests
+
+Normally tests for optional features are skipped. With -a all tests
+are executed.
+
=item B<-p> print preface
Gives a description of each test prior to performing it.