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

Remove diag output from test

Browse source
This commit is contained in:
Colin Kuskie 2009-03-11 16:32:13 +00:00
parent e93f02c16b
commit bdbd0792ad
1 changed files with 0 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
t/Workflow/Activity/BucketPassiveAnalytics.t
View file

@ -22,7 +22,6 @@ my $activities = $workflow->getActivities();
##Note, they're in order, and the order is known. ##Note, they're in order, and the order is known.
$activities->[0]->set('deltaInterval', 100); $activities->[0]->set('deltaInterval', 100);
$activities->[1]->set('userId', 0); ##To disable sending emails $activities->[1]->set('userId', 0); ##To disable sending emails
diag "Configured activities";
my $instance = WebGUI::Workflow::Instance->create($session, my $instance = WebGUI::Workflow::Instance->create($session,
{ {
@ -56,30 +55,24 @@ my @ruleSets = (
); );
my @url2 = @ruleSets; my @url2 = @ruleSets;
diag "Making rules";
while (my $spec = shift @url2) { while (my $spec = shift @url2) {
my ($bucket, undef, $regexp) = @{ $spec }; my ($bucket, undef, $regexp) = @{ $spec };
WebGUI::PassiveAnalytics::Rule->create($session, { bucketName => $bucket, regexp => $regexp }); WebGUI::PassiveAnalytics::Rule->create($session, { bucketName => $bucket, regexp => $regexp });
} }
my @urls = map {$_->[1]} @ruleSets; my @urls = map {$_->[1]} @ruleSets;
diag "Making log data with " . scalar @urls . " urls";
loadLogData($session, @urls); loadLogData($session, @urls);
diag "Data logged";
##Build rulesets ##Build rulesets
##Now, run it and wait for it to finish ##Now, run it and wait for it to finish
my $counter = 0; my $counter = 0;
diag time();
#DB::enable_profile(); #DB::enable_profile();
PAUSE: while (my $retval = $instance->run()) { PAUSE: while (my $retval = $instance->run()) {
diag $retval;
last PAUSE if $retval eq 'done'; last PAUSE if $retval eq 'done';
last PAUSE if $counter++ >= 16; last PAUSE if $counter++ >= 16;
} }
#DB::disable_profile(); #DB::disable_profile();
diag time();
ok(1, 'One test'); ok(1, 'One test');