A slightly better layout for the diagram.
[p5sagit/p5-mst-13.2.git] / Porting / testall.atom
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 if test $# = 0; then
51   the_t=`echo base/*.t comp/*.t cmd/*.t run/*.t io/*.t; echo op/*.t uni/*.t pod/*.t x2p/*.t; find ../ext ../lib -name '*.t' -print`
52 else
53   the_t=$@
54 fi
55
56 PERL_DESTRUCT_LEVEL=2
57 export PERL_DESTRUCT_LEVEL
58 PERL_CORE=1
59 export PERL_CORE
60
61 rm -f all.Counts
62
63 for t in $the_t
64 do
65     case "$t" in
66     ext/*|lib/*) t=../$t ;;
67     t/*) t=`echo $t|sed 's:^t/::'` ;;
68     esac
69     echo $t|sed 's:\.t$::'
70     sw=''
71     case "`head -1 $t|egrep -e '^#.* -.*T'`" in
72     *-*T*) sw="$sw -T" ;;
73     esac
74     case "`head -1 $t|egrep -e '^#.* -.*t'`" in
75     *-*t*) sw="$sw -t" ;;
76     esac
77     ./perl.pixie -I../lib $sw $t > /dev/null
78     if cd ..
79     then
80         if test -f all.Counts
81         then
82             prof -pixie -merge new.Counts -L. -incobj libperl.so perl t/perl.Counts all.Counts
83             mv new.Counts all.Counts
84         else
85             mv t/perl.Counts all.Counts
86         fi
87         cd t
88     fi
89 done
90
91 exit 0