Mercurial > hg > xemacs-beta
annotate tests/autoconf/regressiontest.pl @ 4758:75975fd0b7fc
Implement more of the fontconfig API.
Improve implementation, avoiding nonsyntactic macros and compiler warnings.
Clean up some documentation.
Guard against freeing NULL pointers returned from fonconfig.
| author | Stephen J. Turnbull <stephen@xemacs.org> |
|---|---|
| date | Wed, 18 Nov 2009 22:44:28 +0900 |
| parents | 679041362cd4 |
| children | aa5ed11f473b |
| rev | line source |
|---|---|
| 2651 | 1 #!/usr/bin/perl -w |
| 2 # | |
|
4739
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
3 # Copyright 2005 Malcolm Purvis |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
4 # |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
5 # This file is part of XEmacs. |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
6 # |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
7 # XEmacs is free software; you can redistribute it and/or modify it |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
8 # under the terms of the GNU General Public License as published by the |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
9 # Free Software Foundation; either version 2, or (at your option) any |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
10 # later version. |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
11 # |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
12 # XEmacs is distributed in the hope that it will be useful, but WITHOUT |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
13 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
14 # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
15 # for more details. |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
16 # |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
17 # You should have received a copy of the GNU General Public License |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
18 # along with XEmacs; see the file COPYING. If not, write to |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
19 # the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
20 # Boston, MA 02110-1301, USA. |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
21 # |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
22 # Commentary |
|
679041362cd4
Add permissions notices to sigpipe.c and regressiontest.pl.
Stephen J. Turnbull <stephen@xemacs.org>
parents:
3094
diff
changeset
|
23 # |
| 2651 | 24 # Try the new and old versions of configure with various command lines to see |
| 25 # if they produce identical output. | |
| 26 # | |
| 27 # Invocation: $0 /path/to/old/configure /path/to/new/configure | |
| 28 # | |
| 29 # Since not all tests use --srcdir, invoke this script from a directory where | |
| 30 # configure can automatically find its input files (Makefile.in.in, etc). If | |
| 31 # interrupted, it probably will leave its temporary directories behind. In | |
| 32 # that case, it will error on next invocation, but remove the directories. | |
| 33 # The next invocation will then succeed. | |
| 34 # | |
| 35 | |
| 36 use strict; | |
| 37 use File::Basename; | |
| 38 | |
| 39 # Files generated by configure. There should be no functional difference | |
| 40 # between these files generated by 2.13 and those generated by 2.59. | |
| 41 my @output_files = | |
| 42 ( | |
| 43 "Installation", | |
| 44 "Makefile.in", | |
| 45 "./Makefile", | |
| 46 "./GNUmakefile", | |
| 47 "dynodump/Makefile.in", | |
| 48 "dynodump/Makefile", | |
| 49 "lib-src/Makefile.in", | |
| 50 "lib-src/Makefile", | |
| 51 "lib-src/GNUmakefile", | |
| 52 # "lib-src/config.values", # This is specific to the version of autoconf. | |
| 53 "lib-src/ellcc.h", | |
| 54 "lwlib/Makefile.in", | |
| 55 "lwlib/Makefile", | |
| 56 "lwlib/GNUmakefile", | |
| 57 "lwlib/config.h", | |
| 58 "modules/ldap/Makefile.in", | |
| 59 "modules/ldap/Makefile", | |
| 60 "modules/ldap/GNUmakefile", | |
| 61 "modules/postgresql/Makefile.in", | |
| 62 "modules/postgresql/Makefile", | |
| 63 "modules/postgresql/GNUmakefile", | |
| 64 "netinstall/Makefile.in", | |
| 65 "netinstall/Makefile", | |
| 66 "src/Makefile.in", | |
| 67 "src/Makefile", | |
| 68 "src/GNUmakefile", | |
| 69 "src/config.h", | |
| 70 "src/paths.h", | |
| 71 "src/xemacs.def.in", | |
| 72 "src/xemacs.def", | |
| 73 ); | |
| 74 | |
| 75 # The list of complete command line arguments to test against. Since the | |
| 76 # command line arguments have changed between 2.13 and 2.59 this hash maps from | |
| 77 # old => new. If new is 'undef' then the old arguments are used instead. | |
| 78 my %config_args = | |
| 79 ( | |
| 80 " " => undef, | |
| 81 "--prefix=/tmp/foo" => undef, | |
| 82 "--with-gnome" => undef, | |
| 83 "--with-mule" => "--enable-mule", | |
| 84 # My build flags for MacOS X. Needs /sw (fink) to be present. | |
| 85 # "--prefix=/Users/malcolmp/prefix --site-prefixes=/sw --with-sound=none --with-database=no --without-ldap --without-postgresql" => | |
| 86 # "--prefix=/Users/malcolmp/prefix --with-site-prefixes=/sw --disable-sound --disable-database --without-ldap --without-postgresql", | |
| 87 # My build flags for Linux (powerpc64) | |
| 88 "--prefix=/usr/local/gcc3-world --package-path=/usr/local/lib/xemacs" => | |
| 89 "--prefix=/usr/local/gcc3-world --with-package-path=/usr/local/lib/xemacs", | |
| 90 "--use_union_type" => "--enable-union-type", | |
| 91 "--use_kkcc" => "--enable-kkcc", | |
| 92 "--xemacs-compiler=g++" => "--with-xemacs-compiler=g++", | |
| 93 "--lispdir=/tmp/foo" => "--with-lispdir=/tmp/foo", | |
| 94 "--moduledir=/tmp/foo" => "--with-moduledir=/tmp/foo", | |
| 95 "--etcdir=/tmp/foo" => "--with-etcdir=/tmp/foo", | |
| 96 "--infopath=/tmp/foo" => "--with-infopath=/tmp/foo", | |
| 97 "--archlibdir=/tmp/foo" => "--with-archlibdir=/tmp/foo", | |
| 98 "--docdir=/tmp/foo" => "--with-docdir=/tmp/foo", | |
| 99 "--package-prefix=/tmp/foo" => "--with-package-prefix=/tmp/foo", | |
| 100 "--package-path=/tmp/foo" => "--with-package-path=/tmp/foo", | |
| 101 "--datadir=/tmp/foo" => undef, | |
| 102 "--mandir=/tmp/foo" => undef, | |
| 103 "--infodir=/tmp/foo" => undef, | |
| 104 "--libdir=/tmp/foo" => undef, | |
| 105 "--exec-prefix=/tmp/foo" => undef, | |
| 106 "--with-athena=3d" => undef, | |
| 3094 | 107 "--with-mule --with-xft=emacs --debug --error-checking=all --with-xim=xlib --with-widgets=athena --with-athena=3d --with-dialogs=athena --memory-usage-stats --use-number-lib=gmp --site-prefixes=/opt/local:/sw --with-ldap=no --use-union-type" => "--enable-mule --with-xft=emacs --enable-debug --enable-error-checking=all --with-xim=xlib --enable-widgets=athena --with-athena=3d --enable-dialogs=athena --enable-memory-usage-stats --enable-bignum=gmp --with-site-prefixes=/opt/local:/sw --with-ldap=no --enable-union-type" |
| 2651 | 108 ); |
| 109 | |
| 110 die "Usage: $0 /path/to/configure-2.13 /path/to/configure-2.59\n" if scalar(@ARGV) != 2; | |
| 111 | |
| 112 my $old_configure = $ARGV[0]; | |
| 113 my $new_configure = $ARGV[1]; | |
| 114 my $old_dir = dirname($old_configure); | |
| 115 my $new_dir = dirname($new_configure); | |
| 116 | |
| 117 foreach my $old_arg (keys %config_args) { | |
| 118 mkdir "/tmp/old" or die "$0: Cannot create /tmp/old: $!\n"; | |
| 119 mkdir "/tmp/new" or die "$0: Cannot create /tmp/new: $!\n"; | |
| 120 | |
| 121 my $new_arg = $config_args{$old_arg}; | |
| 122 $new_arg = $old_arg if ! defined($new_arg); | |
| 123 | |
| 124 print "--------------------------------------------------\n"; | |
| 125 print "$old_configure $old_arg\n"; | |
| 126 print "$new_configure $new_arg\n"; | |
| 127 | |
| 128 chdir "/tmp/old" or die "$0: Cannot cd to /tmp/old: $!\n"; | |
| 129 system ("$old_configure $old_arg >/tmp/old-output.txt\n") == 0 or | |
| 130 die "$0: $old_configure $old_arg failed\n"; | |
| 131 | |
| 132 chdir "/tmp/new" or die "$0: Cannot cd to /tmp/new: $!\n"; | |
| 133 system ("$new_configure $new_arg >/tmp/new-output.txt\n") == 0 or | |
| 134 die "$0: $new_configure $new_arg failed\n"; | |
| 135 | |
| 136 foreach my $file (@output_files) { | |
| 137 if (-r "/tmp/old/$file" && -r "/tmp/new/$file") { | |
| 138 # Strip out parts that always differ: Paths and the 'Generated by configure' | |
| 139 # lines. | |
| 140 system("for i in /tmp/old/$file /tmp/new/$file ; do sed -e '/HAVE_DECL_SYS_SIGLIST/d' -e '\\!$old_configure!d' -e '\\!$new_configure!d' -e '/EMACS_CONFIG_OPTIONS/d' -e '/Generated.*configure/d' -e '\\!$old_dir!s///' -e '\\!$new_dir!s///' -e '\\!/tmp/new!s///' -e '\\!/tmp/old!s///' <\$i >\$i.processed ; done"); | |
| 141 # Compare the processed versions. These should be the same. | |
| 142 system "diff -U 0 -L old-$file -L new-$file /tmp/old/$file.processed /tmp/new/$file.processed"; | |
| 143 } | |
| 144 } | |
| 145 chdir "/"; | |
| 146 system("rm -rf /tmp/old /tmp/new"); | |
| 147 } | |
| 148 | |
| 149 END { | |
| 150 chdir "/"; | |
| 151 system("rm -rf /tmp/old /tmp/new"); | |
| 152 } |