Last change
on this file since 517 was
103,
checked in by nanardon, 15 years ago
|
- rename list_canonicals_fields to list_canonical_fields
|
File size:
869 bytes
|
Rev | Line | |
---|
[3] | 1 | use strict; |
---|
| 2 | use warnings; |
---|
[7] | 3 | use Test::More tests => 13; |
---|
[3] | 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 | |
---|
[8] | 18 | ok(eq_set( |
---|
[103] | 19 | [ $dummyb->list_canonical_fields('user') ], |
---|
[8] | 20 | [qw(username homeDirectory) ], |
---|
| 21 | ), "Can get canonicals fields"); |
---|
| 22 | is( $dummyb->get_field_name('user', 'homeDirectory'), "home", "can call get_fields_name"); |
---|
[3] | 23 | ok(!$dummyb->is_transactionnal, 'Dummy driver is not transactionnal'); |
---|
Note: See
TracBrowser
for help on using the repository browser.