From 9dd0ef263ab213b5b34ca926cac8fb4000e39767 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 15 Jan 2006 05:19:47 +0000
Subject: [PATCH] update to new API

---
 t/FormGetName.t | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/t/FormGetName.t b/t/FormGetName.t
index b343ef3d6..e88224e3f 100644
--- a/t/FormGetName.t
+++ b/t/FormGetName.t
@@ -14,6 +14,8 @@ use lib '../lib';
 use Getopt::Long;
 use WebGUI::Form::FieldType;
 use WebGUI::Form::DynamicField;
+use WebGUI::Session;
+use Data::Dumper;
 # ---- END DO NOT EDIT ----
 
 #The goal of this test is to verify that getName works with all Form types.
@@ -32,9 +34,7 @@ my $session = initialize();  # this line is required
 
 diag("Getting the list of all Form types\n");
 
-my $fieldType = WebGUI::Form::FieldType->new();
-
-my @formTypes = @{ $fieldType->{types} };
+my @formTypes = sort @{ WebGUI::Form::FieldType->getTypes($session) };
 
 ##We have to remove DynamicField from this list, since when you call new
 ##it wants to return a type.  We'll check it manually.
@@ -45,14 +45,14 @@ plan tests => $numTests;
 
 diag("Planning on running $numTests tests\n");
 
-foreach my $formType (sort @formTypes) {
-	my $form = WebGUI::Form::DynamicField->new(fieldType => $formType);
+foreach my $formType (@formTypes) {
+	my $form = WebGUI::Form::DynamicField->new($session, fieldType => $formType);
 	my $ref = (split /::/, ref $form)[-1];
 	is($ref, $formType, "checking form type $formType");
-	ok($form->getName, sprintf "form getName = %s", $form->getName);
+	ok($form->getName($session), sprintf "form getName = %s", $form->getName($session));
 }
 
-my $name = WebGUI::Form::DynamicField->getName();
+my $name = WebGUI::Form::DynamicField->getName($session);
 
 ok($name, 'did not inherit default form name');