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

update PayDriver to match new module code

Browse source
This commit is contained in:
Colin Kuskie 2008-04-23 03:39:54 +00:00
parent 20a2bba8a4
commit 473cef2483
1 changed files with 28 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

34
t/Shop/PayDriver.t
View file

@ -91,11 +91,25 @@ cmp_deeply (
hoverHelp => ignore(), hoverHelp => ignore(),
defaultValue => 1, defaultValue => 1,
}, },
receiptMessage => { receiptEmailTemplateId => {
fieldType => 'text', fieldType => 'template',
label => ignore(), label => ignore(),
hoverHelp => ignore(), hoverHelp => ignore(),
defaultValue => undef, defaultValue => '',
namespace => 'Shop/ReceiptEmail',
},
saleNotificationTemplateId => {
fieldType => 'template',
label => ignore(),
hoverHelp => ignore(),
defaultValue => '',
namespace => 'Shop/SaleEmail',
},
saleNotificationGroupId => {
fieldType => 'group',
label => ignore(),
hoverHelp => ignore(),
defaultValue => 3,
}, },
} }
} ], } ],
@ -299,7 +313,7 @@ my @forms = HTML::Form->parse($html, 'http://www.webgui.org');
is (scalar @forms, 1, 'getEditForm generates just 1 form'); is (scalar @forms, 1, 'getEditForm generates just 1 form');
my @inputs = $forms[0]->inputs; my @inputs = $forms[0]->inputs;
is (scalar @inputs, 10, 'getEditForm: the form has 10 controls'); is (scalar @inputs, 12, 'getEditForm: the form has 10 controls');
my @interestingFeatures; my @interestingFeatures;
foreach my $input (@inputs) { foreach my $input (@inputs) {
@ -348,8 +362,16 @@ cmp_deeply(
type => 'option', type => 'option',
}, },
{ {
name => 'receiptMessage', name => 'receiptEmailTemplateId',
type => 'text', type => 'option',
},
{
name => 'saleNotificationTemplateId',
type => 'option',
},
{
name => 'saleNotificationGroupId',
type => 'option',
}, },
], ],
'getEditForm made the correct form with all the elements' 'getEditForm made the correct form with all the elements'