Revision: 1272
Author: [email protected]
Date: Mon Jun 7 06:47:48 2010
Log: Add failing test showing problem with eval/anon merging.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1272
Added:
/trunk/t/test25-strevalb.t
Modified:
/trunk/MANIFEST
=======================================
--- /dev/null
+++ /trunk/t/test25-strevalb.t Mon Jun 7 06:47:48 2010
@@ -0,0 +1,61 @@
+# Tests CORE::GLOBAL::foo plus assorted data model methods
+
+use strict;
+use Test::More;
+
+use lib qw(t/lib);
+use NYTProfTest;
+use Data::Dumper;
+
+use Devel::NYTProf::Run qw(profile_this);
+use Devel::NYTProf::Constants qw(NYTP_SCi_elements);
+
+my $pre589 = ($] < 5.008009 or $] eq "5.010000");
+
+my $src_code = join("", <DATA>);
+
+run_test_group( {
+ extra_options => { start => 'begin' },
+ extra_test_count => 17,
+ extra_test_code => sub {
+ my ($profile, $env) = @_;
+
+ $profile = profile_this(
+ src_code => $src_code,
+ out_file => $env->{file},
+ skip_sitecustomize => 1,
+ );
+ isa_ok $profile, 'Devel::NYTProf::Data';
+
+ my $fi = $profile->fileinfo_of(1);
+ my $subdefs_at_line =
$profile->subs_defined_in_file_by_line($fi->filename);
+ # 0: version::(bool, 1: main::be...@1, 2: main::be...@2, 3:
main::add, 4: main::inc
+ #warn join ", ", map { "$_: ".$subdefs_at_line->{$_}[0]->subname }
sort keys %$subdefs_at_line;
+ isa_ok my $add_si =
$subdefs_at_line->{4}[0], 'Devel::NYTProf::SubInfo';
+ is $add_si->subname, 'main::add';
+
+ my $callers = $add_si->caller_fid_line_places;
+ print Dumper($callers);
+
+ is keys %$callers, 1, 'called from 1 fid';
+ my $caller_fid = (keys %$callers)[0];
+ my $sc_lineinfo = $callers->{$caller_fid};
+ is keys %$sc_lineinfo, 1, 'called from 1 line in that fid';
+ my $caller_line = (keys %$sc_lineinfo)[0];
+
+ my $sc = (values %$sc_lineinfo)[0];
+ is ref $sc, 'ARRAY';
+ is @$sc, NYTP_SCi_elements(), "call from $caller_fid:$caller_line
to main::add should have all elements in $sc";
+
+ my $called_by_subnames = $add_si->called_by_subnames;
+ is keys %$called_by_subnames, 1, 'called_by_subnames should report
one caller for main::add';
+ },
+});
+
+__DATA__
+use strict;
+use Benchmark;
+my $i;
+sub add { ++$i }
+timethis( 10, \&add );
+die "panic $i" unless $i == 10;
=======================================
--- /trunk/MANIFEST Mon Apr 26 05:45:51 2010
+++ /trunk/MANIFEST Mon Jun 7 06:47:48 2010
@@ -150,6 +150,7 @@
t/test24-strevalc.p
t/test24-strevalc.rdt
t/test24-strevalc.t
+t/test25-strevalb.t
t/test30-fork-0.p
t/test30-fork-0.rdt
t/test30-fork-0.t
--
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]
