|
2651
|
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 }
|
