[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