Last change
on this file since 20 was
8,
checked in by nanardon, 15 years ago
|
- add set_fields functions, add tests
|
File size:
870 bytes
|
Line | |
---|
1 | use strict; |
---|
2 | use warnings; |
---|
3 | use Test::More tests => 13; |
---|
4 | |
---|
5 | use_ok('LATMOS::Accounts::Bases'); |
---|
6 | use_ok('LATMOS::Accounts::Bases::Objects'); |
---|
7 | use_ok('LATMOS::Accounts::Bases::Dummy'); |
---|
8 | use_ok('LATMOS::Accounts::Bases::Dummy::User'); |
---|
9 | |
---|
10 | ok(my $dummyb = LATMOS::Accounts::Bases->new('dummy'), "Can get dummy base"); |
---|
11 | isa_ok($dummyb, 'LATMOS::Accounts::Bases'); |
---|
12 | isa_ok($dummyb, 'LATMOS::Accounts::Bases::Dummy'); |
---|
13 | |
---|
14 | ok(my $user = $dummyb->get_object('user', 'foo'), "Can get user object"); |
---|
15 | isa_ok($user, 'LATMOS::Accounts::Bases::Objects'); |
---|
16 | isa_ok($user, 'LATMOS::Accounts::Bases::Dummy::User'); |
---|
17 | |
---|
18 | ok(eq_set( |
---|
19 | [ $dummyb->list_canonicals_fields('user') ], |
---|
20 | [qw(username homeDirectory) ], |
---|
21 | ), "Can get canonicals fields"); |
---|
22 | is( $dummyb->get_field_name('user', 'homeDirectory'), "home", "can call get_fields_name"); |
---|
23 | ok(!$dummyb->is_transactionnal, 'Dummy driver is not transactionnal'); |
---|
Note: See
TracBrowser
for help on using the repository browser.