From bdbd0792ad2acaaf1a20dd57874e5ac0a1636ae8 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 11 Mar 2009 16:32:13 +0000
Subject: [PATCH] Remove diag output from test

---
 t/Workflow/Activity/BucketPassiveAnalytics.t | 7 -------
 1 file changed, 7 deletions(-)

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