From cb1b91d3be6d14780782f7d3fbeab5f1da4c00b2 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 19 Mar 2008 18:50:07 +0000
Subject: [PATCH] add a test for buildDataTableStructure

---
 t/SQL.t | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/t/SQL.t b/t/SQL.t
index c6a47bdf0..e780696d4 100644
--- a/t/SQL.t
+++ b/t/SQL.t
@@ -17,7 +17,7 @@ use WebGUI::Session;
 use Data::Dumper;
 use Test::Deep;
 
-use Test::More tests => 52; # increment this value for each test you create
+use Test::More tests => 53; # increment this value for each test you create
 
 my $session = WebGUI::Test->session;
 
@@ -263,6 +263,25 @@ $hrefHref = $session->db->buildHashRefOfHashRefs('select message, myIndex from t
 		grep { $_->[2] eq 'B' } @tableData;
 cmp_deeply($hrefHref, \%expected, 'buildHashRefOfHashRefs, 2 columns, 1 param');
 
+#######################################################################
+#
+# buildDataTableStructure
+#
+#######################################################################
+
+my %tableStruct = $session->db->buildDataTableStructure('select * from testTable');
+
+my @hashedTableData = map { { myIndex=>$_->[0], message=>$_->[1], myKey=>$_->[2]} } @tableData;
+
+cmp_deeply(
+    \%tableStruct,
+    {
+        totalRecords    => 8,
+        recordsReturned => 8,
+        records         => \@hashedTableData,
+    },
+    'Check table structure',
+);
 
 END: {
     $session->db->dbh->do('DROP TABLE IF EXISTS testTable');