Revision: 905 Author: tim.bunce Date: Sat Nov 14 15:59:54 2009 Log: Fixup handling of profile data file naming broken in previous commit.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=905 Modified: /trunk/t/10-run.t /trunk/t/lib/NYTProfTest.pm ======================================= --- /trunk/t/10-run.t Sat Nov 14 15:33:22 2009 +++ /trunk/t/10-run.t Sat Nov 14 15:59:54 2009 @@ -9,11 +9,12 @@ run_test_group( { extra_test_count => 1, - _extra_test_code => sub { + extra_test_code => sub { my ($profile, $env) = @_; $profile = profile_this( - src_code => "1+1" + src_code => "1+1", + out_file => $env->{file}, ); isa_ok $profile, 'Devel::NYTProf::Data'; }, ======================================= --- /trunk/t/lib/NYTProfTest.pm Sat Nov 14 15:33:22 2009 +++ /trunk/t/lib/NYTProfTest.pm Sat Nov 14 15:59:54 2009 @@ -201,12 +201,12 @@ # non-default to test override works and allow parallel testing my $profile_datafile = "nytprof_$group.out"; + $NYTPROF_TEST{file} = $profile_datafile; do_foreach_env_combination( sub { my ($env) = @_; for my $test (@tests) { - local $NYTPROF_TEST{file} = $profile_datafile; run_test($test); } @@ -241,6 +241,7 @@ return; }; my ($basename, $fork_seqn, $type) = ($1, $2 || 0, $3); + #warn "($basename, $fork_seqn, $type)\n"; my $profile_datafile = $NYTPROF_TEST{file}; my $test_datafile = (profile_datafiles($profile_datafile))[$fork_seqn]; -- 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]
