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

fix a very bad, simple text parser

Browse source
This commit is contained in:
Colin Kuskie 2006-08-29 21:13:15 +00:00
parent ef9dfaf868
commit d95cd9b68d
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
t/Macro/L_loginBox.t
View file

@ -37,7 +37,7 @@ foreach my $testSet (@testSets) { ##Count dynamic tests
}
$numTests += 1; #Module loading test
$numTests += 10; #Static tests
$numTests += 11; #Static tests
plan tests => $numTests;
@ -63,6 +63,14 @@ is($vars{'logout.url'}, $session->url->page('op=auth;method=logout'), 'logout.ur
is($vars{'account.display.url'}, $session->url->page('op=auth;method=displayAccount'), 'account.display.url');
is($vars{'account.create.url'}, $session->url->page('op=auth;method=createAccount'), 'account.create.url');
##The purpose of the test is to make sure that the variables are what they say
##they are.
#diag $output;
#diag Dumper \%vars;
is($vars{'form.footer'}, WebGUI::Form::formFooter($session), 'form.footer');
foreach my $testSet (@testSets) {
}
@ -83,7 +91,7 @@ sub simpleTextParser {
my ($text) = @_;
my %pairedData = ();
while($text =~ m/^\s*(\S+)\s*=\s*(.*?)-\+-\n/smgc) {
while($text =~ m/^\s*(\S+)\s*=\s*(.*?)-\+-/smgc) {
$pairedData{$1} = $2;
}
return %pairedData;
@ -113,6 +121,7 @@ sub setupTest {
logout.label form.header username.label username.form
password.label password.form form.login account.create.url
account.create.label form.footer/;
#$properties->{template} .= "\n";
my $template = $defaultNode->addChild($properties, $properties->{id});
$versionTag->commit;
return ($versionTag, $template);