make bound.pl to check all Mail::Bounce::* class

1 files changed, 13 insertions, 4 deletions

diff --git a/regress/message/bounce_dsn.pl b/regress/message/bounce.pl
index effcae5b..7bd2591b 100755
--- a/regress/message/bounce_dsn.pl
+++ b/regress/message/bounce.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: bounce_dsn.pl,v 1.1 2001/04/08 16:17:30 fukachan Exp $
 #
 
 use strict;
@@ -16,10 +16,19 @@ use Mail::Message;
 for my $f (@ARGV) {
     my $fh  = new FileHandle $f;
     my $msg = Mail::Message->parse( { fd => $fh } );
+    my $r   = {};
 
-    use Mail::Bounce::DSN;
-    my $r = Mail::Bounce::DSN->analyze( $msg );
-    # use Data::Dumper; print Dumper( $r );
+    for my $pkg ('DSN', 'Postfix19991231') {
+	print "--- $pkg\n";
+	eval qq { 
+	    require Mail::Bounce::$pkg; 
+	    \$r = Mail::Bounce::$pkg->analyze( \$msg );
+	};
+	print $@ if $@;
+
+	eval q{ use Data::Dumper; print Dumper( $r );};
+	print $@ if $@;
+    }
 }
 
 exit 0;