Changeset 1910 for trunk/LATMOS-Accounts/live-test

Timestamp:

01/04/17 09:33:04 (7 years ago)

Author:

nanardon

Message:

Add some test, then fix some bugs

File:

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

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

@@ -20 +20 @@
     plan skip_all => 'No SQL base defined';
 } else {
-    plan tests => 90; # Number of test
+    plan tests => 102; # Number of test
 }
 
@@ -74 +74 @@
 
 is($aobj->get_attributes('oalias'), $oid);
+is($aobj->get_attributes('oaliascache'), $oid);
 
 my $oidsub = genid();
@@ -106 +107 @@
 
 ok($base->RemoveAlias('user', $aliasoid), "Removing Alias");
+ok(!$base->GetAlias('user', $aliasoid), "Cannot get removed alias object");
+
+$subobj->set_c_fields(
+    managerContact => $oid,
+);
+
+ok($base->CreateAlias('user', $aliasoid, "user.$oidsub.managerContact"), "Can create alias object");
+ok($aobj = $base->GetAlias('user', $aliasoid), "Can get alias object");
+is($aobj->get_attributes('oalias'), "user.$oidsub.managerContact");
+is($aobj->get_attributes('oaliascache'), $oid);
+
+ok($aobj->set_c_fields(oalias => $oidsub));
+is($aobj->get_attributes('oalias'), $oidsub);
+is($aobj->get_attributes('oaliascache'), $oidsub);
+
+ok($aobj->set_c_fields(oalias => "user.$oidsub.managerContact"));
+is($aobj->get_attributes('oalias'), "user.$oidsub.managerContact");
+is($aobj->get_attributes('oaliascache'), $oid);
+
 }