[305] | 1 | use strict; |
---|
| 2 | use warnings; |
---|
| 3 | use Test::More tests => 16; |
---|
| 4 | use File::Temp; |
---|
| 5 | |
---|
| 6 | use_ok('LATMOS::Accounts::Bases'); |
---|
| 7 | use_ok('LATMOS::Accounts::Bases::Objects'); |
---|
| 8 | use_ok('LATMOS::Accounts::Bases::Mail'); |
---|
| 9 | use_ok('LATMOS::Accounts::Bases::Mail::Aliases'); |
---|
| 10 | use_ok('LATMOS::Accounts::Bases::Mail::Revaliases'); |
---|
| 11 | |
---|
| 12 | my $dir = File::Temp::tempdir; |
---|
| 13 | |
---|
| 14 | foreach (qw(aliases revaliases)) { |
---|
| 15 | system('cp', "testdata/$_", "$dir/$_"); |
---|
| 16 | } |
---|
| 17 | |
---|
| 18 | ok(my $mailb = LATMOS::Accounts::Bases->new( |
---|
| 19 | 'mail', |
---|
| 20 | aliases => "$dir/aliases", |
---|
| 21 | revaliases => "$dir/revaliases", |
---|
| 22 | ), "Can get mail base"); |
---|
| 23 | |
---|
| 24 | isa_ok($mailb, 'LATMOS::Accounts::Bases'); |
---|
| 25 | isa_ok($mailb, 'LATMOS::Accounts::Bases::Mail'); |
---|
| 26 | ok($mailb->load, "Can load mail base"); |
---|
| 27 | |
---|
| 28 | is( $mailb->get_field_name('aliases', 'forward'), "forward", "can call get_field_name"); |
---|
| 29 | |
---|
| 30 | ok(my $alias = $mailb->get_object('aliases', 'name'), "Can get root user"); |
---|
| 31 | ok(my $revaliases = $mailb->get_object('revaliases', 'name'), "Can get root group"); |
---|
| 32 | |
---|
| 33 | is($alias->get_c_field('forward'), 'to', 'Can get aliases'); |
---|
| 34 | |
---|
| 35 | ok($mailb->create_object('aliases', 'admin', |
---|
| 36 | forward => 'root' |
---|
| 37 | ), "Can create an aliases"); |
---|
| 38 | |
---|
| 39 | ok($mailb->commit, "Can save mail base"); |
---|
| 40 | |
---|
| 41 | ok(my $mailbmod = LATMOS::Accounts::Bases->new( |
---|
| 42 | 'mail', |
---|
| 43 | aliases => "$dir/aliases", |
---|
| 44 | revaliases => "$dir/revaliases", |
---|
| 45 | ), "Can get mail base"); |
---|
| 46 | |
---|
| 47 | system('rm', '-fr', $dir); |
---|