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

forward porting fixUrl bugfix and test

Browse source
This commit is contained in:
Colin Kuskie 2007-12-11 16:40:05 +00:00
parent f966bc572a
commit ac6651cdcd
4 changed files with 29 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
t/Asset/Asset.t
View file

@ -17,7 +17,7 @@ use WebGUI::Session;
use WebGUI::Asset;
use WebGUI::Asset::Wobject::Navigation;
use Test::More tests => 31; # increment this value for each test you create
use Test::More tests => 32; # increment this value for each test you create
use Test::MockObject;
my $session = WebGUI::Test->session;
@ -140,3 +140,11 @@ $session->{_request} = $newRequest;
$func = 'add';
is($importNode->addEditLabel, $i18n->get('add').' '.$importNode->getName, 'addEditLabel, use add mode');
$session->{_request} = $origRequest;
################################################################
#
# fixUrl
#
################################################################
is($importNode->fixUrl('1234'.'-'x250 . 'abcdefghijkl'), '1234'.'-'x216, 'fixUrl truncates to 220 characters');

18
t/lib/Perl/Critic/Policy/WebGUI/NoIllegalI18NLabels.pm
View file

@ -63,7 +63,8 @@ sub violates {
my ($self, $elem, undef) = @_;
##$elem has stringification overloaded by default.
return unless $elem eq 'new'
or $elem eq 'get';
or $elem eq 'get'
or $elem eq 'setNamespace';
return if !is_method_call($elem);
if ($elem eq 'new') { ##Object creation, check for class.
my $operator = $elem->sprevious_sibling or return;
@ -94,6 +95,9 @@ sub violates {
if ($arguments[1]) {
$namespace = $arguments[1]->[0]->string;
}
# print "object : $symbol_name\n";
# print "label : $label\n";
# print "namespace : $namespace\n";
if (! $self->{i18n}->get($label, $namespace)) {
return $self->violation(
$DESC,
@ -103,6 +107,18 @@ sub violates {
}
return;
}
elsif ($elem eq 'setNamespace') { ##Set the object's default namespace
my $symbol_name = _get_symbol_name($elem);
return unless $symbol_name && exists $self->{_i18n_objects}->{$symbol_name};
my $arg_list = $elem->snext_sibling;
return unless ref $arg_list eq 'PPI::Structure::List';
my @arguments = _get_args($arg_list);
##Many assumptions being made here
return unless $arguments[0]->[0]->isa('PPI::Token::Quote');
my $new_namespace = $arguments[0]->[0]->string;
$self->{_i18n_objects}->{$symbol_name} = $new_namespace;
return;
}
return;
}