summaryrefslogtreecommitdiffstats
path: root/src/test
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-04-25 15:16:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-04-25 15:16:22 +0000
commitf37d7371879e2b1e2d923ec12762430b3d1937fc (patch)
tree28155bfc9dca9815ac7e8c7599130a15b1d2cb1b /src/test
parentbe4fff49f0164e606d4b2f76f64d4d108895f236 (diff)
downloadperl_checker-f37d7371879e2b1e2d923ec12762430b3d1937fc.tar
perl_checker-f37d7371879e2b1e2d923ec12762430b3d1937fc.tar.gz
perl_checker-f37d7371879e2b1e2d923ec12762430b3d1937fc.tar.bz2
perl_checker-f37d7371879e2b1e2d923ec12762430b3d1937fc.tar.xz
perl_checker-f37d7371879e2b1e2d923ec12762430b3d1937fc.zip
re-sync after the big svn loss1.2.41.2.3
Diffstat (limited to 'src/test')
-rw-r--r--src/test/return_value.t8
-rw-r--r--src/test/suggest_better.t2
-rw-r--r--src/test/various_errors.t4
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