From 96a1e1bb488282591b790d10164d2701e016252f Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 21 Sep 2010 08:52:39 -0700
Subject: [PATCH] Move method_check test, and add more methods.

---
 t/tests/Test/WebGUI/Form/Control.pm | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/t/tests/Test/WebGUI/Form/Control.pm b/t/tests/Test/WebGUI/Form/Control.pm
index c4d844781..b842ba68a 100644
--- a/t/tests/Test/WebGUI/Form/Control.pm
+++ b/t/tests/Test/WebGUI/Form/Control.pm
@@ -32,7 +32,16 @@ sub _constructor : Test(2) {
     isa_ok $form->session, 'WebGUI::Session';
 }
 
-sub t_00_get_set : Test(2) {
+sub t_00_method_check : Test(1) {
+    my $test    = shift;
+    my $session = $test->session;
+    my $form = $test->class->new($session);
+
+    can_ok $form, qw/get set headTags toHtml prepareWrapper toHtmlAsHidden toHtmlWithWrapper isInRequest isDynamicCompatible getName/;
+}
+
+
+sub t_01_get_set : Test(2) {
     my $test    = shift;
     my $session = $test->session;
 
@@ -43,7 +52,7 @@ sub t_00_get_set : Test(2) {
 
 }
 
-sub t_01_instanced : Test(1) {
+sub t_02_instanced : Test(1) {
     my $test    = shift;
     my $session = $test->session;
 
@@ -54,13 +63,4 @@ sub t_01_instanced : Test(1) {
     is $form->get('name'), 'form1', 'name set on instanciation';
 }
 
-sub t_02_method_check : Test(1) {
-    my $test    = shift;
-    my $session = $test->session;
-
-    my $form = $test->class->new($session);
-
-    can_ok $form, 'headTags';
-}
-
 1;