Revision: 1394
Author: [email protected]
Date: Tue Nov 9 16:55:43 2010
Log: Update tests to be less sensitive to upcoming bleadperl changes
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1394
Modified:
/trunk/t/test09.p
/trunk/t/test09.x
/trunk/t/test62-subcaller1.p
/trunk/t/test62-subcaller1.rdt
=======================================
--- /trunk/t/test09.p Mon Sep 13 12:45:29 2010
+++ /trunk/t/test09.p Tue Nov 9 16:55:43 2010
@@ -5,7 +5,7 @@
}
sub bar {
- eval 'for ($a=0; $a < 10_000; ++$a) { ++$b }';
+ eval '$a = 10_001; while (--$a) { ++$b }';
}
foo();
=======================================
--- /trunk/t/test09.x Mon Sep 13 12:45:29 2010
+++ /trunk/t/test09.x Tue Nov 9 16:55:43 2010
@@ -8,7 +8,7 @@
0,0,0,}
0,0,0,
0,0,0,sub bar {
-0,3,0,eval 'for ($a=0; $a < 10_000; ++$a) { ++$b }';
+0,3,0,eval '$a = 10_001; while (--$a) { ++$b }';
0,0,0,}
0,0,0,
0,1,0,foo();
=======================================
--- /trunk/t/test62-subcaller1.p Sat Nov 14 12:51:55 2009
+++ /trunk/t/test62-subcaller1.p Tue Nov 9 16:55:43 2010
@@ -1,11 +1,11 @@
# test determination of subroutine caller in unusual cases
{
- package MyTie;
- # this TIESCALAR call isn't seen by perl < 5.8.9 and 5.10.1
- sub TIESCALAR { bless {}, shift; }
- sub FETCH { }
- sub STORE { }
+ my $a = time;
+ # calls to TIESCALAR aren't seen by perl < 5.8.9 and 5.10.1
+ sub MyTie::TIESCALAR { bless {}, shift; }
+ sub MyTie::FETCH { }
+ sub MyTie::STORE { }
}
tie my $tied, 'MyTie', 42; # TIESCALAR
=======================================
--- /trunk/t/test62-subcaller1.rdt Sat Jun 5 15:40:22 2010
+++ /trunk/t/test62-subcaller1.rdt Tue Nov 9 16:55:43 2010
@@ -13,7 +13,7 @@
attribute total_stmts_measured 0
attribute total_sub_calls 0
attribute xs_version 0
-fid_block_time 1 4 [ 0 1 ]
+fid_block_time 1 4 [ 0 2 ]
fid_block_time 1 6 [ 0 1 ]
fid_block_time 1 7 [ 0 1 ]
fid_block_time 1 8 [ 0 1 ]
@@ -68,7 +68,7 @@
fid_fileinfo 2 [ Devel/NYTProf/Test.pm 2 2 0 0 ]
fid_fileinfo 2 sub Devel::NYTProf::Test::example_sub 13-13
fid_fileinfo 3 [ Exporter.pm 3 2 0 0 ]
-fid_line_time 1 4 [ 0 1 ]
+fid_line_time 1 4 [ 0 2 ]
fid_line_time 1 6 [ 0 1 ]
fid_line_time 1 7 [ 0 1 ]
fid_line_time 1 8 [ 0 1 ]
@@ -93,7 +93,7 @@
fid_line_time 2 9 [ 0 1 ]
fid_line_time 2 11 [ 0 1 ]
fid_line_time 2 15 [ 0 1 ]
-fid_sub_time 1 4 [ 0 1 ]
+fid_sub_time 1 4 [ 0 2 ]
fid_sub_time 1 6 [ 0 1 ]
fid_sub_time 1 7 [ 0 1 ]
fid_sub_time 1 8 [ 0 1 ]
--
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]
