X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Findirect.git;a=blobdiff_plain;f=t%2F10-good.t;h=6510bea46724c99c93b3b637ac1bc301e5bafbdb;hp=14f96d2e2decd2f66b164b6f3b12b6e8385da615;hb=a6ff113a643fb1f626edbdc5c1d7ed0d2ce73c95;hpb=8e33a0159329bb82e048058ea048ab005ea322fe diff --git a/t/10-good.t b/t/10-good.t index 14f96d2..6510bea 100644 --- a/t/10-good.t +++ b/t/10-good.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 32 * 2; +use Test::More tests => 33 * 2; my ($obj, $pkg, $cb, $x); sub meh; @@ -120,3 +120,5 @@ meh $x, 1 , 2; print STDOUT "bananananananana\n"; #### print $x "oh hai\n"; +#### +$x->foo($pkg->$cb)