modify messages as a guild line

5 files changed, 21 insertions, 15 deletions

diff --git a/regress/base/Makefile b/regress/base/Makefile
index 7b66684f..ff0d2a80 100644
--- a/regress/base/Makefile
+++ b/regress/base/Makefile
@@ -1,21 +1,16 @@
 #
-# $FML: Makefile,v 1.7 2001/09/30 23:07:25 fukachan Exp $
+# $FML: Makefile,v 1.8 2002/04/18 14:18:06 fukachan Exp $
 #
 
 PERL = perl -I ../../fml/lib -I ../../cpan/lib -I ../../img/lib
 
 test:
-	@ echo "* mime"
+	@ echo "* miscellaneous functions"
 	@ $(PERL) ../base/mime.pl
-	@ echo "* lock test"
 	@ $(PERL) ../base/lock.pl
-	@ echo "* checksum test"
 	@ $(PERL) ../base/md5.pl
-	@ echo "* FML::Date test"
 	@ $(PERL) ../base/date2unixtime.pl
-	@ echo "* Tie::JournaledFile test"
 	@ $(PERL) ../base/journaledfile.pl
-	@ echo "* Tie::JournaledDir test"
 	@ $(PERL) ../base/journaleddir.pl
 	@ echo "* Mail::Message module IO test"
 	@ sh ../base/multipart_io.sh
diff --git a/regress/base/date2unixtime.pl b/regress/base/date2unixtime.pl
index 44ba0624..cdb4c42d 100755
--- a/regress/base/date2unixtime.pl
+++ b/regress/base/date2unixtime.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 #
-# $FML: date2unixtime.pl,v 1.2 2001/11/18 02:22:10 fukachan Exp $
+# $FML: date2unixtime.pl,v 1.3 2002/04/18 14:18:07 fukachan Exp $
 #
 
 use strict;
@@ -17,13 +17,14 @@ chop $date;
 
 my $tx = Mail::Message::Date::date_to_unixtime( $date );
 
-print "* date -> unixtime: $t => $date => $tx\n" if $debug;
+print STDERR "Mail::Message::Date ";
+print STDERR "(date -> unixtime): $t => $date => $tx\n" if $debug;
 
 if ($t == $tx) {
-   print "ok\n";
+   print STDERR "ok\n";
 }
 else {
-   print "fail\n";
+   print STDERR "fail\n";
 }
 
 exit 0;
diff --git a/regress/base/journaleddir.pl b/regress/base/journaleddir.pl
index 92550c3e..39d27820 100755
--- a/regress/base/journaleddir.pl
+++ b/regress/base/journaleddir.pl
@@ -1,11 +1,12 @@
 #!/usr/bin/env perl
 #
-# $FML: journaleddir.pl,v 1.4 2001/10/18 03:40:51 fukachan Exp $
+# $FML: journaleddir.pl,v 1.5 2002/04/18 14:18:07 fukachan Exp $
 #
 
 BEGIN {
     my $debug = defined $ENV{'debug'} ? 1 : 0;
-    print "init  journaleddir ...\n" if $debug;
+    $| = 1; 
+    print "Tie::JournaledDir init  journaleddir ...\n" if $debug;
 };
 
 use Tie::JournaledDir;
@@ -16,6 +17,8 @@ my $key  = shift || 'uja';
 my $unit = shift || 2;
 my $dir  = "/tmp/fml5/jd";
 
+print "Tie::JournaledDir ";
+
 my $debug = defined $ENV{'debug'} ? 1 : 0;
 
 if (-d $dir) {
diff --git a/regress/base/journaledfile.pl b/regress/base/journaledfile.pl
index 6688172f..9734f133 100755
--- a/regress/base/journaledfile.pl
+++ b/regress/base/journaledfile.pl
@@ -1,12 +1,15 @@
 #!/usr/bin/env perl
 #
-# $FML: journaledfile.pl,v 1.2 2001/08/21 03:46:40 fukachan Exp $
+# $FML: journaledfile.pl,v 1.3 2002/04/18 14:18:07 fukachan Exp $
 #
 
 use strict;
 use lib qw(../../fml/lib);
 use Tie::JournaledFile;
 
+$| = 1;
+print "Tie::JournaledFile ";
+
 my $debug = defined $ENV{'debug'} ? 1 : 0;
 my %db   = ();
 my $file = '/tmp/fml5/cache.txt';
diff --git a/regress/base/lock.pl b/regress/base/lock.pl
index 2251ffeb..f8c531e2 100755
--- a/regress/base/lock.pl
+++ b/regress/base/lock.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 #
-# $FML: lock.pl,v 1.5 2001/08/05 13:09:00 fukachan Exp $
+# $FML: lock.pl,v 1.6 2002/04/18 14:18:07 fukachan Exp $
 #
 
 use strict;
@@ -9,6 +9,8 @@ my $debug = defined $ENV{'debug'} ? 1 : 0;
 use File::SimpleLock;
 my $lockobj = new File::SimpleLock;
 
+print STDERR "File::SimpleLock ";
+
 my $r = $lockobj->lock( { file => '/tmp/fml5' });
 if ($r) { 
     print STDERR "lock ($$) ... ok\n";
@@ -19,6 +21,8 @@ else {
 
 sleep 1;
 
+print STDERR "File::SimpleLock ";
+
 $r = $lockobj->unlock( { file => '/tmp/fml5' });
 if ($r) { 
     print STDERR "unlock ... ok\n";