make tests less verbose by default

t/business_hours.t

@@ -10,7 +10,7 @@ use RT::Extension::SLA::Test tests => 9;
 $ENV{'TZ'} = 'GMT';
 RT->Config->Set( Timezone => 'GMT' );
 
-diag 'check business hours';
+diag 'check business hours' if $ENV{'TEST_VERBOSE'};
 {
 
     no warnings 'once';

t/due.t

@@ -5,7 +5,7 @@ use warnings;
 
 use RT::Extension::SLA::Test tests => 72;
 
-diag 'check change of Due date when SLA for a ticket is changed';
+diag 'check change of Due date when SLA for a ticket is changed' if $ENV{'TEST_VERBOSE'};
 {
     %RT::ServiceAgreements = (
         Default => '2',
@@ -37,7 +37,7 @@ diag 'check change of Due date when SLA for a ticket is changed';
     is $new_due, $orig_due+2*60*60, 'difference is two hours';
 }
 
-diag 'when not requestor creates a ticket, we dont set due date';
+diag 'when not requestor creates a ticket, we dont set due date' if $ENV{'TEST_VERBOSE'};
 {
     %RT::ServiceAgreements = (
         Default => '2',
@@ -60,7 +60,7 @@ diag 'when not requestor creates a ticket, we dont set due date';
     ok $due <= 0, 'Due date is not set';
 }
 
-diag 'check that reply to requestors unset due date';
+diag 'check that reply to requestors unset due date' if $ENV{'TEST_VERBOSE'};
 {
     %RT::ServiceAgreements = (
         Default => '2',
@@ -158,7 +158,7 @@ diag 'check that reply to requestors unset due date';
     }
 }
 
-diag 'check that reply to requestors dont unset due date with KeepInLoop';
+diag 'check that reply to requestors dont unset due date with KeepInLoop' if $ENV{'TEST_VERBOSE'};
 {
     %RT::ServiceAgreements = (
         Default => '2',
@@ -268,7 +268,7 @@ diag 'check that reply to requestors dont unset due date with KeepInLoop';
     }
 }
 
-diag 'check that replies dont affect resolve deadlines';
+diag 'check that replies dont affect resolve deadlines' if $ENV{'TEST_VERBOSE'};
 {
     %RT::ServiceAgreements = (
         Default => '2',
@@ -332,7 +332,7 @@ diag 'check that replies dont affect resolve deadlines';
     }
 }
 
-diag 'check that owner is not treated as requestor';
+diag 'check that owner is not treated as requestor' if $ENV{'TEST_VERBOSE'};
 {
     %RT::ServiceAgreements = (
         Default => '2',
@@ -365,7 +365,7 @@ diag 'check that owner is not treated as requestor';
     }
 }
 
-diag 'check that response deadline is left alone when there is no requestor';
+diag 'check that response deadline is left alone when there is no requestor' if $ENV{'TEST_VERBOSE'};
 {
     %RT::ServiceAgreements = (
         Default => '2',

t/queue.t

@@ -11,7 +11,7 @@ $queue->Load('General');
 
 my $queue_sla = RT::Attribute->new($RT::SystemUser);
 
-diag 'check set of Due date with Queue default SLA';
+diag 'check set of Due date with Queue default SLA' if $ENV{'TEST_VERBOSE'};
 {
 
     # add default SLA for 'General';

t/starts.t

@@ -12,7 +12,7 @@ RT->Config->Set( Timezone => 'GMT' );
 
 my $bhours = RT::Extension::SLA->BusinessHours;
 
-diag 'check Starts date';
+diag 'check Starts date' if $ENV{'TEST_VERBOSE'};
 {
     %RT::ServiceAgreements = (
         Default => 'standard',
@@ -55,7 +55,7 @@ diag 'check Starts date';
     restore_time();
 }
 
-diag 'check Starts date with StartImmediately enabled';
+diag 'check Starts date with StartImmediately enabled' if $ENV{'TEST_VERBOSE'};
 {
     %RT::ServiceAgreements = (
         Default => 'start immediately',