Context Navigation

10_bases.t @ 103

Visit:

Last change on this file since 103 was 103, checked in by nanardon, 15 years ago
rename list_canonicals_fields to list_canonical_fields
File size: 869 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_canonical_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.