From 3abd3988c7bd7ecd2d4569b7c00ac9df6cb93583 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 25 Apr 2008 23:18:55 +0000
Subject: [PATCH] Update this test for the new API.  Note that Captcha, Asset,
 User, Color and some other form fields are now profile enabled.

---
 t/Form/ProfileEnabled.t | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/t/Form/ProfileEnabled.t b/t/Form/ProfileEnabled.t
index 8dc171bcb..fb5321c83 100644
--- a/t/Form/ProfileEnabled.t
+++ b/t/Form/ProfileEnabled.t
@@ -18,7 +18,7 @@ use WebGUI::Form::DynamicField;
 use WebGUI::Session;
 use WebGUI::Utility;
 
-#The goal of this test is to verify that the profileEnabled setting
+#The goal of this test is to verify that the isDynamicCompatible setting
 #works on all form elements and that only the correct forms are profile
 #enabled.
 
@@ -40,16 +40,16 @@ $numTests = scalar @formTypes + 1;
 plan tests => $numTests;
 
 
-my @notEnabled = qw/Asset Button Captcha Checkbox Color Control List MimeType SubscriptionGroup Slider Submit User Attachments/;
+my @notEnabled = qw/Button Control List MimeType SubscriptionGroup Slider Submit Attachments/;
 
 foreach my $formType (@formTypes) {
 	my $form = WebGUI::Form::DynamicField->new($session, fieldType => $formType);
 	my $ref = (split /::/, ref $form)[-1];
 	if (isIn($ref, @notEnabled)) {
-		ok(!$form->get('profileEnabled'), " $ref should not be profile enabled");
+		ok(!$form->isDynamicCompatible, " $ref should not be profile enabled");
 	}
 	else {
-		ok($form->get('profileEnabled'), "$ref should be profile enabled");
+		ok($form->isDynamicCompatible, "$ref should be profile enabled");
 	}
 }
 
@@ -57,4 +57,4 @@ foreach my $formType (@formTypes) {
 ##an object of type Text!
 my $form = WebGUI::Form::DynamicField->new($session);
 
-ok($form->get('profileEnabled'), 'DynamicField lies about being profile enable');
+ok($form->isDynamicCompatible, 'DynamicField lies about being profile enable');