From 492dd716bdbd866fc28eacfe5082910dfa9e7590 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 31 Mar 2004 14:13:46 +0000 Subject: add tests for perl_checker --- perl_checker.src/test/return_value.t | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 perl_checker.src/test/return_value.t (limited to 'perl_checker.src/test/return_value.t') diff --git a/perl_checker.src/test/return_value.t b/perl_checker.src/test/return_value.t new file mode 100644 index 0000000..e826c08 --- /dev/null +++ b/perl_checker.src/test/return_value.t @@ -0,0 +1,16 @@ +if ($xxx or $yyy) {} value should be dropped + context () is not compatible with context scalar + +if ($xxx and $yyy) {} value should be dropped + context () is not compatible with context scalar + +$xxx && yyy(); value is dropped + +`xxx`; value is dropped + +/(.*)/; value is dropped + +map { xxx($_) } @l; if you don't use the return value, use "foreach" instead of "map" + +$xxx = chomp; () context not accepted here + context () is not compatible with context scalar -- cgit v1.2.1