Changeset 47 for LATMOS-Accounts

Timestamp:

04/25/09 10:52:12 (15 years ago)

Author:

nanardon

Message:

• test syncronisation results

File:

• LATMOS-Accounts/t/25_la_synchro.t (modified) (2 diffs)

LATMOS-Accounts/t/25_la_synchro.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 8;
+use Test::More tests => 15;
 use File::Temp;
 use File::Path;
@@ -46 +46 @@
 ok($synchro->process, "process get succefull");
 
+ok(my $unixb = LATMOS::Accounts::Bases->new(
+        'unix',
+        passwd  => "$workdir/passwd",
+        shadow  => "$workdir/shadow",
+        group   => "$workdir/group",
+        gshadow => "$workdir/gshadow",
+    ), "Can get unix base");
+isa_ok($unixb, 'LATMOS::Accounts::Bases::Unix');
+ok($unixb->load,   "Can load unix base");
+
+{
+ok(my $user =  $unixb->get_object('user', 'bin'),  "Can get bin user");
+is($user->get_c_field('homeDirectory'), '/bin', 'Can get homeDirectory directory');
+}
+{
+ok(my $user =  $unixb->get_object('user', 'adm'),  "Can get adm user");
+is($user->get_field('gecos'), 'adm', 'Can get home directory');
+}
+
 rmtree($workdir);