diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2007-04-25 15:16:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2007-04-25 15:16:22 +0000 |
| commit | f37d7371879e2b1e2d923ec12762430b3d1937fc (patch) | |
| tree | 28155bfc9dca9815ac7e8c7599130a15b1d2cb1b /src/test | |
| parent | be4fff49f0164e606d4b2f76f64d4d108895f236 (diff) | |
| download | perl_checker-1.2.3.tar perl_checker-1.2.3.tar.gz perl_checker-1.2.3.tar.bz2 perl_checker-1.2.3.tar.xz perl_checker-1.2.3.zip | |
Diffstat (limited to 'src/test')
| -rw-r--r-- | src/test/return_value.t | 8 | ||||
| -rw-r--r-- | src/test/suggest_better.t | 2 | ||||
| -rw-r--r-- | src/test/various_errors.t | 4 |
3 files changed, 14 insertions, 0 deletions
diff --git a/src/test/return_value.t b/src/test/return_value.t index b4786f5..89cf9ee 100644 --- a/src/test/return_value.t +++ b/src/test/return_value.t @@ -1,3 +1,11 @@ +die; xxx(); unreachable code + +exit 1; xxx(); unreachable code + +$xxx or die; + +next if $xxx; + if ($xxx or $yyy) {} value should be dropped context () is not compatible with context bool diff --git a/src/test/suggest_better.t b/src/test/suggest_better.t index d76abeb..208b7cc 100644 --- a/src/test/suggest_better.t +++ b/src/test/suggest_better.t @@ -12,6 +12,8 @@ $xxx->{yyy}->{zzz} the arrow "->" is unneeded "xxx\"$xxx" you can replace "xxx\"xxx" with qq(xxx"xxx), that way you don't need to escape <"> +"xxx\"xxx'" you can replace "xxx\"xxx" with qq(xxx"xxx), that way you don't need to escape <"> + /xxx\'xxx/ you can replace \' with ' /xxx\;xxx/ you can replace \; with ; diff --git a/src/test/various_errors.t b/src/test/various_errors.t index 48a8ece..3a4f4dd 100644 --- a/src/test/various_errors.t +++ b/src/test/various_errors.t @@ -1,5 +1,9 @@ local $xxx ||= $yyy applying ||= on a new initialized variable is wrong +xxx(!my $xxx) applying not on a new initialized variable is wrong + +xxx(!our $xxx) + $1 =~ s/xxx/yyy/ do not modify the result of a match (eg: $1) $xxx[1, 2] you must give only one argument |