Changeset 1793 for trunk/LATMOS-Accounts/live-test/10_sql.t

Timestamp:

06/27/16 18:37:55 (8 years ago)

Author:

nanardon

Message:

Add live test for search_objects()

File:

• trunk/LATMOS-Accounts/live-test/10_sql.t (modified) (6 diffs)

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

@@ -18 +18 @@
     plan skip_all => 'No SQL base defined';
 } else {
-    plan tests => 45; # Number of test
+    plan tests => 65; # Number of test
 }
 
@@ -48 +48 @@
 }
 
+$base->rollback;
 
 { # test: group
@@ -62 +63 @@
 ok(!$base->get_object('group', $oid), "group $oid is actually deleted");
 }
+
+$base->rollback;
 
 { # test: nethost
@@ -80 +83 @@
 }
 
+$base->rollback;
+
 { # test: netzone
 my $oid = genid();
@@ -95 +100 @@
 }
 
+$base->rollback;
+
 { # test employment
 use_ok('LATMOS::Accounts::Bases::Sql::Employment');
@@ -162 +169 @@
 ok($base->delete_object('user', $empUser), "Deleting user $empUser");
 }
+
+$base->rollback;
+
+{ 
+    diag('Testing search');
+ 
+    ok($base->create_c_object('user', 'searchuaa',
+        sn => "Lastnamea",
+        givenName => "Firstnamea",
+        ), "Can create user searchuaa");
+    ok($base->create_c_object('user', 'searchuna',
+        sn => "Lastnamea",
+        ), "Can create user searchuna");
+    ok($base->create_c_object('user', 'searchuab',
+        sn => "Lastnamea",
+        givenName => "Firstnameb",
+        ), "Can create user searchuab");
+    ok($base->create_c_object('user', 'searchuba',
+        sn => "Lastnameb",
+        givenName => "Firstnamea",
+        ), "Can create user searchuba");
+    ok($base->create_c_object('user', 'searchubb',
+        sn => "Lastnameb",
+        givenName => "Firstnameb",
+        ), "Can create user searchubb");
+    ok($base->create_c_object('group', 'searchga',
+            member => [ 'searchuaa', 'searchuba' ],
+        ), "Can create group searchga");
+    ok($base->create_c_object('group', 'searchgb',
+            member => [ 'searchuab', 'searchuba' ],
+        ), "Can create group searchgb");
+
+    ok(eq_set(
+        [ $base->search_objects('user', 'givenName=Firstnamea') ],
+        [ 'searchuaa', 'searchuba' ]
+    ), 'Can search on single attribute');
+    ok(eq_set(
+        [ $base->search_objects('user', 'givenName=Firstnamea',
+            'givenName=Firstnameb') ],
+        [ 'searchuaa', 'searchuba', 'searchuab', 'searchubb' ]
+    ), 'Can search on single attribute with 2 values');
+    ok(eq_set(
+        [ $base->search_objects('user', 'givenName=Firstnamea||Firstnameb') ],
+        [ 'searchuaa', 'searchuba', 'searchuab', 'searchubb' ]
+    ), 'Can search on single attribute with 2 values using ||');
+    ok(eq_set(
+        [ $base->search_objects('user', 'givenName=Firstnamea', 'sn=Lastnamea') ],
+        [ 'searchuaa' ]
+    ), 'Can search on 2 attributes');
+    ok(eq_set(
+        [ $base->search_objects('user', 'givenName=NULL', 'sn=Lastnamea') ],
+        [ 'searchuna' ]
+    ), 'Can search on NULL attributes');
+    ok(eq_set(
+        [ $base->search_objects('user', 'memberOf=searchga&&searchgb') ],
+        [ 'searchuba' ],
+    ), "Search using && with two values");
+    ok(eq_set(
+        [ $base->search_objects('group', 'member.givenName=Firstnameb') ],
+        [ 'searchgb' ],
+    ), "Search using recursive search");
+    ok(eq_set(
+        [ $base->search_objects('user', 'givenName~nameb') ],
+        [ 'searchuab', 'searchubb' ]
+    ), 'Can search using ~ operator');
+
+    ok($base->delete_object('user', 'searchuaa'), "deleting user searchuaa");
+    ok($base->delete_object('user', 'searchuna'), "deleting user searchuna");
+    ok($base->delete_object('user', 'searchuba'), "deleting user searchuba");
+    ok($base->delete_object('user', 'searchuab'), "deleting user searchuab");
+    ok($base->delete_object('user', 'searchubb'), "deleting user searchubb");
+}
+
+$base->rollback;