Changeset 14 for LATMOS-Accounts

Timestamp:

03/03/09 01:30:24 (15 years ago)

Author:

nanardon

Message:

• test get/set fields

File:

• LATMOS-Accounts/t/11_bases_unix.t (modified) (2 diffs)

LATMOS-Accounts/t/11_bases_unix.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 14;
+use Test::More tests => 20;
 use File::Temp;
 
@@ -32 +32 @@
 ok(my $group = $unixb->get_object('group', 'root'), "Can get root group");
 
-is($user->get_c_field('homeDirectory'), '/root', 'Can get home directory');
+is($user->get_c_field('homeDirectory'), '/root', 'Can get homeDirectory directory');
+is($user->get_field('home'), '/root', 'Can get home directory');
+
+is($user->get_field('shell'), '/bin/bash', 'Can get login shell');
+ok($user->set_fields(shell => '/bin/tcsh'), "Can set login shell");
+is($user->get_field('shell'), '/bin/tcsh', 'Can get modified login shell');
 
 ok($unixb->commit, "Can save unix base");
 
+
+ok(my $unixbmod = LATMOS::Accounts::Bases->new(
+    'unix',
+    passwd  => "$dir/passwd",
+    shadow  => "$dir/shadow",
+    group   => "$dir/group",
+    gshadow => "$dir/gshadow",
+    ), "Can get unix base");
+is($user->get_field('shell'), '/bin/tcsh', 'Can get modified login shell');
+
+
 system('rm', '-fr', $dir);