jpm
/
Mail-SpamAssassin-KeywordRuleGenerator
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Move and update id test -> attributes

This commit is contained in:
John Mertz 2022-11-28 21:02:55 -05:00
parent 334073159c
commit 944c3eed5e
2 changed files with 67 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
t/01-id.t
View File

@ -1,16 +0,0 @@
#!/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();

67
t/01_attributes.t Normal file
View File

@ -0,0 +1,67 @@
#!/usr/bin/perl
# Test that object attributes can be set and get
use Test::More;
use lib 'lib/';
use Mail::SpamAssassin::KeywordRuleGenerator;
my $defaults = {
'id' => 'KW',
'priority' => 50,
'debug' => 0,
'singleOutfile' => 0,
'joinScores' => 1
};
my $args = {
'id' => '01',
'priority' => 10,
'debug' => 1,
'singleOutfile' => 1,
'joinScores' => 0
};
# Default object
my $kwd = Mail::SpamAssassin::KeywordRuleGenerator->new();
# Object with initialization arguments
my $kwi = Mail::SpamAssassin::KeywordRuleGenerator->new( $args );
# id
ok ($kwd->{'id'} == $defaults->{'id'}, "Get default 'id' from object hash");
ok ($kwd->getId() == $defaults->{'id'}, "Get default 'id' from getter");
ok ($kwi->{'id'} == $args->{'id'}, "Get 'id' from initialized object hash");
ok ($kwi->getId() == $args->{'id'}, "Get non-default 'id' from initialized getter");
ok ($kwd->setId($args->{'id'}), "Set 'id' with setter");
ok ($kwd->{'id'} == $args->{'id'}, "Get non-default 'id' from object hash");
ok ($kwd->getId() == $args->{'id'}, "Get non-default 'id' from getter");
$kwd->{'id'} = 'XYZ';
ok ($kwd->{'id'} == 'XYZ', "Manual set of 'id' attribute");
# priority
ok ($kwd->{'priority'} == $defaults->{'priority'}, "Get default 'priority' from object hash");
ok ($kwd->getPriority() == $defaults->{'priority'}, "Get default 'priority' from getter");
ok ($kwi->{'priority'} == $args->{'priority'}, "Get non-default 'priority' from object hash");
ok ($kwi->getPriority() == $args->{'priority'}, "Get non-default 'priority' from initialized getter");
ok ($kwd->setPriority($args->{'priority'}), "Set 'priority' with setter");
ok ($kwd->{'priority'} == $args->{'priority'}, "Get non-default 'priority' from object hash");
ok ($kwd->getPriority() == $args->{'priority'}, "Get non-default 'priority' from getter");
$kwd->{'priority'} = 0;
ok ($kwd->{'priority'} == 0, "Manual set of 'priority' attribute");
# debug - No getter or setter. This should be defined during 'new', but can be overwritten manually.
ok ($kwd->{'debug'} == $defaults->{'debug'}, "Get default 'debug' from object hash");
ok ($kwi->{'debug'} == $args->{'debug'}, "Get non-default 'debug' from object hash");
$kwd->{'debug'} = 1;
ok ($kwd->{'debug'} == 1, "Manual set of 'debug' attribute");
# singleOutfile - No getter or setter. This should be defined during 'new', but can be overwritten manually.
ok ($kwd->{'singleOutfile'} == $defaults->{'singleOutfile'}, "Get default 'singleOutfile' from object hash");
ok ($kwi->{'singleOutfile'} == $args->{'singleOutfile'}, "Get non-default 'singleOutfile' from object hash");
$kwd->{'singleOutfile'} = $args->{'singleOutfile'};
ok ($kwd->{'singleOutfile'} == $args->{'singleOutfile'}, "Manual set of 'singleOutfile' attribute");
# joinScores - No getter or setter. This should be defined during 'new', but can be overwritten manually.
ok ($kwd->{'joinScores'} == $defaults->{'joinScores'}, "Get default 'joinScores' from object hash");
ok ($kwi->{'joinScores'} == $args->{'joinScores'}, "Get non-default 'joinScores' from object hash");
$kwd->{'joinScores'} = $args->{'joinScores'};
ok ($kwd->{'joinScores'} == $args->{'joinScores'}, "Manual set of 'joinScores' attribute");
done_testing();