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

fixed tests

Browse source
This commit is contained in:
Doug Bell 2009-05-07 18:18:55 +00:00
parent 18460256df
commit d0a5cc8d66
9 changed files with 14 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
t/Macro/AdminToggle.t
View file

@ -155,6 +155,7 @@ sub addTemplate {
namespace => 'Macro/AdminToggle',
template => "HREF=<tmpl_var toggle.url>\nLABEL=<tmpl_var toggle.text>",
id => 'AdminToggleTemplate--Z',
usePacked => 0,
};
my $template = $importNode->addChild($properties, $properties->{id});
$versionTag->commit;
@ -175,8 +176,8 @@ sub simpleHTMLParser {
sub simpleTextParser {
my ($text) = @_;
my ($url) = $text =~ /HREF=(.+?)(LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(HREF|\Z)/;
my ($url) = $text =~ /HREF=(.+?)\s/;
my ($label) = $text =~ /LABEL=(.+?)\Z/;
return ($url, $label);
}