5 unshift @INC, '../lib';
10 $runme = ($^O eq 'VMS' ? 'MCR ' : '') . $^X;
15 open OP, qq{$runme -le "print 'aaa Ok ok' for 1..100"|};
17 @chopar = (113 .. 119);
25 print "1..", (scalar @INPUT), "\n";
32 ($op, undef, $comment) = /^([^\#]+)(\#\s+(.*))?/;
33 $comment = $op unless defined $comment;
34 $op = "$op==$op" unless $op =~ /==/;
35 ($op, $expectop) = $op =~ /(.*)==(.*)/;
37 $skip = ($op =~ /^'\?\?\?'/ or $comment =~ /skip\(.*\Q$^O\E.*\)/i)
39 $integer = ($comment =~ /^i_/) ? "use integer" : '' ;
40 (print "#skipping $comment:\nok $ord\n"), next if $skip eq 'skip';
43 local \$SIG{__WARN__} = \\&wrn;
49 print "# \$comment: got `\$a', expected `\$b'\n";
50 print "\$skip " if \$a ne \$b or \$skip eq 'skip';
55 if ($@ =~ /is unimplemented/) {
56 print "# skipping $comment: unimplemented:\nok $ord\n";
59 print "not ok $ord\n";
65 ref $cstr # ref nonref
66 `$runme -e "print qq[1\n]"` # backtick skip(MSWin32)
67 `$undefed` # backtick undef skip(MSWin32)
71 (@z = (1 .. 3)) # aassign
73 (chop (@x=@chopar)) # schop
75 (chop (@x=@chopar)) # schomp
77 pos $chopit # pos returns undef
95 $n . $a=='2fake' # concat with self
96 "3$a"=='3fake' # concat with self in stringify
99 $n >> $n # right_shift
120 length $posstr # length
121 substr $posstr, 2, 2 # substr
123 index $posstr, 2 # index
124 rindex $posstr, 2 # rindex
125 sprintf "%i%i", $n, $n # sprintf
129 ucfirst ($cstr . "a") # ucfirst padtmp
130 ucfirst $cstr # ucfirst
131 lcfirst $cstr # lcfirst
134 quotemeta $cstr # quotemeta
136 @$undefed # rv2av undef
141 pack "C2", $n,$n # pack
142 split /a/, "abad" # split
145 unshift @aaa # unshift
147 reverse $cstr # reverse - scal
148 grep $_, 1,0,2,0,3 # grepwhile
149 map "x$_", 1,0,2,0,3 # mapwhile
152 warn "ignore this\n" # warn
154 open BLAH, "<non-existent" # open
155 fileno STDERR # fileno
157 select STDOUT # sselect
158 select "","","",0 # select
175 chdir 'non-existent' # chdir
178 unlink 'non-existent' # unlink
179 chmod 'non-existent' # chmod
180 utime 'non-existent' # utime
181 rename 'non-existent', 'non-existent1' # rename
182 link 'non-existent', 'non-existent1' # link
184 readlink 'non-existent', 'non-existent1' # readlink
191 system "$runme -e 0" # system skip(VMS)
197 getpriority $$, $$ # getpriority
200 localtime $^T # localtime