File: test60-subname.t

package info (click to toggle)
libdevel-nytprof-perl 6.04%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 2,552 kB
  • ctags: 1,540
  • sloc: perl: 5,590; ansic: 107; makefile: 21
file content (11 lines) | stat: -rw-r--r-- 294 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
 
use strict;
use Test::More;
use lib qw(t/lib);
use NYTProfTest;

# XXX needed because the call from example_xsub to will_die,
# made via call_sv() doesn't get profiled on older perls
plan skip_all => "needs perl >= 5.8.9 or >= 5.10.1"
    if $] < 5.008009 or $] eq "5.010000";

run_test_group;