Revision: 926 Author: tim.bunce Date: Fri Nov 27 05:13:19 2009 Log: Skip a test if $] < 5.008009 or $] eq "5.010000"
http://code.google.com/p/perl-devel-nytprof/source/detail?r=926 Modified: /trunk/t/42-global.t ======================================= --- /trunk/t/42-global.t Sun Nov 22 14:02:17 2009 +++ /trunk/t/42-global.t Fri Nov 27 05:13:19 2009 @@ -52,9 +52,13 @@ my $sub; is scalar keys %$subs, 3, 'should be 3 subs'; ok $sub = $subs->{'main::BEGIN'}; - is $sub->calls, 0, 'main::BEGIN should be called 1 time'; + SKIP: { + skip "needs perl >= 5.8.9 or >= 5.10.1", 1 + if $] < 5.008009 or $] eq "5.010000"; + is $sub->calls, 1, 'main::BEGIN should be called 1 time'; + }; ok $sub = $subs->{'main::RUNTIME'}; - is $sub->calls, 0, 'main::RUNTIME should be called 1 time'; + is $sub->calls, 0, 'main::RUNTIME should be called 0 times'; ok $sub = $subs->{'main::foo'}; is $sub->calls, 2, 'main::foo should be called 2 times'; -- 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]
