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

Timestamp:

05/30/12 23:09:16 (12 years ago)

Author:

nanardon

Message:

• more test for sql base

File:

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

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

@@ -16 +16 @@
     plan skip_all => 'No SQL base defined';
 } else {
-    plan tests => 16; # Number of test
+    plan tests => 32; # Number of test
 }
 
@@ -36 +36 @@
 is($obj->get_attributes('sn'), "snUser");
 
+my $passwd = genid();
+ok($obj->set_password($passwd), "Can set password");
+ok($base->authenticate_user($oid, $passwd), "can authenticate user");
+ok(!$base->authenticate_user($oid, '----'),
+    "don't authenticate with invalid password");
+
 ok($base->delete_object('user', $oid), "Can delete user $oid");
 ok(!$base->get_object('user', $oid), "user $oid is actually deleted");
@@ -41 +47 @@
 
 
-{ # test: user
+{ # test: group
 my $oid = genid();
 
@@ -54 +60 @@
 ok(!$base->get_object('group', $oid), "group $oid is actually deleted");
 }
+
+{ # test: nethost
+my $oid = genid();
+
+use_ok('LATMOS::Accounts::Bases::Sql::Nethost');
+ok($base->create_c_object('nethost', $oid,
+    description => 'Nethost Test',
+    ip => '255.255.255.255', # widely improbable to conflict with existing one
+), "Can create nethost $oid");
+ok(my $obj = $base->get_object('nethost', $oid), "nethost $oid is actually deleted");
+is($obj->get_attributes('description'), "Nethost Test");
+is($obj->get_attributes('ip'), '255.255.255.255');
+
+ok($base->delete_object('nethost', $oid), "Can delete nethost $oid");
+ok(!$base->get_object('nethost', $oid), "nethost $oid is actually deleted");
+}
+
+{ # test: netzone
+my $oid = genid();
+
+use_ok('LATMOS::Accounts::Bases::Sql::Netzone');
+ok($base->create_c_object('netzone', $oid,
+    description => 'Netzone Test',
+    type => 'dhcp',
+), "Can create netzone $oid");
+ok(my $obj = $base->get_object('netzone', $oid), "netzone $oid is actually deleted");
+is($obj->get_attributes('description'), "Netzone Test");
+
+ok($base->delete_object('netzone', $oid), "Can delete netzone $oid");
+ok(!$base->get_object('netzone', $oid), "netzone $oid is actually deleted");
+}