$ Define 'dbg'Perlshr 'PerlShr_filespec'
$ MCR Sys$Disk:[]Perl. "-I[-.lib]" - "''p3'" "''p4'" "''p5'" "''p6'"
$ Deck/Dollar=$$END-OF-TEST$$
-# $RCSfile: TEST,v $$Revision: 4.1 $$Date: 92/08/07 18:27:00 $
+# $RCSfile: test.com,v $$Revision: 1.1 $$Date: 2001/11/13 00:26:19 $
# Modified for VMS 30-Sep-1994 Charles Bailey bailey@newman.upenn.edu
#
# This is written in a peculiar style, since we're trying to avoid
use File::Spec;
@compexcl=('cpp.t');
-@ioexcl=('argv.t','dup.t','pipe.t');
-@libexcl=('db-btree.t','db-hash.t','db-recno.t',
- 'gdbm.t','io_dup.t', 'io_pipe.t', 'io_poll.t', 'io_sel.t',
- 'io_sock.t', 'io_unix.t',
- 'ndbm.t','odbm.t','open2.t','open3.t', 'ph.t', 'posix.t');
-
-# Note: POSIX is not part of basic build, but can be built
-# separately if you're using DECC
-# io_xs.t tests the new_tmpfile routine, which doesn't work with the
-# VAXCRTL, since the file can't be stat()d, an Perl's do_open()
-# insists on stat()ing a file descriptor before it'll use it.
-push(@libexcl,'io_xs.t') if $Config{'vms_cc_type'} ne 'decc';
-
-@opexcl=('die_exit.t','exec.t','fork.t','glob.t','groups.t','magic.t','stat.t');
-@exclist=(@compexcl,@ioexcl,@libexcl,@opexcl);
+@opexcl=('die_exit.t','exec.t','magic.t','stat.t');
+@exclist=(@compexcl,@libexcl,@opexcl);
foreach $file (@exclist) { $skip{$file}++; }
$| = 1;
+# Let tests know they're running in the perl core. Useful for modules
+# which live dual lives on CPAN.
+$ENV{PERL_CORE} = 1;
+
@ARGV = grep($_,@ARGV); # remove empty elements due to "''p1'" syntax
if (lc($ARGV[0]) eq '-v') {
chdir 't' if -f 't/TEST';
if ($ARGV[0] eq '') {
- foreach (<[-.ext...]*.t>, <[-.lib...]*.t>, <[.*]*.t>) {
+ foreach (<[.*]*.t>, <[-.ext...]*.t>, <[-.lib...]*.t>) {
$_ = File::Spec->abs2rel($_);
s/\[([a-z]+)/[.$1/; # hmm, abs2rel doesn't do subdirs of the cwd
($fname = $_) =~ s/.*\]//;
next if /^\s*$/;
- if (/^(not )?ok (\d+)(\s*#.*)?/ &&
+ if (/^(not )?ok (\d+)[^#]*(\s*#.*)?/ &&
$2 == $next)
{
my($not, $num, $extra) = ($1, $2, $3);