summaryrefslogtreecommitdiff
path: root/t/01-use.t
blob: f151e18e3e20eb263035f2228c0dc57352607cfb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
# -*- mode: cperl -*- 
use Test::More tests=>3;
 
BEGIN {
    use_ok('DAKKAR::Graylister')
        or die;
}
 
my ($host,$from,$to)=qw(10.1.0.0 gino@qui.it pino@li.com);
is_deeply([DAKKAR::Graylister::_cleanup_data($host,$from,$to)],
          [$host,$from,$to],
          'no cleanup');
$from='gino-return-10-@qui.it';
is_deeply([DAKKAR::Graylister::_cleanup_data($host,$from,$to)],
          [$host,'gino-return-$-@qui.it',,$to],
          'ezmlm cleanup');