From 910e191fb435a8baae90760ed744d449a30f9656 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 3 Apr 2006 05:36:27 +0000
Subject: [PATCH] Add note to DatabaseLink->new that id 0 is reserved for
 WebGUI database. Build SQL table to be used in Group membership test

---
 lib/WebGUI/DatabaseLink.pm |  3 ++-
 t/Group.t                  | 16 +++++++++++++++-
 2 files changed, 17 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/DatabaseLink.pm b/lib/WebGUI/DatabaseLink.pm
index e90e94296..fb5060216 100644
--- a/lib/WebGUI/DatabaseLink.pm
+++ b/lib/WebGUI/DatabaseLink.pm
@@ -213,7 +213,8 @@ A reference to the current session.
 
 =head3 databaseLinkId
 
-The databaseLinkId of the databaseLink you're creating an object reference for. 
+The databaseLinkId of the databaseLink you're creating an object reference for.   databaseLinkId 0
+is reserved for the WebGUI database.
 
 =cut
 
diff --git a/t/Group.t b/t/Group.t
index 5b6ead305..20eccbc3b 100644
--- a/t/Group.t
+++ b/t/Group.t
@@ -18,7 +18,7 @@ use WebGUI::Utility;
 
 use WebGUI::User;
 use WebGUI::Group;
-use Test::More tests => 67; # increment this value for each test you create
+use Test::More tests => 68; # increment this value for each test you create
 use Test::Deep;
 
 my $session = WebGUI::Test->session;
@@ -186,6 +186,7 @@ $user->delete;
 ##Build a group of users and add them to various groups to test fetching users
 
 my @crowd = map { WebGUI::User->new($session, "new") } 0..7;
+my @mob = map { WebGUI::User->new($session, "new") } 0..2;
 
 my @bUsers = map { $_->userId } @crowd[0,1];
 my @aUsers = map { $_->userId } @crowd[2,3];
@@ -207,6 +208,18 @@ cmp_bag($gA->getUsers(1), [@aUsers, @zUsers, 3], 'users in group A, recursively'
 cmp_bag($gC->getUsers(1), [@cUsers, 3], 'users in group C, recursively');
 cmp_bag($gZ->getUsers(1), [@zUsers, 3], 'users in group Z, recursively');
 
+$session->db->dbh->do('DROP TABLE IF EXISTS myUserTable');
+$session->db->dbh->do(q!CREATE TABLE myUserTable (userId varchar(22) binary NOT NULL default '', PRIMARY KEY(userId)) TYPE=InnoDB!);
+
+my $sth = $session->db->prepare('INSERT INTO myUserTable VALUES(?)');
+foreach my $mob (@mob) {
+	$sth->execute([ $mob->userId ]);
+}
+
+my $mobUsers = $session->db->buildArrayRef('select userId from myUserTable');
+
+cmp_bag($mobUsers, [map {$_->userId} @mob], 'verify SQL table built correctly');
+
 END {
 	(defined $gX and ref $gX eq 'WebGUI::Group') and $gX->delete;
 	(defined $gY and ref $gY eq 'WebGUI::Group') and $gY->delete;
@@ -220,4 +233,5 @@ END {
 	foreach my $dude (@crowd) {
 		$dude->delete if (defined $dude and ref $dude eq 'WebGUI::User');
 	}
+	$session->db->dbh->do('DROP TABLE IF EXISTS myUserTable');
 }