5 unshift @INC, '../lib';
14 open OP, qq{$^X -le "print 'aaa Ok ok' for 1..100"|};
16 @chopar = (113 .. 119);
24 print "1..", (scalar @INPUT), "\n";
31 ($op, undef, $comment) = /^([^\#]+)(\#\s+(.*))?/;
32 $comment = $op unless defined $comment;
33 $op = "$op==$op" unless $op =~ /==/;
34 ($op, $expectop) = $op =~ /(.*)==(.*)/;
36 $skip = ($op =~ /^'\?\?\?'/ or $comment =~ /skip\(.*\Q$^O\E.*\)/i)
38 $integer = ($comment =~ /^i_/) ? "use integer" : '' ;
39 (print "#skipping $comment:\nok $ord\n"), next if $skip eq 'skip';
42 local \$SIG{__WARN__} = \\&wrn;
48 print "# \$comment: got `\$a', expected `\$b'\n";
49 print "\$skip " if \$a ne \$b or \$skip eq 'skip';
54 if ($@ =~ /is unimplemented/) {
55 print "# skipping $comment: unimplemented:\nok $ord\n";
58 print "not ok $ord\n";
64 ref $cstr # ref nonref
65 `ls` # backtick skip(MSWin32)
66 `$undefed` # backtick undef skip(MSWin32)
70 (@z = (1 .. 3)) # aassign
72 (chop (@x=@chopar)) # schop
74 (chop (@x=@chopar)) # schomp
76 pos $chopit # pos returns undef
94 $n . $a=='2fake' # concat with self
95 "3$a"=='3fake' # concat with self in stringify
98 $n >> $n # right_shift
119 length $posstr # length
120 substr $posstr, 2, 2 # substr
122 index $posstr, 2 # index
123 rindex $posstr, 2 # rindex
124 sprintf "%i%i", $n, $n # sprintf
128 ucfirst ($cstr . "a") # ucfirst padtmp
129 ucfirst $cstr # ucfirst
130 lcfirst $cstr # lcfirst
133 quotemeta $cstr # quotemeta
135 @$undefed # rv2av undef
140 pack "C2", $n,$n # pack
141 split /a/, "abad" # split
144 unshift @aaa # unshift
146 reverse $cstr # reverse - scal
147 grep $_, 1,0,2,0,3 # grepwhile
148 map "x$_", 1,0,2,0,3 # mapwhile
151 warn "ignore this\n" # warn
153 open BLAH, "<non-existent" # open
154 fileno STDERR # fileno
156 select STDOUT # sselect
157 select "","","",0 # select
174 chdir 'non-existent' # chdir
177 unlink 'non-existent' # unlink
178 chmod 'non-existent' # chmod
179 utime 'non-existent' # utime
180 rename 'non-existent', 'non-existent1' # rename
181 link 'non-existent', 'non-existent1' # link
183 readlink 'non-existent', 'non-existent1' # readlink
190 system "$^X -e 0" # system
196 getpriority $$, $$ # getpriority
199 localtime # localtime