Changeset 1028

Timestamp:

05/29/12 19:24:50 (12 years ago)

Author:

nanardon

Message:

• more live test for sql base

Location:

trunk/LATMOS-Accounts

Files:

• MANIFEST (modified) (1 diff)
• live-test/10_sql.t (modified) (1 diff, 1 prop)
• live-test/common.pl (added)

trunk/LATMOS-Accounts/MANIFEST

@@ -161 +161 @@
 live-test/10_sql.t
 live-test/config.pl.sample
+live-test/common.pl

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

@@ +1 @@
+# -*- indent-tabs-mode: nil; tab-width: 4; -*-
+# vim:ft=perl:et:sw=4
+# $Id$
+
 use strict;
 use warnings;
-use Test::More tests => 4;
+use Test::More;
 use FindBin qw($Bin);
 
-require "$Bin/config.pl";
+require "$Bin/common.pl";
+eval "require '$Bin/config.pl'";
 
-plan skip_all => 'No SQL base defined' unless $LA::T::SQLBASE;
+if ($@) {
+    plan skip_all => 'no config found' if ($@);
+} elsif (!$LA::T::SQLBASE) {
+    plan skip_all => 'No SQL base defined';
+} else {
+    plan tests => 16; # Number of test
+}
 
 use_ok('LATMOS::Accounts');
 use_ok('LATMOS::Accounts::Bases::Sql');
 
-ok(my $la = LATMOS::Accounts->new, "Can get LATMOS::Accounts");
+ok(my $la = LATMOS::Accounts->new(undef, noacl => 1), "Can get LATMOS::Accounts");
 ok(my $base = $la->base($LA::T::SQLBASE), "can get SQL base $LA::T::SQLBASE");
 
+{ # test: user
+my $oid = genid();
+
+use_ok('LATMOS::Accounts::Bases::Sql::User');
+ok($base->create_c_object('user', $oid,
+    sn => "snUser",
+    givenName => "givenNameUser",
+    ), "Can create user $oid");
+ok(my $obj = $base->get_object('user', $oid), "user $oid is actually deleted");
+is($obj->get_attributes('sn'), "snUser");
+
+ok($base->delete_object('user', $oid), "Can delete user $oid");
+ok(!$base->get_object('user', $oid), "user $oid is actually deleted");
+}
+
+
+{ # test: user
+my $oid = genid();
+
+use_ok('LATMOS::Accounts::Bases::Sql::Group');
+ok($base->create_c_object('group', $oid,
+    description => 'Group Test'
+), "Can create group $oid");
+ok(my $obj = $base->get_object('group', $oid), "group $oid is actually deleted");
+is($obj->get_attributes('description'), "Group Test");
+
+ok($base->delete_object('group', $oid), "Can delete group $oid");
+ok(!$base->get_object('group', $oid), "group $oid is actually deleted");
+}