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

fix now that things are packed

Browse source
This commit is contained in:
Doug Bell 2009-04-30 19:45:37 +00:00
parent 9b20ce2fe7
commit 81b77e1836
8 changed files with 15 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

4
t/Macro/EditableToggle.t
View file

@ -245,8 +245,8 @@ sub simpleHTMLParser {
sub simpleTextParser {
my ($text) = @_;
my ($url) = $text =~ /^HREF=(.+)$/m;
my ($label) = $text =~ /^LABEL=(.+)$/m;
my ($url) = $text =~ /HREF=(.+?)(LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(HREF|\Z)/;
return ($url, $label);
}

5
t/Macro/GroupAdd.t
View file

@ -193,13 +193,12 @@ sub simpleHTMLParser {
sub simpleTextParser {
my ($text) = @_;
my ($url) = $text =~ /^HREF=(.+)$/m;
my ($label) = $text =~ /^LABEL=(.+)$/m;
my ($url) = $text =~ /HREF=(.+?)(LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(HREF|\Z)/;
return ($url, $label);
}
END { ##Clean-up after yourself, always
foreach my $testGroup (@{ $groups }, ) {
$testGroup->delete if (defined $testGroup and ref $testGroup eq 'WebGUI::Group');

5
t/Macro/GroupDelete.t
View file

@ -193,13 +193,12 @@ sub simpleHTMLParser {
sub simpleTextParser {
my ($text) = @_;
my ($url) = $text =~ /^HREF=(.+)$/m;
my ($label) = $text =~ /^LABEL=(.+)$/m;
my ($url) = $text =~ /HREF=(.+?)(LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(HREF|\Z)/;
return ($url, $label);
}
END { ##Clean-up after yourself, always
foreach my $testGroup (@{ $groups }, ) {
$testGroup->delete if (defined $testGroup and ref $testGroup eq 'WebGUI::Group');

4
t/Macro/H_homeLink.t
View file

@ -120,8 +120,8 @@ sub simpleHTMLParser {
sub simpleTextParser {
my ($text) = @_;
my ($url) = $text =~ /^HREF=(.+)$/m;
my ($label) = $text =~ /^LABEL=(.+)$/m;
my ($url) = $text =~ /HREF=(.+?)(LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(HREF|\Z)/;
return ($url, $label);
}

2
t/Macro/L_loginBox.t
View file

@ -176,7 +176,7 @@ sub simpleTextParser {
my ($text) = @_;
my %pairedData = ();
while($text =~ m/^\s*(\S+)\s*=\s*(.*?)-\+-/smgc) {
while($text =~ m/\s*(\S+)\s*=\s*(.*?)-\+-/smgc) {
$pairedData{$1} = $2;
}
return %pairedData;

4
t/Macro/LoginToggle.t
View file

@ -179,8 +179,8 @@ sub simpleHTMLParser {
sub simpleTextParser {
my ($text) = @_;
my ($url) = $text =~ /^HREF=(.+)$/m;
my ($label) = $text =~ /^LABEL=(.+)$/m;
my ($url) = $text =~ /HREF=(.+?)(LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(HREF|\Z)/;
return ($url, $label);
}

4
t/Macro/a_account.t
View file

@ -124,8 +124,8 @@ sub simpleHTMLParser {
sub simpleTextParser {
my ($text) = @_;
my ($url) = $text =~ /^HREF=(.+)$/m;
my ($label) = $text =~ /^LABEL=(.+)$/m;
my ($url) = $text =~ /HREF=(.+?)(LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(HREF|\Z)/;
return ($url, $label);
}

5
t/Macro/r_printable.t
View file

@ -142,13 +142,12 @@ sub simpleHTMLParser {
sub simpleTextParser {
my ($text) = @_;
my ($url) = $text =~ /^HREF=(.+)$/m;
my ($label) = $text =~ /^LABEL=(.+)$/m;
my ($url) = $text =~ /HREF=(.+?)(LABEL|\Z)/;
my ($label) = $text =~ /LABEL=(.+?)(HREF|\Z)/;
return ($url, $label);
}
END { ##Clean-up after yourself, always
if (defined $versionTag and ref $versionTag eq 'WebGUI::VersionTag') {
$versionTag->rollback;