Revision: 1068
Author: tim.bunce
Date: Sat Feb 20 04:42:34 2010
Log: Minor tweaks to test harness.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1068
Modified:
/trunk/t/61-cputime.t
/trunk/t/lib/NYTProfTest.pm
=======================================
--- /trunk/t/61-cputime.t Sat Feb 20 03:56:13 2010
+++ /trunk/t/61-cputime.t Sat Feb 20 04:42:34 2010
@@ -14,7 +14,7 @@
# set options for this test:
usecputime => 1,
# restrict irrelevant options:
- compress => 1, slowops => 0, savesrc => 1, leave => 0,
+ compress => 1, slowops => 0, savesrc => 0, leave => 0, stmts => 0,
},
extra_test_count => 5,
extra_test_code => sub {
=======================================
--- /trunk/t/lib/NYTProfTest.pm Fri Dec 18 14:29:46 2009
+++ /trunk/t/lib/NYTProfTest.pm Sat Feb 20 04:42:34 2010
@@ -142,8 +142,8 @@
local $ENV{NYTPROF} = join ":", map {"$_=$env{$_}"} @keys;
- my $context = "NYTPROF=$ENV{NYTPROF}\n";
- ($opts{v}) ? warn $context : print $context;
+ my $context_msg = "NYTPROF=$ENV{NYTPROF}\n";
+ ($opts{v}) ? warn $context_msg : print $context_msg;
ok eval { $code->(\%env) };
if ($@) {
@@ -239,9 +239,9 @@
}
if ($extra_test_code) {
- print("running $extra_test_count extra tests...\n") if @tests;
my $profile;
if (@tests) {
+ print("running $extra_test_count extra tests...\n");
$profile = eval { Devel::NYTProf::Data->new({ filename =>
$profile_datafile }) };
if ($@) {
diag($@);
--
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]
