Revision: 1007 Author: tim.bunce Date: Mon Jan 4 12:45:47 2010 Log: Tweak t/42-global.t to shed light on http://www.nntp.perl.org/group/perl.cpan.testers/2009/12/msg6603296.html
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1007 Modified: /trunk/t/42-global.t ======================================= --- /trunk/t/42-global.t Tue Dec 22 11:15:32 2009 +++ /trunk/t/42-global.t Mon Jan 4 12:45:47 2010 @@ -32,10 +32,9 @@ isa_ok $profile, 'Devel::NYTProf::Data'; my $subs = $profile->subname_subinfo_map; - print "subs: @{[ keys %$subs ]}\n"; my $begin = ($pre589) ? 'main::BEGIN' : 'main::be...@3'; - is scalar keys %$subs, 3, "should be 3 subs"; + is scalar keys %$subs, 3, "should be 3 subs (got @{[ keys %$subs ]})"; ok $subs->{$begin}; ok $subs->{'main::RUNTIME'}; ok $subs->{'main::foo'}; -- You've received this message because you are subscribed to the Devel::NYTProf Development User group. Group hosted at: http://groups.google.com/group/develnytprof-dev Project hosted at: http://perl-devel-nytprof.googlecode.com CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf To post, email: [email protected] To unsubscribe, email: [email protected]
