Changeset 1803

Timestamp:

06/28/16 16:40:49 (8 years ago)

Author:

nanardon

Message:

Add test on search

Location:

trunk/LATMOS-Accounts

Files:

• lib/LATMOS/Accounts.pm (modified) (1 diff)
• lib/LATMOS/Accounts/Bases/Sql/objects.pm (modified) (1 diff)
• live-test/10_sql.t (modified) (3 diffs)

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

@@ -12 +12 @@
 use LATMOS::Accounts::I18N;
 
-our $VERSION = '5.1.23';
+our $VERSION = '5.1.24';
 
 =head1 NAME

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

@@ -817 +817 @@
         my @results = $class->_search_uniq_filter($base, $attr, $operator, $val);
 
-        $results->{$attr} = {};
+        $results->{$attr} ||= {};
         $results->{$attr}{$_} = 1 foreach (@results) 
     }

trunk/LATMOS-Accounts/live-test/10_sql.t

@@ -18 +18 @@
     plan skip_all => 'No SQL base defined';
 } else {
-    plan tests => 65; # Number of test
+    plan tests => 66; # Number of test
 }
 
@@ -207 +207 @@
     ), 'Can search on single attribute');
     ok(eq_set(
-        [ $base->search_objects('user', 'givenName=Firstnamea',
-            'givenName=Firstnameb') ],
-        [ 'searchuaa', 'searchuba', 'searchuab', 'searchubb' ]
+        [ $base->search_objects('user', 'givenName=Firstnamea', 'givenName=Firstnameb') ],
+        [ 'searchuaa', 'searchuab', 'searchuba', 'searchubb' ]
     ), 'Can search on single attribute with 2 values');
     ok(eq_set(
@@ -219 +218 @@
         [ 'searchuaa' ]
     ), 'Can search on 2 attributes');
+    ok(! $base->search_objects('user', 'givenName=Firstnamea', 'sn=NoName'), 'Can search on 2 attributes, one return nothing');
     ok(eq_set(
         [ $base->search_objects('user', 'givenName=NULL', 'sn=Lastnamea') ],