17 lines
381 B
Perl
17 lines
381 B
Perl
#!/usr/bin/perl
|
|
|
|
use Test::More;
|
|
|
|
use lib 'lib/';
|
|
use Mail::SpamAssassin::KeywordRuleGenerator;
|
|
|
|
my $id = '01';
|
|
|
|
my $kw = Mail::SpamAssassin::KeywordRuleGenerator->new('01');
|
|
ok ($kw->{'id'} == $id, "Get ID from attribute");
|
|
ok ($kw->id == $id, "Get ID from getter");
|
|
ok ($kw->id('Test') == 'Test', "Set ID with setter");
|
|
ok ($kw->id == 'Test', "Confirm set ID");
|
|
|
|
done_testing();
|