From 50b2f5ffae1d966a01642f651a5ba8327559efed Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Sun, 19 Apr 2009 07:17:56 -0700
Subject: [PATCH] Modify regression test to ensure that modification timestamp
 of the output file changes

---
 Shorewall/Perl/compiler.pl | 5 ++++-
 tools/testing/regression   | 5 ++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/Shorewall/Perl/compiler.pl b/Shorewall/Perl/compiler.pl
index f47e5becf..766219b95 100755
--- a/Shorewall/Perl/compiler.pl
+++ b/Shorewall/Perl/compiler.pl
@@ -44,6 +44,8 @@ use Shorewall::Compiler;
 use Getopt::Long;
 
 sub usage( $ ) {
+    my $returnval = shift @_;
+
     print STDERR 'usage: compiler.pl [ <option> ... ] [ <filename> ]
 
   options are:
@@ -58,7 +60,8 @@ sub usage( $ ) {
     [ --test ]
     [ --family={4|6} ]
 ';
-    exit shift @_;
+
+    $returnval;
 }
 
 #
diff --git a/tools/testing/regression b/tools/testing/regression
index 764354add..04e09c4ed 100755
--- a/tools/testing/regression
+++ b/tools/testing/regression
@@ -34,8 +34,11 @@ DIRECTORIES="$*"
 
 for directory in $DIRECTORIES; do
     if [ -d $directory ]; then
+	existing=$(ls -l $directory/firewall 2> /dev/null);
 	if /sbin/shorewall -${OPTIONS} compile -t $directory $directory/firewall > $directory/compileroutput 2> $directory/compilererrors; then
-	    if [ -f $directory/firewall.last ]; then
+	    if [ "$existing" = "$(ls -l $directory/firewall)" ]; then
+		echo "Test $directory FAILED ******** No object produced"
+	    elif [ -f $directory/firewall.last ]; then
 		if diff -au $directory/firewall.last $directory/firewall > $directory/compare; then
 		    echo "Test $directory PASSED"
 		else