oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Move method_check test, and add more methods.

Browse source
This commit is contained in:
Colin Kuskie 2010-09-21 08:52:39 -07:00
parent a25e40d6a5
commit 0b0c95522c
1 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

22
t/tests/Test/WebGUI/Form/Control.pm
View file

@ -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;