BEGIN {
chdir 't' if -d 't';
- @INC = '../lib';
+ unshift @INC, '../lib';
}
umask 0;
%h = (1..6);
$aref = \@a;
$href = \%h;
-open OP, qq{$^X -le 'print "aaa Ok ok" while \$i++ < 100'|};
+open OP, qq{$^X -le "print 'aaa Ok ok' for 1..100"|};
$chopit = 'aaaaaa';
@chopar = (113 .. 119);
$posstr = '123456';
$op = "$op==$op" unless $op =~ /==/;
($op, $expectop) = $op =~ /(.*)==(.*)/;
- $skip = ($op =~ /^'\?\?\?'/) ? "skip" : "not";
+ $skip = ($op =~ /^'\?\?\?'/ or $comment =~ /skip\(.*\Q$^O\E.*\)/i)
+ ? "skip" : "not";
$integer = ($comment =~ /^i_/) ? "use integer" : '' ;
(print "#skipping $comment:\nok $ord\n"), next if $skip eq 'skip';
__END__
ref $xref # ref
ref $cstr # ref nonref
-`ls` # backtick
-`$undefed` # backtick undef
+`ls` # backtick skip(MSWin32)
+`$undefed` # backtick undef skip(MSWin32)
<*> # glob
<OP> # readline
'faked' # rcatline
utime 'non-existent' # utime
rename 'non-existent', 'non-existent1' # rename
link 'non-existent', 'non-existent1' # link
-symlink 'non-existent', 'non-existent1' # symlink
+'???' # symlink
readlink 'non-existent', 'non-existent1' # readlink
'???' # mkdir
'???' # rmdir
'???' # fork
'???' # wait
'???' # waitpid
-system 'sh -c true' # system
+system "$^X -e 0" # system
'???' # exec
-kill 0, $$ # kill
+'???' # kill
getppid # getppid
getpgrp # getpgrp
'???' # setpgrp