diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-05-08 22:23:50 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-05-08 22:23:50 +0000 |
| commit | f585176ac98de3d36207c0cbbfbbc601b430a6fe (patch) | |
| tree | 58e9bdc05034785e68b4f3b11c21d05bf11b5fc8 /perl_checker.src/test | |
| parent | e0820e4f4e101bd8502f1f2bb0c1c0c7fd8b21e7 (diff) | |
| download | perl-MDK-Common-f585176ac98de3d36207c0cbbfbbc601b430a6fe.tar perl-MDK-Common-f585176ac98de3d36207c0cbbfbbc601b430a6fe.tar.gz perl-MDK-Common-f585176ac98de3d36207c0cbbfbbc601b430a6fe.tar.bz2 perl-MDK-Common-f585176ac98de3d36207c0cbbfbbc601b430a6fe.tar.xz perl-MDK-Common-f585176ac98de3d36207c0cbbfbbc601b430a6fe.zip | |
better contexts
Diffstat (limited to 'perl_checker.src/test')
| -rw-r--r-- | perl_checker.src/test/context.t | 8 | ||||
| -rw-r--r-- | perl_checker.src/test/return_value.t | 5 |
2 files changed, 9 insertions, 4 deletions
diff --git a/perl_checker.src/test/context.t b/perl_checker.src/test/context.t index edb0452..c0bc221 100644 --- a/perl_checker.src/test/context.t +++ b/perl_checker.src/test/context.t @@ -1,4 +1,5 @@ -foreach (%h) {} foreach with a hash is usually an error +foreach (%h) {} context hash is not compatible with context list + foreach with a hash is usually an error map { 'xxx' } %h a hash is not a valid parameter to function map @@ -10,8 +11,11 @@ length @l never use "length @l", it returns the l %h . 'yyy' context hash is not compatible with context string -'xxx' > 'yyy' you should use a string operator, not the number operator ">" +'xxx' > 'yyy' context string is not compatible with context float + context string is not compatible with context float + you should use a string operator, not the number operator ">" 1 cmp 2 you should use a number operator, not the string operator "cmp" (or replace the number with a string) $xxx == undef context undef is not compatible with context float + diff --git a/perl_checker.src/test/return_value.t b/perl_checker.src/test/return_value.t index e826c08..fd8eafd 100644 --- a/perl_checker.src/test/return_value.t +++ b/perl_checker.src/test/return_value.t @@ -1,8 +1,8 @@ if ($xxx or $yyy) {} value should be dropped - context () is not compatible with context scalar + context () is not compatible with context bool if ($xxx and $yyy) {} value should be dropped - context () is not compatible with context scalar + context () is not compatible with context bool $xxx && yyy(); value is dropped @@ -14,3 +14,4 @@ map { xxx($_) } @l; if you don't use the return value, use $xxx = chomp; () context not accepted here context () is not compatible with context scalar + |