Changeset 1406

Timestamp:

08/31/15 18:54:45 (9 years ago)

Author:

nanardon

Message:

Fix SynchAccess? tests

Location:

trunk/LATMOS-Accounts

Files:

• lib/LATMOS/Accounts.pm (modified) (3 diffs)
• lib/LATMOS/Accounts/Bases/Unix.pm (modified) (4 diffs)
• t/26_la_synchaccess.t (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts.pm

@@ -137 +137 @@
     my ($self, $section) = @_;
     my $type = $self->val($section, 'type') or return;
+    la_log(LA_DEBUG, "Trying to load base %s", $section);
 
     my %params =
@@ -161 +162 @@
         return;
     };
-    $base->load or return;
+    $base->load or do {
+        la_log(LA_ERR, "%s didn't load", $base->label);
+        return;
+    };
     $base;
 }
@@ -268 +272 @@
         );
     }
+    warn @obases;
 
     if (!@obases) {

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix.pm

@@ -127 +127 @@
             $self->{users}{$user}{_id} = $user;
         },
-    ) or return;
+    ) or do {
+        $self->log(LA_ERR, "Cannot parse %s", $self->{passwd});
+        return;
+    };
     
     $self->_load_unix_file(
@@ -145 +148 @@
             }
         }
-    ) or return;
+    ) or do {
+        $self->log(LA_ERR, "Cannot parse %s", $self->{group});
+        return;
+    };
 
     # Post processing group for split group because nis
@@ -177 +183 @@
             }
         }
-    ) or return;
+    ) or do {
+        $self->log(LA_ERR, "Cannot parse %s", $self->{shadow});
+        return;
+    };
 
     $self->_load_unix_file(
@@ -193 +202 @@
             }
         }
-    ) or return;
+    ) or do {
+        $self->log(LA_ERR, "Cannot parse %s", $self->{gshadow});
+        return;
+    };
 
     } # use shadow ?

trunk/LATMOS-Accounts/t/26_la_synchaccess.t

@@ -22 +22 @@
 $config->newval('dest', 'use_shadow', 1);
 $config->newval('source', 'push', 'dest');
+
+$config->AddSection('_default_');
+$config->newval('_default_', 'sync', 'main');
+$config->AddSection('sync:main');
+$config->newval('sync:main', 'from', 'source');
+$config->newval('sync:main', 'to', 'dest');
 
 foreach my $dir (qw(source dest)) {