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