Revision: 1227 Author: [email protected] Date: Thu May 20 15:40:57 2010 Log: Hack test to make stable across different option settings. Major kudos to anyone who can workout why this change: -eval "sub sub$_ { 1 }; 1;1;" for (1..10); +eval "sub sub$_ { 1 }; 1;" for (1..10); makes the test fail (for some option settings). Something strange seems to happen with sub8! I'm using v5.12.1-RC1.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1227 Modified: /trunk/t/test51-enable.p /trunk/t/test51-enable.rdt /trunk/t/test51-enable.x ======================================= --- /trunk/t/test51-enable.p Sun Jul 12 11:04:41 2009 +++ /trunk/t/test51-enable.p Thu May 20 15:40:57 2010 @@ -4,7 +4,7 @@ my $file_c = "nytprof-test51-c.out"; unlink $file_b, $file_c; -eval "sub sub$_ { 1 }" for (1..10); +eval "sub sub$_ { 1 }; 1;1;" for (1..10); sub1(); # profiled ======================================= --- /trunk/t/test51-enable.rdt Wed Apr 21 04:41:03 2010 +++ /trunk/t/test51-enable.rdt Thu May 20 15:40:57 2010 @@ -18,7 +18,16 @@ fid_block_time 1 5 [ 0 1 ] fid_block_time 1 7 [ 0 2 ] fid_block_time 1 9 [ 0 1 ] -fid_block_time 2 1 [ 0 1 ] +fid_block_time 2 1 [ 0 3 ] +fid_block_time 3 1 [ 0 2 ] +fid_block_time 4 1 [ 0 2 ] +fid_block_time 5 1 [ 0 2 ] +fid_block_time 6 1 [ 0 2 ] +fid_block_time 7 1 [ 0 2 ] +fid_block_time 8 1 [ 0 2 ] +fid_block_time 9 1 [ 0 2 ] +fid_block_time 10 1 [ 0 2 ] +fid_block_time 11 1 [ 0 2 ] fid_fileinfo 1 [ test51-enable.p 1 2 0 0 ] fid_fileinfo 1 sub main::BEGIN 0-0 fid_fileinfo 1 sub main::CORE:unlink 0-0 @@ -26,21 +35,57 @@ fid_fileinfo 1 call 5 main::CORE:unlink [ 1 0 0 0 0 0 0 main::RUNTIME ] fid_fileinfo 1 call 9 main::sub1 [ 1 0 0 0 0 0 0 main::RUNTIME ] fid_fileinfo 1 call 11 DB::disable_profile [ 1 0 0 0 0 0 0 main::RUNTIME ] -fid_fileinfo 1 eval 7 [ count 1 nested 0 merged 0 ] +fid_fileinfo 1 eval 7 [ count 10 nested 0 merged 0 ] fid_fileinfo 2 [ (eval 0)[test51-enable.p:7] 1 7 2 2 0 0 ] fid_fileinfo 2 sub main::sub1 1-1 +fid_fileinfo 3 [ (eval 0)[test51-enable.p:7] 1 7 3 2 0 0 ] +fid_fileinfo 3 sub main::sub2 1-1 +fid_fileinfo 4 [ (eval 0)[test51-enable.p:7] 1 7 4 2 0 0 ] +fid_fileinfo 4 sub main::sub3 1-1 +fid_fileinfo 5 [ (eval 0)[test51-enable.p:7] 1 7 5 2 0 0 ] +fid_fileinfo 5 sub main::sub4 1-1 +fid_fileinfo 6 [ (eval 0)[test51-enable.p:7] 1 7 6 2 0 0 ] +fid_fileinfo 6 sub main::sub5 1-1 +fid_fileinfo 7 [ (eval 0)[test51-enable.p:7] 1 7 7 2 0 0 ] +fid_fileinfo 7 sub main::sub6 1-1 +fid_fileinfo 8 [ (eval 0)[test51-enable.p:7] 1 7 8 2 0 0 ] +fid_fileinfo 8 sub main::sub7 1-1 +fid_fileinfo 9 [ (eval 0)[test51-enable.p:7] 1 7 9 2 0 0 ] +fid_fileinfo 9 sub main::sub8 1-1 +fid_fileinfo 10 [ (eval 0)[test51-enable.p:7] 1 7 10 2 0 0 ] +fid_fileinfo 10 sub main::sub9 1-1 +fid_fileinfo 11 [ (eval 0)[test51-enable.p:7] 1 7 11 2 0 0 ] +fid_fileinfo 11 sub main::sub10 1-1 fid_line_time 1 3 [ 0 1 ] fid_line_time 1 4 [ 0 1 ] fid_line_time 1 5 [ 0 1 ] fid_line_time 1 7 [ 0 2 ] fid_line_time 1 9 [ 0 1 ] -fid_line_time 2 1 [ 0 1 ] +fid_line_time 2 1 [ 0 3 ] +fid_line_time 3 1 [ 0 2 ] +fid_line_time 4 1 [ 0 2 ] +fid_line_time 5 1 [ 0 2 ] +fid_line_time 6 1 [ 0 2 ] +fid_line_time 7 1 [ 0 2 ] +fid_line_time 8 1 [ 0 2 ] +fid_line_time 9 1 [ 0 2 ] +fid_line_time 10 1 [ 0 2 ] +fid_line_time 11 1 [ 0 2 ] fid_sub_time 1 3 [ 0 1 ] fid_sub_time 1 4 [ 0 1 ] fid_sub_time 1 5 [ 0 1 ] fid_sub_time 1 7 [ 0 2 ] fid_sub_time 1 9 [ 0 1 ] -fid_sub_time 2 1 [ 0 1 ] +fid_sub_time 2 1 [ 0 3 ] +fid_sub_time 3 1 [ 0 2 ] +fid_sub_time 4 1 [ 0 2 ] +fid_sub_time 5 1 [ 0 2 ] +fid_sub_time 6 1 [ 0 2 ] +fid_sub_time 7 1 [ 0 2 ] +fid_sub_time 8 1 [ 0 2 ] +fid_sub_time 9 1 [ 0 2 ] +fid_sub_time 10 1 [ 0 2 ] +fid_sub_time 11 1 [ 0 2 ] profile_modes fid_block_time block profile_modes fid_line_time line profile_modes fid_sub_time sub @@ -52,3 +97,12 @@ sub_subinfo main::RUNTIME [ 1 1 1 0 0 0 0 0 ] sub_subinfo main::sub1 [ 2 1 1 1 0 0 0 0 ] sub_subinfo main::sub1 called_by 1 9 [ 1 0 0 0 0 0 0 main::RUNTIME ] +sub_subinfo main::sub10 [ 11 1 1 0 0 0 0 0 ] +sub_subinfo main::sub2 [ 3 1 1 0 0 0 0 0 ] +sub_subinfo main::sub3 [ 4 1 1 0 0 0 0 0 ] +sub_subinfo main::sub4 [ 5 1 1 0 0 0 0 0 ] +sub_subinfo main::sub5 [ 6 1 1 0 0 0 0 0 ] +sub_subinfo main::sub6 [ 7 1 1 0 0 0 0 0 ] +sub_subinfo main::sub7 [ 8 1 1 0 0 0 0 0 ] +sub_subinfo main::sub8 [ 9 1 1 0 0 0 0 0 ] +sub_subinfo main::sub9 [ 10 1 1 0 0 0 0 0 ] ======================================= --- /trunk/t/test51-enable.x Sun Jul 12 11:04:41 2009 +++ /trunk/t/test51-enable.x Thu May 20 15:40:57 2010 @@ -7,7 +7,7 @@ 0,1,0,my $file_c = "nytprof-test51-c.out"; 0,1,0,unlink $file_b, $file_c; 0,0,0, -0,2,0,eval "sub sub$_ { 1 }" for (1..10); +0,2,0,eval "sub sub$_ { 1 }; 1;1;" for (1..10); 0,0,0, 0,1,0,sub1(); # profiled 0,0,0, -- 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]
