From: Vincent Pit Date: Wed, 15 Oct 2008 17:26:09 +0000 (+0200) Subject: More tests with $_ X-Git-Tag: v0.07_02~6 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=f09d654a5606b2176a224ea7f45cfdef3dc761e9;p=perl%2Fmodules%2Findirect.git More tests with $_ --- diff --git a/t/10-good.t b/t/10-good.t index 388f8a0..e503cec 100644 --- a/t/10-good.t +++ b/t/10-good.t @@ -9,7 +9,7 @@ package main; use strict; use warnings; -use Test::More tests => 41 * 4; +use Test::More tests => 45 * 4; my ($obj, $pkg, $cb, $x, @a); sub meh; @@ -129,12 +129,20 @@ $obj = new $x }(qw/bar baz/); #### +meh; +#### +meh $_; +#### meh $x; #### -meh $x, 1 , 2; +meh $x, 1, 2; #### print; #### +print $_; +#### +print $x; +#### print STDOUT "bananananananana\n"; #### print $x "oh hai\n"; diff --git a/t/20-bad.t b/t/20-bad.t index 0a61cd1..226a2fc 100644 --- a/t/20-bad.t +++ b/t/20-bad.t @@ -9,7 +9,7 @@ package main; use strict; use warnings; -use Test::More tests => 33 * 4 + 2; +use Test::More tests => 36 * 4 + 2; my ($obj, $x); @@ -110,8 +110,14 @@ $obj = new $_ qr/foo/ ; #### $obj = new $_ qq(bar baz); #### +meh $_; +#### +meh $_ 1, 2; +#### meh $x; #### +meh $x 1, 2; +#### meh $x, 1, 2; #### new Hlagh->wut;