diff options
| -rwxr-xr-x | regress/message/basic_io.pl | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/regress/message/basic_io.pl b/regress/message/basic_io.pl index 51c138ac..be6731ff 100755 --- a/regress/message/basic_io.pl +++ b/regress/message/basic_io.pl @@ -5,7 +5,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: basic_io.pl,v 1.2 2001/04/08 05:05:10 fukachan Exp $ +# $FML: basic_io.pl,v 1.3 2001/04/13 04:03:11 fukachan Exp $ # use strict; @@ -13,6 +13,8 @@ use Carp; use lib qw(../../cpan/lib); use Mail::Message; +my $test_mode = $ENV{'test_mode'} ? 1 : 0; + my $tmp = "/tmp/buf$$"; for my $f (@ARGV) { @@ -24,20 +26,23 @@ for my $f (@ARGV) { $obj->print($wh); $wh->close; - print "\n<< $f\n"; - - # use Data::Dumper; print Dumper( $obj ); - - my $h = $obj->get_data_type_list; - for (@$h) { print " ", $_, "\n";} + unless ($test_mode) { + print "\n<< $f\n"; + my $h = $obj->get_data_type_list; + for (@$h) { print " ", $_, "\n";} + print "\n"; + } - print "\n"; use IO::Handle; my $fd = new IO::Handle; my $i = 0; open($fd, "diff -ub $f $tmp|"); while (<$fd>) { $i++; print " ", $_ if $i > 3;} close($fd); + + print "$f "; + print $i ? "fail" : "ok"; + print "\n"; } unlink $tmp; |