From 402dc71fa075732c57f89f5d1146cdafe967969f Mon Sep 17 00:00:00 2001
From: Sears Russell <sears.russell@gmail.com>
Date: Mon, 26 Sep 2011 00:47:56 +0000
Subject: [PATCH] update perl unit test to remove stasis_log as well as
 logfile.txt

---
 lang/perl/t/01-boostrap.t         | 2 +-
 lang/perl/t/02-hash.t             | 2 +-
 lang/perl/t/03-hash-iterator.t    | 2 +-
 lang/perl/t/04-hash-in-hash.t     | 2 +-
 lang/perl/t/05-autoxacts.t        | 2 +-
 lang/perl/t/06-open.t             | 4 ++--
 lang/perl/t/07-hash-in-autohash.t | 2 +-
 7 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/lang/perl/t/01-boostrap.t b/lang/perl/t/01-boostrap.t
index 1268d68..6b7eb88 100755
--- a/lang/perl/t/01-boostrap.t
+++ b/lang/perl/t/01-boostrap.t
@@ -26,7 +26,7 @@ sub myprint {
 
 if($ARGV[0] eq "--automated-test") {
   shift @ARGV;
-  system ("rm storefile.txt logfile.txt");
+  system ("rm -rf storefile.txt logfile.txt stasis_log");
   $checking = 1;
 }
 
diff --git a/lang/perl/t/02-hash.t b/lang/perl/t/02-hash.t
index 2c5fed5..9729e8f 100755
--- a/lang/perl/t/02-hash.t
+++ b/lang/perl/t/02-hash.t
@@ -33,7 +33,7 @@ sub myprint {
 
 if($ARGV[0] eq "--automated-test") {
   shift @ARGV;
-  system ("rm storefile.txt logfile.txt");
+  system ("rm -rf storefile.txt logfile.txt stasis_log");
   $checking = 1;
 }
 Stasis::Tinit();
diff --git a/lang/perl/t/03-hash-iterator.t b/lang/perl/t/03-hash-iterator.t
index f4c95ec..1999895 100644
--- a/lang/perl/t/03-hash-iterator.t
+++ b/lang/perl/t/03-hash-iterator.t
@@ -20,7 +20,7 @@ sub myprint {
 
 if($ARGV[0] eq "--automated-test") {
   shift @ARGV;
-  system ("rm storefile.txt logfile.txt");
+  system ("rm -rf storefile.txt logfile.txt stasis_log");
   $checking = 1;
 }
 
diff --git a/lang/perl/t/04-hash-in-hash.t b/lang/perl/t/04-hash-in-hash.t
index 52e8163..24ab209 100644
--- a/lang/perl/t/04-hash-in-hash.t
+++ b/lang/perl/t/04-hash-in-hash.t
@@ -6,7 +6,7 @@ my $checking;
 
 if(@ARGV && $ARGV[0] eq "--automated-test") {
   shift @ARGV;
-  system ("rm storefile.txt logfile.txt");
+  system ("rm -rf storefile.txt logfile.txt stasis_log");
   $checking = 1;
 }
 Stasis::Tinit();
diff --git a/lang/perl/t/05-autoxacts.t b/lang/perl/t/05-autoxacts.t
index 21ff4e4..3eddacd 100755
--- a/lang/perl/t/05-autoxacts.t
+++ b/lang/perl/t/05-autoxacts.t
@@ -6,7 +6,7 @@ my $checking;
 
 if(@ARGV && $ARGV[0] eq "--automated-test") {
   shift @ARGV;
-  system ("rm storefile.txt logfile.txt");
+  system ("rm -rf storefile.txt logfile.txt stasis_log");
   $checking = 1;
 }
 
diff --git a/lang/perl/t/06-open.t b/lang/perl/t/06-open.t
index 20df16f..fce1e56 100644
--- a/lang/perl/t/06-open.t
+++ b/lang/perl/t/06-open.t
@@ -6,7 +6,7 @@ my $checking;
 
 if(@ARGV && $ARGV[0] eq "--automated-test") {
   shift @ARGV;
-  system ("rm storefile.txt logfile.txt");
+  system ("rm -rf storefile.txt logfile.txt stasis_log");
   $checking = 1;
 }
 
@@ -30,4 +30,4 @@ for(my $i = 0; $i < 4; $i++) {
     }
 }
 
-print "Exiting";
\ No newline at end of file
+print "Exiting";
diff --git a/lang/perl/t/07-hash-in-autohash.t b/lang/perl/t/07-hash-in-autohash.t
index 9d9dd75..cc7cb66 100644
--- a/lang/perl/t/07-hash-in-autohash.t
+++ b/lang/perl/t/07-hash-in-autohash.t
@@ -6,7 +6,7 @@ my $checking;
 
 if(@ARGV && $ARGV[0] eq "--automated-test") {
   shift @ARGV;
-  system ("rm storefile.txt logfile.txt");
+  system ("rm -rf storefile.txt logfile.txt stasis_log");
   $checking = 1;
 }