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

Timestamp:

12/21/16 15:07:28 (7 years ago)

Author:

nanardon

Message:

Merge branch

File:

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

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

@@ -18 +18 @@
     plan skip_all => 'No SQL base defined';
 } else {
-    plan tests => 75; # Number of test
+    plan tests => 90; # Number of test
 }
 
@@ -47 +47 @@
 ok($base->delete_object('user', $oid), "Can delete user $oid");
 ok(!$base->get_object('user', $oid), "user $oid is actually deleted");
+}
+
+$base->rollback;
+
+{ # test alias
+
+my $oid = genid();
+
+ok($base->create_c_object('user', $oid,
+    sn => "snUser",
+    givenName => "givenNameUser",
+    expire => undef,
+    ), "Can create user $oid");
+ok(my $realobj = $base->get_object('user', $oid), "user $oid is actually created");
+
+my $aliasoid = genid();
+
+ok($base->CreateAlias('user', $aliasoid, $oid), "Can create alias object");
+
+ok(my $obj = $base->get_object('user', $aliasoid), "Can get object trought alias");
+is($obj->get_attributes('sn'), 'snUser');
+
+ok(my $aobj = $base->GetAlias('user', $aliasoid), "Can get alias object");
+
+is($aobj->get_attributes('oalias'), $oid);
+
+my $oidsub = genid();
+ok($base->create_c_object('user', $oidsub,
+    sn => "snUserSub",
+    givenName => "givenNameSub",
+    expire => undef,
+    ), "Can create user $oid");
+ok(my $subobj = $base->get_object('user', $oidsub), "user $oidsub is actually created");
+
+$subobj->set_c_fields(
+    managerContact => $aliasoid,
+);
+
+is($subobj->get_c_field('manager'), $aliasoid, "Can get ref manager");
+is($subobj->GetAttributeValue('manager'), $oid, "Can get ref manager via GetAttributeValue");
+
+ok(eq_set(
+        [ $base->search_objects('user', 'sn=snUser') ],
+        [ $oid, $aliasoid ]
+    ), 'Search retrieve alias');
+
+ok(eq_set(
+        [ $base->search_objects('user', 'sn=snUser', 'oalias=NULL') ],
+        [ $oid ]
+    ), 'Search with oalias=NULL don\'t retrieve alias');
+
+ok(eq_set(
+        [ $base->search_objects('user', 'sn=XXXXXXXXX') ],
+        [ ]
+    ), 'Search with no result don\'t retrieve alias');
+
+ok($base->RemoveAlias('user', $aliasoid), "Removing Alias");
 }