Rev | Line | |
---|
[1036] | 1 | # -*- indent-tabs-mode: nil; tab-width: 4; -*- |
---|
| 2 | # vim:ft=perl:et:sw=4 |
---|
| 3 | # $Id$ |
---|
| 4 | |
---|
| 5 | use strict; |
---|
| 6 | use warnings; |
---|
| 7 | use Test::More; |
---|
| 8 | use FindBin qw($Bin); |
---|
| 9 | |
---|
| 10 | require "$Bin/common.pl"; |
---|
| 11 | eval "require '$Bin/config.pl'"; |
---|
| 12 | |
---|
| 13 | if ($@) { |
---|
| 14 | plan skip_all => 'no config found' if ($@); |
---|
| 15 | } elsif (!$LA::T::HEIMDALBASE) { |
---|
| 16 | plan skip_all => 'No heimdal base defined'; |
---|
| 17 | } else { |
---|
| 18 | plan tests => 10; # Number of test |
---|
| 19 | } |
---|
| 20 | |
---|
| 21 | use_ok('LATMOS::Accounts'); |
---|
| 22 | use_ok('LATMOS::Accounts::Bases::Heimdal'); |
---|
| 23 | |
---|
| 24 | ok(my $la = LATMOS::Accounts->new(undef, noacl => 1), "Can get LATMOS::Accounts"); |
---|
| 25 | ok(my $base = $la->base($LA::T::HEIMDALBASE), "can get Heimdal base $LA::T::HEIMDALBASE"); |
---|
| 26 | |
---|
| 27 | { # test: user |
---|
| 28 | my $oid = genid(); |
---|
| 29 | |
---|
| 30 | use_ok('LATMOS::Accounts::Bases::Heimdal::User'); |
---|
| 31 | ok($base->create_c_object('user', $oid, ), "Can create user $oid"); |
---|
| 32 | ok(my $obj = $base->get_object('user', $oid), "user $oid is actually deleted"); |
---|
| 33 | |
---|
| 34 | my $passwd = genid(); |
---|
| 35 | ok($obj->set_password($passwd), "Can set password"); |
---|
| 36 | |
---|
| 37 | ok($base->delete_object('user', $oid), "Can delete user $oid"); |
---|
| 38 | ok(!$base->get_object('user', $oid), "user $oid is actually deleted"); |
---|
| 39 | } |
---|
| 40 | |
---|
Note: See
TracBrowser
for help on using the repository browser.