1use Test; 2BEGIN { $| = 1; plan(tests => 2); chdir 't' if -d 't'; } 3use blib; 4 5use Mail::Procmailrc; 6 7my $rcfile; 8my @rcfile; 9my $pmrc; 10 11$rcfile =<<'_RCFILE_'; 12LOGFILE=$PMDIR/log.mailblock.net 13 14VERBOSE=yes 15 16FORMAIL=/usr/local/bin/formail 17 18RM=/bin/rm 19 20:0 21## bounced bounce? 22* !^TO_MAILER-DAEMON@mailblock.net 23{ } 24 25:0E 26/dev/null 27 28:0 29## test conditions 30* !^TO_.*@mailblock\.net 31{ } 32 33:0E 34## else do this 35{ BOUNCEPID=`echo $$` } 36 37:0B 38* foo 39{ HASFOO=`grep 'foo' ${BOUNCEPID}` } 40 41VERBOSE=no 42_RCFILE_ 43 44ok( $pmrc = new Mail::Procmailrc( { 'data' => $rcfile } ) ); 45ok( $pmrc->dump(), $rcfile ); 46