| 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 | # [email protected]
|
|---|
| 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
|
|---|
