From 7990e0cc386f4401164370fcb7ef7bd62a50efc3 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 9 Mar 2008 04:33:24 +0000
Subject: [PATCH] Fix failing Shop/ShipDriver.t tests.  If the definition sub,
 fields was changed to properties, and getName is now a class method that
 requires a session variable.

---
 t/Shop/ShipDriver.t | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/t/Shop/ShipDriver.t b/t/Shop/ShipDriver.t
index 8bc7a080c..f3d64878f 100644
--- a/t/Shop/ShipDriver.t
+++ b/t/Shop/ShipDriver.t
@@ -72,7 +72,7 @@ cmp_deeply(
     $definition,
     [ {
         name => 'Shipper Driver',
-        fields => {
+        properties => {
             label => {
                 fieldType => 'text',
                 label => ignore(),
@@ -101,7 +101,7 @@ cmp_deeply(
         },
         {
             name => 'Shipper Driver',
-            fields => ignore(),
+            properties => ignore(),
         }
     ],
     ,
@@ -170,7 +170,6 @@ is($driver->className, ref $driver, 'className property set correctly');
 cmp_deeply($driver->options, $options, 'options accessor works');
 
 my $dbData = $session->db->quickHashRef('select * from shipper where shipperId=?',[$driver->shipperId]);
-diag $driver->shipperId;
 cmp_deeply(
     $dbData,
     {
@@ -187,7 +186,7 @@ cmp_deeply(
 #
 #######################################################################
 
-is ($driver->getName, 'Shipper Driver', 'getName returns the human readable name of this driver');
+is (WebGUI::Shop::ShipDriver->getName($session), 'Shipper Driver', 'getName returns the human readable name of this driver');
 
 #######################################################################
 #