Commit | Line | Data |
b4324e9b |
1 | #!/bin/sh |
2 | |
3 | # |
4 | # testall.atom |
5 | # |
6 | # This script creates all.Counts file that can be fed to prof(1) |
7 | # to produce various basic block counting profiles. |
8 | # |
9 | # This script needs to be run at the top level of the Perl build |
10 | # directory after the "make all" and "make test" targets have been run. |
11 | # |
12 | # You will also need to have perl.pixie built, |
13 | # which means that you will also have Configured with -Doptimize=-g. |
14 | # |
15 | # After the script has been run (this will take several minutes) |
16 | # you will have a file called all.Counts, which contains the cumulative |
17 | # basic block counting results over the whole Perl test suite. |
18 | # You can produce various reports using prof(1); |
19 | # |
20 | # prof -pixie -all -L. perl all.Counts |
21 | # prof -pixie -heavy -all -L. perl all.Counts |
22 | # prof -pixie -invocations -all -L. perl all.Counts |
23 | # prof -pixie -lines -all -L. perl all.Counts |
24 | # prof -pixie -testcoverage -all -L. perl all.Counts |
25 | # prof -pixie -zero -all -L. perl all.Counts |
26 | # |
27 | # io/openpid and op/fork core on me, I don't know why and haven't |
28 | # taken a look yet. |
29 | # |
30 | # jhi@iki.fi |
31 | # |
32 | |
33 | if test ! -f /usr/bin/atom |
34 | then |
35 | echo "$0: no /usr/bin/atom" |
36 | exit 1 |
37 | fi |
38 | |
39 | if test ! -f perl; then echo "$0: no perl"; exit 1; fi |
40 | if test ! -f perl.pixie; then echo "$0: no perl.pixie; exit 1; fi |
41 | if test ! -f t/perl; then echo "$0: no t/perl; exit 1; fi |
42 | |
43 | LD_LIBRARY_PATH=`pwd` |
44 | export LD_LIBRARY_PATH |
45 | |
46 | cd t || exit 1 |
47 | |
48 | ln -sf ../perl.pixie . |
49 | |
50 | the_t=`echo base/*.t comp/*.t cmd/*.t run/*.t io/*.t; echo op/*.t pragma/*.t lib/*.t pod/*.t camel-III/*.t` |
51 | |
52 | PERL_DESTRUCT_LEVEL=2 |
53 | export PERL_DESTRUCT_LEVEL |
54 | |
55 | rm -f all.Counts |
56 | |
57 | for t in $the_t |
58 | do |
59 | echo `echo $t|sed s:\.t$::`" \c" |
60 | case "$t" in |
61 | *taint*|pragma/locale.t|lib/basename.t) |
62 | T=-T ;; |
63 | *) |
64 | T='' ;; |
65 | esac |
66 | ./perl.pixie $T $t > /dev/null |
67 | if cd .. |
68 | then |
69 | if test -f all.Counts |
70 | then |
71 | prof -pixie -merge new.Counts -L. -incobj libperl.so perl t/perl.Counts all.Counts |
72 | mv new.Counts all.Counts |
73 | else |
74 | mv t/perl.Counts all.Counts |
75 | fi |
76 | cd t |
77 | fi |
78 | done |
79 | |
80 | exit 0 |