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

Form/* now all use getOriginalValue and getDefaultValue. This resolves the Layout bug where all the check lists could not be unchecked. Tests were updated, but still need a major overhaul.

Browse source
This commit is contained in:
Kaleb Murphy 2008-08-08 14:52:53 +00:00
parent 96b7047d22
commit 173c2a12cd
42 changed files with 173 additions and 76 deletions
Download patch file Download diff file Expand all files Collapse all files

12
t/Form/CheckList.t
View file

@ -32,7 +32,7 @@ my $session = WebGUI::Test->session;
my $formClass = 'WebGUI::Form::CheckList';
my $formType = 'Checkbox';
my $numTests = 15;
my $numTests = 20;
plan tests => $numTests;
@ -99,3 +99,13 @@ is( $inputs[0]->{value},
WebGUI::International->new($session,"Form_CheckList")->get("selectAll label"),
'The value is internationalized'
);
my $cl = WebGUI::Form::CheckList->new($session, {defaultValue => 'default'});
is($cl->getValue(),'default','Check getvalue with null returns default value');
is($cl->getValue("value"), "value", "Check getValue returns a value");
$cl->set('value',"original");
is($cl->getDefaultValue(), "default", "Check getDefaultValue returns the default value");
my $c2 = WebGUI::Form::CheckList->new($session, {defaultValue => 'default'});
is($c2->getOriginalValue(), "default", "Get original value returns the default value");
$c2->set('value',"original");
is($c2->getOriginalValue(), "original", "Get original value return original value");