source: trunk/LATMOS-Accounts/t/10_bases.t @ 2393

use strict;
use warnings;
use Test::More tests => 25;

use_ok('LATMOS::Accounts::Bases');
use_ok('LATMOS::Accounts::Bases::Objects');
use_ok('LATMOS::Accounts::Bases::Dummy');
use_ok('LATMOS::Accounts::Bases::Dummy::User');

ok(my $dummyb = LATMOS::Accounts::Bases->new('dummy'), "Can get dummy base");
isa_ok($dummyb, 'LATMOS::Accounts::Bases');
isa_ok($dummyb, 'LATMOS::Accounts::Bases::Dummy');

ok(my $user = $dummyb->get_object('user', 'foo'), "Can get user object");
isa_ok($user, 'LATMOS::Accounts::Bases::Objects');
isa_ok($user, 'LATMOS::Accounts::Bases::Dummy::User');

ok(eq_set(
    [ $dummyb->list_canonical_fields('user') ],
    [qw( username homeDirectory shell gecos uidNumber gidNumber ) ],
), "Can get canonicals fields");
is( $dummyb->attribute('user', 'homeDirectory')->iname, "home", "can call get_fields_name");
ok(!$dummyb->is_transactionnal, 'Dummy driver is not transactionnal');

ok($dummyb->create_c_object(
    'user', 'toto',
    homeDirectory => '/home/toto',
    ), "Can create object");
ok(!$dummyb->create_c_object('user', '1toto'), "Can't create object with wrong id");

ok(my $tuser = $dummyb->get_object('user', 'toto'), 'Can get user');
is($tuser->id, 'toto', 'Can get user id');
is($tuser->get_attributes('homeDirectory'), '/home/toto', 'Can get homeDirectory');


# Testing queryformat
is($tuser->queryformat('%{username}'), 'toto', 'qf %{username}');
is($tuser->queryformat('%{?username:IS}'), 'IS', 'qf %{?username}');
is($tuser->queryformat('%{?gidNumber:IS}'), '', 'qf %{?gidNumber}');
is($tuser->queryformat('%{?!username:IS}'), '', 'qf %{?!username}');
is($tuser->queryformat('%{?!gidNumber:IS NOT}'), 'IS NOT', 'qf %{?!gidNumber}');
is($tuser->queryformat('%{?homeDirectory:%{username}}'), 'toto', 'qf %{?username:%{}}');
is($tuser->queryformat('%{?homeDirectory:%{?username:IS}}'), 'IS', 'qf %{?username:%{?:IS}}');