projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
add Devel::DProf v19990108 from CPAN, as it was
[p5sagit/p5-mst-13.2.git]
/
ext
/
DProf
/
t
/
test3.v
1
# perl
2
3
use V;
4
5
dprofpp( '-T' );
6
$e1 = $expected =
7
qq{main::bar
8
main::baz
9
main::bar
10
main::foo
11
};
12
report 1, sub { $expected eq $results };
13
14
dprofpp('-TF');
15
$e2 = $expected =
16
qq{main::bar
17
main::baz
18
main::bar
19
main::foo
20
};
21
report 2, sub { $expected eq $results };
22
23
dprofpp( '-t' );
24
$expected = $e1;
25
report 3, sub { 1 };
26
27
dprofpp('-tF');
28
$expected = $e2;
29
report 4, sub { $expected eq $results };