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

Test default label handling.

Browse source
This commit is contained in:
Colin Kuskie 2010-09-30 10:45:54 -07:00
parent ee1e896ef8
commit be35b8afe4
2 changed files with 24 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/WebGUI/Shop/PayDriver.pm
View file

@ -62,6 +62,16 @@ property label => (
hoverHelp => ['label help', 'PayDriver'], hoverHelp => ['label help', 'PayDriver'],
default => "Credit Card", default => "Credit Card",
); );
around label => sub {
my $orig = shift;
my $self = shift;
if (@_ > 0) {
my $label = shift;
$label = $self->getName($self->session) if $label eq '' || lc($label) eq 'untitled';
unshift @_, $label;
}
$self->$orig(@_);
};
property enabled => ( property enabled => (
fieldType => 'yesNo', fieldType => 'yesNo',
label => ['enabled', 'PayDriver'], label => ['enabled', 'PayDriver'],
@ -476,7 +486,6 @@ sub getName {
WebGUI::Error::InvalidParam->throw(error => q{Must provide a session variable}) WebGUI::Error::InvalidParam->throw(error => q{Must provide a session variable})
unless ref $session eq 'WebGUI::Session'; unless ref $session eq 'WebGUI::Session';
my $definition = $class->meta->pluginName;
return WebGUI::International->new($session, 'Asset')->get(@{ $class->meta->pluginName }); return WebGUI::International->new($session, 'Asset')->get(@{ $class->meta->pluginName });
} }

15
t/Shop/PayDriver.t
View file

@ -133,6 +133,20 @@ is (WebGUI::Shop::PayDriver->getName($session), 'Payment Driver', 'getName retur
can_ok $driver, qw/get set update write getName className label enabled paymentGatewayId groupToUse/; can_ok $driver, qw/get set update write getName className label enabled paymentGatewayId groupToUse/;
#######################################################################
#
# default label
#
#######################################################################
$driver->label('');
is $driver->label, $driver->getName($session), 'empty label replaced with plugin name';
$driver->label('untitled');
is $driver->label, $driver->getName($session), 'label=untitled replaced with plugin name';
$driver->label('uNtItLeD');
is $driver->label, $driver->getName($session), '...regardless of case';
$driver->label('Fast and harmless');
####################################################################### #######################################################################
# #
# get # get
@ -147,7 +161,6 @@ cmp_deeply(
%{ $options }, %{ $options },
paymentGatewayId => ignore(), paymentGatewayId => ignore(),
}, },
$options,
'get works like the options method with no param passed' 'get works like the options method with no param passed'
); );
is ($driver->get('label'), 'Fast and harmless', 'get the label entry from the options'); is ($driver->get('label'), 'Fast and harmless', 'get the label entry from the options');