[Jifty-commit] r5658 - B-OPCheck/t
Jifty commits
jifty-commit at lists.jifty.org
Sun Aug 3 20:53:16 EDT 2008
Author: nothingmuch
Date: Sun Aug 3 20:53:15 2008
New Revision: 5658
Modified:
B-OPCheck/t/entersub.t
Log:
clean up the test
Modified: B-OPCheck/t/entersub.t
==============================================================================
--- B-OPCheck/t/entersub.t (original)
+++ B-OPCheck/t/entersub.t Sun Aug 3 20:53:15 2008
@@ -8,15 +8,16 @@
sub dothis {
my $op = $_[0];
- push @results, $_[0]->name
+ push @results, $op->name;
}
-{
+sub test {
use B::OPCheck entersub => 'replace', \&dothis;
foo(1,2);
+ printf "foo";
+ foo("dancing");
no B::OPCheck;
foo(2,3);
}
-is_deeply(\@results, ['entersub']); # XXX: need to ignore the leavescope call
-warn Dumper(\@results);use Data::Dumper;
+is_deeply(\@results, [('entersub') x 2]);
More information about the Jifty-commit
mailing list