X-Git-Url: http://git.maemo.org/git/?a=blobdiff_plain;f=deb-src%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Ft%2FErrorHandling%2FRequireCheckingReturnValueOfEval.run;fp=deb-src%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Ft%2FErrorHandling%2FRequireCheckingReturnValueOfEval.run;h=0000000000000000000000000000000000000000;hb=a97c961991a9ede4148ca4744df94a7641e614f8;hp=9b88a71ae5b24824c86863c570ebc10b26593f06;hpb=9235c81891f90483b524a2ccb1f8c15689c8dfd3;p=pkg-perl diff --git a/deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/ErrorHandling/RequireCheckingReturnValueOfEval.run b/deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/ErrorHandling/RequireCheckingReturnValueOfEval.run deleted file mode 100644 index 9b88a71..0000000 --- a/deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/ErrorHandling/RequireCheckingReturnValueOfEval.run +++ /dev/null @@ -1,393 +0,0 @@ -## name Basic failure -## failures 9 -## cut - -eval { foo; }; -{ eval { baz; } }; -[ eval { buz; } ]; -( eval { blrfl; } ); - -eval 'foo;'; -{ eval 'baz;' }; -[ eval 'buz;' ]; -( eval 'blrfl;' ); - -eval { something }; -if ($@) { - blahblah -} - -#----------------------------------------------------------------------------- - -## name Assignment -## failures 0 -## cut - -$result = eval { foo; }; -@result = eval { bar; }; -$result = { eval { baz; } }; -$result = [ eval { buz; } ]; -@result = ( 0, eval { blrfl; } ); -@result = [ qw< one two >, { thrpt => ( eval { frlbfrnk; } ) } ]; - -$result = eval 'foo;'; -@result = eval 'bar;'; -$result = { eval 'baz;' }; -$result = [ eval 'buz;' ]; -@result = ( 0, eval 'blrfl;' ); -@result = [ qw< one two >, { thrpt => ( eval 'frlbfrnk;' ) } ]; - -#----------------------------------------------------------------------------- - -## name Assignment with comma separated statements. -## failures 12 -## cut - -$result = 1, eval { foo; }; -@result = 1, eval { bar; }; -$result = 1, { eval { baz; } }; -$result = 1, [ eval { buz; } ]; -@result = 1, ( eval { blrfl; } ); -@result = 1, [ qw< one two >, { thrpt => ( eval { frlbfrnk; } ) } ]; - -$result = 1, eval 'foo;'; -@result = 1, eval 'bar;'; -$result = 1, { eval 'baz;' }; -$result = 1, [ eval 'buz;' ]; -@result = 1, ( eval 'blrfl;' ); -@result = 1, [ qw< one two >, { thrpt => ( eval 'frlbfrnk;' ) } ]; - -#----------------------------------------------------------------------------- - -## name if -## failures 0 -## cut - -if ( eval { bar; } ) { - something -} - -if ( ( eval { blrfl; } ) ) { - something -} - -if ( 5 == eval { bar; } ) { - something -} - -if ( scalar ( eval { blrfl; } ) ) { - something -} - -if ( not eval { whatever; } ) { - something -} - - - -if ( eval 'bar;' ) { - something -} - -if ( ( eval 'blrfl;' ) ) { - something -} - -if ( 5 == eval 'bar;' ) { - something -} - -if ( scalar ( eval 'blrfl;' ) ) { - something -} - -if ( ! eval 'whatever;' ) { - something -} - -#----------------------------------------------------------------------------- - -## name foreach -## failures 0 -## cut - -foreach my $thingy ( eval { bar; } ) { - something -} - -foreach my $thingy ( ( eval { blrfl; } ) ) { - something -} - -foreach my $thingy ( qw< one two >, eval { bar; } ) { - something -} - - -foreach my $thingy ( eval 'bar;' ) { - something -} - -foreach my $thingy ( ( eval 'blrfl;' ) ) { - something -} - -foreach my $thingy ( qw< one two >, eval 'bar;' ) { - something -} - -#----------------------------------------------------------------------------- - -## name C-style for with eval in condition or assignment -## failures 0 -## cut - -for (blah; eval { bar; }; blah ) { - something -} - -for (blah; ( eval { blrfl; } ); blah ) { - something -} - -for (blah; eval { bar; } eq 'bing bang bong'; blah ) { - something -} - -for (my $x = eval { thrp; }; $x < 1587; $x = eval { thrp; } ) { - something -} - - -for (blah; eval 'bar;'; blah ) { - something -} - -for (blah; ( eval 'blrfl;' ); blah ) { - something -} - -for (blah; eval 'bar;' eq 'bing bang bong'; blah ) { - something -} - -for (my $x = eval 'thrp;'; $x < 1587; $x = eval 'thrp;' ) { - something -} - -#----------------------------------------------------------------------------- - -## name C-style for with eval in initialization or increment with no assignment -## failures 4 -## cut - -for (eval { bar; }; blah; blah) { - something -} - -for ( blah; blah; ( eval { blrfl; } ) ) { - something -} - - -for (eval 'bar;'; blah; blah) { - something -} - -for ( blah; blah; ( eval 'blrfl;' ) ) { - something -} - -#----------------------------------------------------------------------------- - -## name while -## failures 0 -## cut - -while ( eval { bar; } ) { - something -} - -while ( ( ( eval { blrfl; } ) ) ) { - something -} - - -while ( eval 'bar;' ) { - something -} - -while ( ( ( eval 'blrfl;' ) ) ) { - something -} - -#----------------------------------------------------------------------------- - -## name Postfix if -## failures 0 -## cut - -bleah if eval { yadda; }; -bleah if ( eval { yadda; } ); -bleah if 5 == eval { yadda; }; -bleah if eval { yadda; } == 5; - -bleah if eval 'yadda;'; -bleah if ( eval 'yadda;' ); -bleah if 5 == eval 'yadda;'; -bleah if eval 'yadda;' == 5; - -#----------------------------------------------------------------------------- - -## name Postfix foreach -## failures 0 -## cut - -blargh($_) foreach eval { bar; }; -blargh($_) foreach ( eval { blrfl; } ); -blargh($_) foreach qw< one two >, eval { bar; }; -blargh($_) foreach eval { bar; }, qw< one two >; - -blargh($_) foreach eval 'bar;'; -blargh($_) foreach ( eval 'blrfl;' ); -blargh($_) foreach eval 'bar;', qw< one two >; - -#----------------------------------------------------------------------------- - -## name First value in comma-separated list in condition -## failures 4 -## cut - -if ( eval { 1 }, 0 ) { - blah blah blah -} - -if ( ( eval { 1 }, 0 ) ) { - blah blah blah -} - -if ( eval '1', 0 ) { - blah blah blah -} - -if ( ( eval '1', 0 ) ) { - blah blah blah -} - -#----------------------------------------------------------------------------- - -## name Last value in comma-separated list in condition -## failures 0 -## cut - -if ( 0, eval { 1 }, ) { - blah blah blah -} - -# Comma outside inner parentheses. -if ( ( 0, eval { 1 } ), , ) { - blah blah blah -} - -if ( 0, eval '1', ) { - blah blah blah -} - -# Comma inside inner parentheses. -if ( ( 0, eval '1', , ) ) { - blah blah blah -} - -#----------------------------------------------------------------------------- - -## name Last value in comma-separated list that isn't the last element in another list in condition -## failures 4 -## cut - -if ( ( 0, eval { 1 } ), 0 ) { - blah blah blah -} - -if ( ( ( 0, eval { 1 } ) ), 0 ) { - blah blah blah -} - -if ( ( 0, eval '1' ), 0 ) { - blah blah blah -} - -if ( ( ( 0, eval '1' ) ), 0 ) { - blah blah blah -} - -#----------------------------------------------------------------------------- - -## name "Proper" handling of return value -## failures 0 -## cut - -eval { - something -} - or do { - if ($EVAL_ERROR) { - yadda - } - else { - blahdda - }; - -eval "something_else" or die; - -# eval gets the thing following it before || does. -eval { - something -} - || do { - if ($EVAL_ERROR) { - yadda - } - else { - blahdda - } - }; - -eval "something_else" || die; - - -eval { - something -} - and do { - yadda - }; - -eval "something_else" and thingy; - -# eval gets the thing following it before && does. -eval { - something -} - && do { - yadda - }; - -eval "something_else" && die; - -#----------------------------------------------------------------------------- - -############################################################################## -# $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ErrorHandling/RequireCheckingReturnValueOfEval.run $ -# $Date: 2008-06-30 00:37:19 -0500 (Mon, 30 Jun 2008) $ -# $Author: clonezone $ -# $Revision: 2484 $ -############################################################################## - -# Local Variables: -# mode: cperl -# cperl-indent-level: 4 -# fill-column: 78 -# indent-tabs-mode: nil -# c-indentation-style: bsd -# End: -# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :