Win32 pacifying from mjd.
[perl.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 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