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

refactored test to make pick up tests easier

Browse source
This commit is contained in:
Colin Kuskie 2006-10-20 22:56:30 +00:00
parent 6a723e5767
commit d55789fce3
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
t/Session/Icon.t
View file

@ -72,31 +72,30 @@ foreach my $test (@iconTests) {
my $label = $i18n->get($test->{label});
my $icon = $session->icon->$method($test->{urlParam});
my ($url, $alt, $title) = linkAndText($icon);
my ($url) = linkAndText($icon, 'a', 'href');
is($url, $session->url->gateway($requestedUrl, $test->{urlParam}), "$method: url okay");
my ($alt, $title) = linkAndText($icon, 'img', 'alt', 'title');
is($alt, $label, "$method: alt okay");
is($title, $label, "$method: title okay");
$icon = $session->icon->copy($test->{urlParam2}, '/lowes');
($url, $alt, $title) = linkAndText($icon);
($url) = linkAndText($icon, 'a', 'href');
is($url, $session->url->gateway('/lowes', $test->{urlParam2}), "$method: manual url okay");
}
sub linkAndText {
my ($text) = @_;
my ($text, $tag, @params) = @_;
my $p = HTML::TokeParser->new(\$text);
my $token = $p->get_tag('a');
my $url = $token->[1]{href} || "-";
my $token = $p->get_tag($tag);
$token = $p->get_tag('img');
my $alt = $token->[1]{alt} || "-";
my $title = $token->[1]{title} || "-";
my @parsedParams = map { $token->[1]{$_} || '-' } @params;
return ($url, $alt, $title);
return @parsedParams;
}
####################################################
@ -108,6 +107,8 @@ sub linkAndText {
#
####################################################
my $icon = $session->icon->drag();
END: {
$session->user->profileField('toolbar', $origToolbar);
}