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

fixing tests for Form changes

Browse source
This commit is contained in:
Graham Knop 2009-01-28 16:39:38 +00:00
parent 744751a86f
commit 2bc81f7757
3 changed files with 27 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

10
t/Shop/PayDriver.t
View file

@ -286,7 +286,7 @@ my @forms = HTML::Form->parse($html, 'http://www.webgui.org');
is (scalar @forms, 1, 'getEditForm generates just 1 form');
my @inputs = $forms[0]->inputs;
is (scalar @inputs, 11, 'getEditForm: the form has 11 controls');
is (scalar @inputs, 13, 'getEditForm: the form has 13 controls');
my @interestingFeatures;
foreach my $input (@inputs) {
@ -334,6 +334,10 @@ cmp_deeply(
name => 'groupToUse',
type => 'option',
},
{
name => '__groupToUse_isIn',
type => 'hidden',
},
{
name => 'receiptEmailTemplateId',
type => 'option',
@ -342,6 +346,10 @@ cmp_deeply(
name => 'saleNotificationGroupId',
type => 'option',
},
{
name => '__saleNotificationGroupId_isIn',
type => 'hidden',
},
],
'getEditForm made the correct form with all the elements'