Revision: 1054 Author: tim.bunce Date: Sun Feb 14 14:17:41 2010 Log: Added a test for RT#54600
http://code.google.com/p/perl-devel-nytprof/source/detail?r=1054 Added: /trunk/t/test82-version.t Modified: /trunk/MANIFEST ======================================= --- /dev/null +++ /trunk/t/test82-version.t Sun Feb 14 14:17:41 2010 @@ -0,0 +1,40 @@ +# Tests interaction with UNIVERSAL::VERSION (RT#54600) + +use strict; +use Test::More; + +use lib qw(t/lib); +use NYTProfTest; +use Data::Dumper; + +use Devel::NYTProf::Run qw(profile_this); + +my $src_code = join("", <DATA>); + +run_test_group( { + extra_options => { + start => 'begin', + compress => 1, + leave => 0, + stmts => 0, + slowops => 0, + }, + extra_test_count => 2, + extra_test_code => sub { + my ($profile, $env) = @_; + + $profile = profile_this( + src_code => $src_code, + out_file => $env->{file}, + ); + isa_ok $profile, 'Devel::NYTProf::Data'; + # check if data was truncated + ok $profile->{attribute}{complete}; + }, +}); + +__DATA__ +package X; +require version; +our $VERSION = '2'; +X->VERSION(1); # core dump ======================================= --- /trunk/MANIFEST Sun Dec 20 12:25:02 2009 +++ /trunk/MANIFEST Sun Feb 14 14:17:41 2010 @@ -182,6 +182,7 @@ t/test80-recurs.rdt t/test80-recurs.t t/test81-swash.t +t/test82-version.t t/zzz.t typemap xt/test23-strevalxs.p -- 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]
