From 151b83f867487080e8f0e5cd6179e857dc6b3ccb Mon Sep 17 00:00:00 2001 From: Philip Hazel Date: Mon, 6 Feb 2006 16:07:10 +0000 Subject: CVS-ing the new test suite. --- test/patchexim | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100755 test/patchexim (limited to 'test/patchexim') diff --git a/test/patchexim b/test/patchexim new file mode 100755 index 000000000..c8fbe466b --- /dev/null +++ b/test/patchexim @@ -0,0 +1,30 @@ +#! /usr/bin/perl -w + +# $Cambridge: exim/test/patchexim,v 1.1 2006/02/06 16:07:10 ph10 Exp $ + +############################################################################### +# This is an auxiliary script that is part of the Exim test suite. It must be # +# run as root, and is normally called from the main controlling script. Its # +# job is to make a copy of Exim, suitably patched so that it can run in the # +# test harness. See further comments in the main script. # +# # +# The only argument to this script is the name of the Exim binary that is to # +# be copied. The script must be run in the correct current directory. # +############################################################################### + +open(IN, "$ARGV[0]") || die "** Failed to open $ARGV[0]: $!\n"; +open(OUT, ">eximdir/exim") || die "** Failed to open eximdir/exim: $!\n"; + +while() + { + s/>>>running<<>>/; + s/(\d+\.\d+(?:\.\d+)?(-RC\d+)?\0<>)/"x.yz\0" . ("*" x (length($1) - 5))/e; + print OUT; + } + +close(IN); +close(OUT); + +chmod 04755, "eximdir/exim"; + +# End of patchexim script -- cgit v1.2.3