Changeset 8 for LATMOS-Accounts

Timestamp:

02/27/09 22:03:36 (15 years ago)

Author:

nanardon

Message:

• add set_fields functions, add tests

Location:

LATMOS-Accounts

Files:

• lib/LATMOS/Accounts/Bases/Dummy/User.pm (modified) (2 diffs)
• lib/LATMOS/Accounts/Bases/Objects.pm (modified) (1 diff)
• t/10_bases.t (modified) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Dummy/User.pm

@@ -7 +7 @@
 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0];
 
+my %fields_map = (
+    username => 'username',
+    homeDirectory => 'home',
+);
+
 sub new {
     my ($class, $base, $id) = @_;
@@ -12 +17 @@
 }
 
+sub _canonical_fields {
+    my ($self) = @_;
+    return keys %fields_map;
+}
+
+sub _get_field_name {
+    my ($self, $field) = @_;
+    warn $field;
+    return $fields_map{$field};
+}
+
 1;

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -77 +77 @@
 }
 
+=head2 set_fields(%data)
+
+Set values for this object. %data is a list or peer field => values.
+
+=cut
+
+sub set_fields {
+    return;
+}
+
+=head2 set_fields(%data)
+
+Set values for this object. %data is a list or peer 
+canonical field => values. Fields names are translated.
+
+=cut
+
+sub set_c_fields {
+    my ($self, %cdata) = @_;
+    my %data;
+    foreach my $field (keys %cdata) {
+        my $cfield = $self->base->get_field_name($self->type, $field) or next;
+        $data{$cfield} = $cdata{$field};
+    }
+    keys %data or return 1; # TODO: return an error ?
+    $self->set_fields(%data);
+}
+
 1;
 

LATMOS-Accounts/t/10_bases.t

@@ -16 +16 @@
 isa_ok($user, 'LATMOS::Accounts::Bases::Dummy::User');
 
-ok(eq_set([ $dummyb->list_canonicals_fields('user') ], []), "Can get canonicals fields");
-ok(!defined( $dummyb->get_field_name('any') ), "can call get_fields_name");
+ok(eq_set(
+    [ $dummyb->list_canonicals_fields('user') ],
+    [qw(username homeDirectory) ],
+), "Can get canonicals fields");
+is( $dummyb->get_field_name('user', 'homeDirectory'), "home", "can call get_fields_name");
 ok(!$dummyb->is_transactionnal, 'Dummy driver is not transactionnal');