Mercurial > hg > xemacs-beta

comparison tests/autoconf/regressiontest.pl @ 2651:3580ae2ce979

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-03-11 11:18:44 by malcolmp] Upgrade from autoconf 2.13 to autoconf 2.59.
author malcolmp
date Fri, 11 Mar 2005 11:20:34 +0000
parents
children ad2f4ae9895b
comparison
equal deleted inserted replaced
2650:fc554bcc59e7 2651:3580ae2ce979
1 #!/usr/bin/perl -w
2 #
3 # Try the new and old versions of configure with various command lines to see
4 # if they produce identical output.
5 #
6 # Invocation: $0 /path/to/old/configure /path/to/new/configure
7 #
8 # Since not all tests use --srcdir, invoke this script from a directory where
9 # configure can automatically find its input files (Makefile.in.in, etc). If
10 # interrupted, it probably will leave its temporary directories behind. In
11 # that case, it will error on next invocation, but remove the directories.
12 # The next invocation will then succeed.
13 #
14
15 use strict;
16 use File::Basename;
17
18 # Files generated by configure. There should be no functional difference
19 # between these files generated by 2.13 and those generated by 2.59.
20 my @output_files =
21 (
22 "Installation",
23 "Makefile.in",
24 "./Makefile",
25 "./GNUmakefile",
26 "dynodump/Makefile.in",
27 "dynodump/Makefile",
28 "lib-src/Makefile.in",
29 "lib-src/Makefile",
30 "lib-src/GNUmakefile",
31 # "lib-src/config.values", # This is specific to the version of autoconf.
32 "lib-src/ellcc.h",
33 "lwlib/Makefile.in",
34 "lwlib/Makefile",
35 "lwlib/GNUmakefile",
36 "lwlib/config.h",
37 "modules/ldap/Makefile.in",
38 "modules/ldap/Makefile",
39 "modules/ldap/GNUmakefile",
40 "modules/postgresql/Makefile.in",
41 "modules/postgresql/Makefile",
42 "modules/postgresql/GNUmakefile",
43 "netinstall/Makefile.in",
44 "netinstall/Makefile",
45 "src/Makefile.in",
46 "src/Makefile",
47 "src/GNUmakefile",
48 "src/config.h",
49 "src/paths.h",
50 "src/xemacs.def.in",
51 "src/xemacs.def",
52 );
53
54 # The list of complete command line arguments to test against. Since the
55 # command line arguments have changed between 2.13 and 2.59 this hash maps from
56 # old => new. If new is 'undef' then the old arguments are used instead.
57 my %config_args =
58 (
59 " " => undef,
60 "--prefix=/tmp/foo" => undef,
61 "--with-gnome" => undef,
62 "--with-mule" => "--enable-mule",
63 # My build flags for MacOS X. Needs /sw (fink) to be present.
64 # "--prefix=/Users/malcolmp/prefix --site-prefixes=/sw --with-sound=none --with-database=no --without-ldap --without-postgresql" =>
65 # "--prefix=/Users/malcolmp/prefix --with-site-prefixes=/sw --disable-sound --disable-database --without-ldap --without-postgresql",
66 # My build flags for Linux (powerpc64)
67 "--prefix=/usr/local/gcc3-world --package-path=/usr/local/lib/xemacs" =>
68 "--prefix=/usr/local/gcc3-world --with-package-path=/usr/local/lib/xemacs",
69 "--use_union_type" => "--enable-union-type",
70 "--use_kkcc" => "--enable-kkcc",
71 "--xemacs-compiler=g++" => "--with-xemacs-compiler=g++",
72 "--lispdir=/tmp/foo" => "--with-lispdir=/tmp/foo",
73 "--moduledir=/tmp/foo" => "--with-moduledir=/tmp/foo",
74 "--etcdir=/tmp/foo" => "--with-etcdir=/tmp/foo",
75 "--infopath=/tmp/foo" => "--with-infopath=/tmp/foo",
76 "--archlibdir=/tmp/foo" => "--with-archlibdir=/tmp/foo",
77 "--docdir=/tmp/foo" => "--with-docdir=/tmp/foo",
78 "--package-prefix=/tmp/foo" => "--with-package-prefix=/tmp/foo",
79 "--package-path=/tmp/foo" => "--with-package-path=/tmp/foo",
80 "--datadir=/tmp/foo" => undef,
81 "--mandir=/tmp/foo" => undef,
82 "--infodir=/tmp/foo" => undef,
83 "--libdir=/tmp/foo" => undef,
84 "--exec-prefix=/tmp/foo" => undef,
85 "--with-athena=3d" => undef,
86 );
87
88 die "Usage: $0 /path/to/configure-2.13 /path/to/configure-2.59\n" if scalar(@ARGV) != 2;
89
90 my $old_configure = $ARGV[0];
91 my $new_configure = $ARGV[1];
92 my $old_dir = dirname($old_configure);
93 my $new_dir = dirname($new_configure);
94
95 foreach my $old_arg (keys %config_args) {
96 mkdir "/tmp/old" or die "$0: Cannot create /tmp/old: $!\n";
97 mkdir "/tmp/new" or die "$0: Cannot create /tmp/new: $!\n";
98
99 my $new_arg = $config_args{$old_arg};
100 $new_arg = $old_arg if ! defined($new_arg);
101
102 print "--------------------------------------------------\n";
103 print "$old_configure $old_arg\n";
104 print "$new_configure $new_arg\n";
105
106 chdir "/tmp/old" or die "$0: Cannot cd to /tmp/old: $!\n";
107 system ("$old_configure $old_arg >/tmp/old-output.txt\n") == 0 or
108 die "$0: $old_configure $old_arg failed\n";
109
110 chdir "/tmp/new" or die "$0: Cannot cd to /tmp/new: $!\n";
111 system ("$new_configure $new_arg >/tmp/new-output.txt\n") == 0 or
112 die "$0: $new_configure $new_arg failed\n";
113
114 foreach my $file (@output_files) {
115 if (-r "/tmp/old/$file" && -r "/tmp/new/$file") {
116 # Strip out parts that always differ: Paths and the 'Generated by configure'
117 # lines.
118 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");
119 # Compare the processed versions. These should be the same.
120 system "diff -U 0 -L old-$file -L new-$file /tmp/old/$file.processed /tmp/new/$file.processed";
121 }
122 }
123 chdir "/";
124 system("rm -rf /tmp/old /tmp/new");
125 }
126
127 END {
128 chdir "/";
129 system("rm -rf /tmp/old /tmp/new");
130 }