Revision: 1226
Author: [email protected]
Date: Thu May 20 15:37:55 2010
Log: Add way to disable 'extra tests'.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1226
Modified:
/trunk/t/lib/NYTProfTest.pm
=======================================
--- /trunk/t/lib/NYTProfTest.pm Fri May 7 01:55:10 2010
+++ /trunk/t/lib/NYTProfTest.pm Thu May 20 15:37:55 2010
@@ -201,6 +201,13 @@
my $extra_test_code = $rtg_opts->{extra_test_code};
my $extra_test_count = $rtg_opts->{extra_test_count} || 0;
my $extra_options = $rtg_opts->{extra_options};
+ if ($ENV{NYTPROF_TEST_NOEXTRA}) {
+ diag "NYTPROF_TEST_NOEXTRA - skipping $extra_test_count extra
tests"
+ if $extra_test_count;
+ $extra_test_code = undef;
+ $extra_test_count = 0;
+ $extra_options = {};
+ }
# obtain group from file name
my $group;
--
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]
