runlevel.t revision 1
1N/A## Many of these tests are originally from Michael Schroeder 1N/A## <Michael.Schroeder@informatik.uni-erlangen.de> 1N/A## Adapted and expanded by Gurusamy Sarathy <gsar@activestate.com> 1N/A if (s/^\s*(-\w+)//){ 1N/A # allow expected output to be written as if $prog is on STDIN 1N/A print "ok ", ++$i, "\n"; 1N/ACan't "last" outside a loop block at - line 3. 1N/A print "still in fetch\n"; 1N/A- >test at (eval 1) line 1. 1N/A print "after eval\n"; 1N/Aprint STDERR "PRINT CALLED\n"; 1N/A(split(/./, 'x'x10000))[0]; 1N/Aprint STDERR "DONE\n"; 1N/A$bar = bless {}, TEST; 1N/Aprint join(', ', @a)."\n"; 1N/A goto bar if $a == 0 || $b == 0; 1N/Aprint join(', ', @a)."\n"; 1N/Aprint "bar reached\n"; 1N/A my (@y) = ( 4, 6, 5); 1N/A my $t = "sortfn ".join(', ', @y)."\n"; 1N/A return $_[0] <=> $_[1]; 1N/A@a = sort { eval('die("no way")') , $a <=> $b} @a; 1N/ACan't "next" outside a loop block at - line 8. 1N/A $a <=> $b unless eval('$a == 0 ? die("foo\n") : ($a <=> $b)'); 1N/ACan't "next" outside a loop block at - line 4. 1N/A @a = sort { exit(0) } @a; 1N/AEND { print "foobar\n" } 1N/A$SIG{__DIE__} = sub { 1N/A while (($p,$f,$l,$s) = caller(++$i)) { 1N/A print "$p|$f|$l|$s\n"; 1N/Asub foo { eval { die } } foo(); 1N/A{package rmb; sub{ eval{die} } ->() }; # check __ANON__ knows package 1N/Amain|-|9|main::__ANON__ 1N/Armb|-|11|rmb::__ANON__ 1N/A return bless [qw(foo fee fie foe)], $_[0]; 1N/Aprint join('|', @bar[0..3]), "\n"; 1N/Asub TIEHASH { bless {}, TH } 1N/Asub STORE { eval { print "@_[1,2]\n" }; die "bar\n" } 1N/Aeval { $h{A} = 1; print "never\n"; }; 1N/Asub f { my $x = shift; d(); } 1N/A while (do { { package DB; @a = caller($i++) } } ) { 1N/A for (@a) { print "$_\n"; $_ = '' } 1N/Asub TIEHANDLE { bless {} } 1N/A eval('die("test\n")');