[Rt-commit] r20043 - in rt/3.8/trunk/t: . api customfields i18n mail shredder ticket validator web

sunnavy at bestpractical.com sunnavy at bestpractical.com
Wed Jun 24 03:53:48 EDT 2009


Author: sunnavy
Date: Wed Jun 24 03:53:48 2009
New Revision: 20043

Modified:
   rt/3.8/trunk/t/00-compile.t
   rt/3.8/trunk/t/00-mason-syntax.t
   rt/3.8/trunk/t/api/action-createtickets.t
   rt/3.8/trunk/t/api/attribute-tests.t
   rt/3.8/trunk/t/api/cf.t
   rt/3.8/trunk/t/api/cf_combo_casacade.t
   rt/3.8/trunk/t/api/cf_external.t
   rt/3.8/trunk/t/api/cf_pattern.t
   rt/3.8/trunk/t/api/cf_single_values.t
   rt/3.8/trunk/t/api/group.t
   rt/3.8/trunk/t/api/rights.t
   rt/3.8/trunk/t/api/scrip_order.t
   rt/3.8/trunk/t/api/searchbuilder.t
   rt/3.8/trunk/t/api/template-insert.t
   rt/3.8/trunk/t/api/ticket.t
   rt/3.8/trunk/t/api/uri-fsck_com_rt.t
   rt/3.8/trunk/t/api/uri-t.t
   rt/3.8/trunk/t/customfields/access_via_queue.t
   rt/3.8/trunk/t/customfields/sort_order.t
   rt/3.8/trunk/t/i18n/default.t
   rt/3.8/trunk/t/mail/mime_decoding.t
   rt/3.8/trunk/t/mail/sendmail.t
   rt/3.8/trunk/t/maildigest/attributes.t
   rt/3.8/trunk/t/rtname.t
   rt/3.8/trunk/t/savedsearch.t
   rt/3.8/trunk/t/shredder/00load.t
   rt/3.8/trunk/t/ticket/action_linear_escalate.t
   rt/3.8/trunk/t/ticket/add-watchers.t
   rt/3.8/trunk/t/ticket/badlinks.t
   rt/3.8/trunk/t/ticket/batch-upload-csv.t
   rt/3.8/trunk/t/ticket/cfsort-freeform-multiple.t
   rt/3.8/trunk/t/ticket/cfsort-freeform-single.t
   rt/3.8/trunk/t/ticket/deferred_owner.t
   rt/3.8/trunk/t/ticket/link_search.t
   rt/3.8/trunk/t/ticket/linking.t
   rt/3.8/trunk/t/ticket/merge.t
   rt/3.8/trunk/t/ticket/scrips_batch.t
   rt/3.8/trunk/t/ticket/search.t
   rt/3.8/trunk/t/ticket/search_by_cf_freeform_multiple.t
   rt/3.8/trunk/t/ticket/search_by_cf_freeform_single.t
   rt/3.8/trunk/t/ticket/search_by_links.t
   rt/3.8/trunk/t/ticket/search_by_txn.t
   rt/3.8/trunk/t/ticket/search_by_watcher.t
   rt/3.8/trunk/t/ticket/search_long_cf_values.t
   rt/3.8/trunk/t/ticket/sort-by-queue.t
   rt/3.8/trunk/t/ticket/sort-by-user.t
   rt/3.8/trunk/t/ticket/sort_by_cf.t
   rt/3.8/trunk/t/validator/group_members.t
   rt/3.8/trunk/t/web/attachments.t
   rt/3.8/trunk/t/web/basic.t
   rt/3.8/trunk/t/web/cf_access.t
   rt/3.8/trunk/t/web/cf_onqueue.t
   rt/3.8/trunk/t/web/cf_select_one.t
   rt/3.8/trunk/t/web/command_line.t
   rt/3.8/trunk/t/web/custom_frontpage.t
   rt/3.8/trunk/t/web/custom_search.t
   rt/3.8/trunk/t/web/dashboards-groups.t
   rt/3.8/trunk/t/web/dashboards.t
   rt/3.8/trunk/t/web/query_builder.t
   rt/3.8/trunk/t/web/quicksearch.t
   rt/3.8/trunk/t/web/rest-non-ascii-subject.t
   rt/3.8/trunk/t/web/rest.t
   rt/3.8/trunk/t/web/rights.t
   rt/3.8/trunk/t/web/rights1.t
   rt/3.8/trunk/t/web/ticket-create-utf8.t
   rt/3.8/trunk/t/web/ticket_owner.t
   rt/3.8/trunk/t/web/ticket_seen.t
   rt/3.8/trunk/t/web/unlimited_search.t

Log:
remove extra ;

Modified: rt/3.8/trunk/t/00-compile.t
==============================================================================
--- rt/3.8/trunk/t/00-compile.t	(original)
+++ rt/3.8/trunk/t/00-compile.t	Wed Jun 24 03:53:48 2009
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use RT::Test nodata => 1, tests => 34;;
+use RT::Test nodata => 1, tests => 34;
 
 require_ok("RT");
 require_ok("RT::Test");

Modified: rt/3.8/trunk/t/00-mason-syntax.t
==============================================================================
--- rt/3.8/trunk/t/00-mason-syntax.t	(original)
+++ rt/3.8/trunk/t/00-mason-syntax.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 1, tests => 1;;;
+use RT::Test tests => 1, tests => 1;
 
 my $ok = 1;
 

Modified: rt/3.8/trunk/t/api/action-createtickets.t
==============================================================================
--- rt/3.8/trunk/t/api/action-createtickets.t	(original)
+++ rt/3.8/trunk/t/api/action-createtickets.t	Wed Jun 24 03:53:48 2009
@@ -80,7 +80,7 @@
 is ($t->ReferredToBy->Count,1, "It's only referred to by one other ticket");
 is ($t->ReferredToBy->First->BaseObj->Id,$t->DependsOn->First->TargetObj->Id, "The same ticket that depends on it refers to it.");
 use RT::Action::CreateTickets;
-my $action =  RT::Action::CreateTickets->new( CurrentUser => $RT::SystemUser);;
+my $action =  RT::Action::CreateTickets->new( CurrentUser => $RT::SystemUser);
 
 # comma-delimited templates
 my $commas = <<"EOF";

Modified: rt/3.8/trunk/t/api/attribute-tests.t
==============================================================================
--- rt/3.8/trunk/t/api/attribute-tests.t	(original)
+++ rt/3.8/trunk/t/api/attribute-tests.t	Wed Jun 24 03:53:48 2009
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 use RT;
-use RT::Test tests => 34;;
+use RT::Test tests => 34;
 
 
 

Modified: rt/3.8/trunk/t/api/cf.t
==============================================================================
--- rt/3.8/trunk/t/api/cf.t	(original)
+++ rt/3.8/trunk/t/api/cf.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use RT::Test tests => 139;;
+use RT::Test tests => 139;
 
 # Before we get going, ditch all object_cfs; this will remove 
 # all custom fields systemwide;

Modified: rt/3.8/trunk/t/api/cf_combo_casacade.t
==============================================================================
--- rt/3.8/trunk/t/api/cf_combo_casacade.t	(original)
+++ rt/3.8/trunk/t/api/cf_combo_casacade.t	Wed Jun 24 03:53:48 2009
@@ -2,7 +2,7 @@
 use warnings;
 use strict;
 
-use RT::Test tests => 11;;
+use RT::Test tests => 11;
 
 sub fails { ok(!$_[0], "This should fail: $_[1]") }
 sub works { ok($_[0], $_[1] || 'This works') }

Modified: rt/3.8/trunk/t/api/cf_external.t
==============================================================================
--- rt/3.8/trunk/t/api/cf_external.t	(original)
+++ rt/3.8/trunk/t/api/cf_external.t	Wed Jun 24 03:53:48 2009
@@ -4,7 +4,7 @@
 use strict;
 
 use RT;
-use RT::Test nodata => 1, tests => 11;;
+use RT::Test nodata => 1, tests => 11;
 
 sub new (*) {
     my $class = shift;

Modified: rt/3.8/trunk/t/api/cf_pattern.t
==============================================================================
--- rt/3.8/trunk/t/api/cf_pattern.t	(original)
+++ rt/3.8/trunk/t/api/cf_pattern.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 
 use RT;
-use RT::Test tests => 17;;
+use RT::Test tests => 17;
 
 
 sub fails { ok(!$_[0], "This should fail: $_[1]") }

Modified: rt/3.8/trunk/t/api/cf_single_values.t
==============================================================================
--- rt/3.8/trunk/t/api/cf_single_values.t	(original)
+++ rt/3.8/trunk/t/api/cf_single_values.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 
 use RT;
-use RT::Test tests => 8;;
+use RT::Test tests => 8;
 
 
 

Modified: rt/3.8/trunk/t/api/group.t
==============================================================================
--- rt/3.8/trunk/t/api/group.t	(original)
+++ rt/3.8/trunk/t/api/group.t	Wed Jun 24 03:53:48 2009
@@ -78,7 +78,7 @@
 ok(!$ng->HasMember($principal_2)  , "group ".$ng->Id." no longer has member 2");
 is($group_3->HasMemberRecursively($principal_2), undef, "group 3 doesn't have member 2");
 is($group_2->HasMemberRecursively($principal_2), undef, "group 2 doesn't have member 2");
-is($ng->HasMember($principal_2), undef, "group 1 doesn't have member 2");;
+is($ng->HasMember($principal_2), undef, "group 1 doesn't have member 2");
 is($group_3->HasMemberRecursively($principal_2), undef, "group 3 has member 2 recursively");
 
 # }}}

Modified: rt/3.8/trunk/t/api/rights.t
==============================================================================
--- rt/3.8/trunk/t/api/rights.t	(original)
+++ rt/3.8/trunk/t/api/rights.t	Wed Jun 24 03:53:48 2009
@@ -48,7 +48,7 @@
 # END BPS TAGGED BLOCK }}}
 
 use RT;
-use RT::Test tests => 26;;
+use RT::Test tests => 26;
 
 use RT::I18N;
 use strict;

Modified: rt/3.8/trunk/t/api/scrip_order.t
==============================================================================
--- rt/3.8/trunk/t/api/scrip_order.t	(original)
+++ rt/3.8/trunk/t/api/scrip_order.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 
 use RT;
-use RT::Test tests => 7;;
+use RT::Test tests => 7;
 
 
 # {{{ test scrip ordering based on description

Modified: rt/3.8/trunk/t/api/searchbuilder.t
==============================================================================
--- rt/3.8/trunk/t/api/searchbuilder.t	(original)
+++ rt/3.8/trunk/t/api/searchbuilder.t	Wed Jun 24 03:53:48 2009
@@ -31,7 +31,7 @@
 is ($#sorted, $#items);
 is ($sorted[0]->Name, $items[0]->Name);
 is ($sorted[-1]->Name, $items[-1]->Name);
-is_deeply(\@items_ids, \@sorted_ids, "ItemsArrayRef sorts alphabetically by name");;
+is_deeply(\@items_ids, \@sorted_ids, "ItemsArrayRef sorts alphabetically by name");
 
 
 

Modified: rt/3.8/trunk/t/api/template-insert.t
==============================================================================
--- rt/3.8/trunk/t/api/template-insert.t	(original)
+++ rt/3.8/trunk/t/api/template-insert.t	Wed Jun 24 03:53:48 2009
@@ -5,7 +5,7 @@
 
 
 use RT;
-use RT::Test tests => 7;;
+use RT::Test tests => 7;
 
 
 

Modified: rt/3.8/trunk/t/api/ticket.t
==============================================================================
--- rt/3.8/trunk/t/api/ticket.t	(original)
+++ rt/3.8/trunk/t/api/ticket.t	Wed Jun 24 03:53:48 2009
@@ -49,7 +49,7 @@
 isnt($cfv , 0, "Custom field creation didn't return an error: $cfm");
 is($t->CustomFieldValues($testcf->Id)->Count , 1);
 ok($t->CustomFieldValues($testcf->Id)->First &&
-    $t->CustomFieldValues($testcf->Id)->First->Content eq 'Value1');;
+    $t->CustomFieldValues($testcf->Id)->First->Content eq 'Value1');
 
 ok(my ($cfdv, $cfdm) = $t->DeleteCustomFieldValue(Field => $testcf->Id,
                         Value => 'Value1'));
@@ -130,9 +130,9 @@
 ok(my $bob = RT::User->new($RT::SystemUser), "Creating a bob rt::user");
 $bob->LoadByEmail('bob at fsck.com');
 ok($bob->Id,  "Found the bob rt user");
-ok ($ticket->IsWatcher(Type => 'Requestor', PrincipalId => $bob->PrincipalId), "The ticket actually has bob at fsck.com as a requestor");;
+ok ($ticket->IsWatcher(Type => 'Requestor', PrincipalId => $bob->PrincipalId), "The ticket actually has bob at fsck.com as a requestor");
 ok ( ($add_id, $add_msg) = $ticket->DeleteWatcher(Type =>'Requestor', Email => 'bob at fsck.com'), "Added bob at fsck.com as a requestor");
-ok (!$ticket->IsWatcher(Type => 'Requestor', PrincipalId => $bob->PrincipalId), "The ticket no longer has bob at fsck.com as a requestor");;
+ok (!$ticket->IsWatcher(Type => 'Requestor', PrincipalId => $bob->PrincipalId), "The ticket no longer has bob at fsck.com as a requestor");
 
 
 $group = RT::Group->new($RT::SystemUser);

Modified: rt/3.8/trunk/t/api/uri-fsck_com_rt.t
==============================================================================
--- rt/3.8/trunk/t/api/uri-fsck_com_rt.t	(original)
+++ rt/3.8/trunk/t/api/uri-fsck_com_rt.t	Wed Jun 24 03:53:48 2009
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 use RT;
-use RT::Test tests => 8;;
+use RT::Test tests => 8;
 
 use_ok("RT::URI::fsck_com_rt");
 my $uri = RT::URI::fsck_com_rt->new($RT::SystemUser);

Modified: rt/3.8/trunk/t/api/uri-t.t
==============================================================================
--- rt/3.8/trunk/t/api/uri-t.t	(original)
+++ rt/3.8/trunk/t/api/uri-t.t	Wed Jun 24 03:53:48 2009
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 use RT;
-use RT::Test tests => 6;;
+use RT::Test tests => 6;
 
 my $t1 = RT::Ticket->new($RT::SystemUser);
 my ($id,$trans,$msg) =$t1->Create (Queue => 'general', Subject => 'Requestor test one', );

Modified: rt/3.8/trunk/t/customfields/access_via_queue.t
==============================================================================
--- rt/3.8/trunk/t/customfields/access_via_queue.t	(original)
+++ rt/3.8/trunk/t/customfields/access_via_queue.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 35;;
+use RT::Test tests => 35;
 use RT::Ticket;
 use RT::CustomField;
 

Modified: rt/3.8/trunk/t/customfields/sort_order.t
==============================================================================
--- rt/3.8/trunk/t/customfields/sort_order.t	(original)
+++ rt/3.8/trunk/t/customfields/sort_order.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 18;;
+use RT::Test tests => 18;
 use RT::Ticket;
 use RT::CustomField;
 

Modified: rt/3.8/trunk/t/i18n/default.t
==============================================================================
--- rt/3.8/trunk/t/i18n/default.t	(original)
+++ rt/3.8/trunk/t/i18n/default.t	Wed Jun 24 03:53:48 2009
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 8;;
+use RT::Test tests => 8;
 
 my ($baseurl, $m) = RT::Test->started_ok;
 $m->get_ok('/');

Modified: rt/3.8/trunk/t/mail/mime_decoding.t
==============================================================================
--- rt/3.8/trunk/t/mail/mime_decoding.t	(original)
+++ rt/3.8/trunk/t/mail/mime_decoding.t	Wed Jun 24 03:53:48 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use strict;
 use warnings;
-use RT::Test nodata => 1, tests => 6;;
+use RT::Test nodata => 1, tests => 6;
 
 use_ok('RT::I18N');
 

Modified: rt/3.8/trunk/t/mail/sendmail.t
==============================================================================
--- rt/3.8/trunk/t/mail/sendmail.t	(original)
+++ rt/3.8/trunk/t/mail/sendmail.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 use File::Spec ();
 
-use RT::Test tests => 137;;
+use RT::Test tests => 137;
 
 use RT::EmailParser;
 use RT::Tickets;

Modified: rt/3.8/trunk/t/maildigest/attributes.t
==============================================================================
--- rt/3.8/trunk/t/maildigest/attributes.t	(original)
+++ rt/3.8/trunk/t/maildigest/attributes.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 use RT;
-use RT::Test tests => 31;;
+use RT::Test tests => 31;
 my @users = qw/ emailnormal at example.com emaildaily at example.com emailweekly at example.com emailsusp at example.com /;
 
 my( $ret, $msg );

Modified: rt/3.8/trunk/t/rtname.t
==============================================================================
--- rt/3.8/trunk/t/rtname.t	(original)
+++ rt/3.8/trunk/t/rtname.t	Wed Jun 24 03:53:48 2009
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use RT::Test nodata => 1, tests => 9;;
+use RT::Test nodata => 1, tests => 9;
 
 use RT::Interface::Email;
 

Modified: rt/3.8/trunk/t/savedsearch.t
==============================================================================
--- rt/3.8/trunk/t/savedsearch.t	(original)
+++ rt/3.8/trunk/t/savedsearch.t	Wed Jun 24 03:53:48 2009
@@ -9,7 +9,7 @@
 
 use_ok('RT::SavedSearch');
 use_ok('RT::SavedSearches');
-use RT::Test tests => 27;;
+use RT::Test tests => 27;
 
 use Test::Warn;
 

Modified: rt/3.8/trunk/t/shredder/00load.t
==============================================================================
--- rt/3.8/trunk/t/shredder/00load.t	(original)
+++ rt/3.8/trunk/t/shredder/00load.t	Wed Jun 24 03:53:48 2009
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 use File::Spec;
-use RT::Test tests => 11, tests => 11;;;
+use RT::Test tests => 11, tests => 11;
 
 BEGIN {
     my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',

Modified: rt/3.8/trunk/t/ticket/action_linear_escalate.t
==============================================================================
--- rt/3.8/trunk/t/ticket/action_linear_escalate.t	(original)
+++ rt/3.8/trunk/t/ticket/action_linear_escalate.t	Wed Jun 24 03:53:48 2009
@@ -4,7 +4,7 @@
 use warnings;
 
 use RT;
-use RT::Test tests => 17;;
+use RT::Test tests => 17;
 
 my ($id, $msg);
 my $RecordTransaction;

Modified: rt/3.8/trunk/t/ticket/add-watchers.t
==============================================================================
--- rt/3.8/trunk/t/ticket/add-watchers.t	(original)
+++ rt/3.8/trunk/t/ticket/add-watchers.t	Wed Jun 24 03:53:48 2009
@@ -45,7 +45,7 @@
 # 
 # END BPS TAGGED BLOCK }}}
 
-use RT::Test tests => 32;;
+use RT::Test tests => 32;
 
 use strict;
 use warnings;

Modified: rt/3.8/trunk/t/ticket/badlinks.t
==============================================================================
--- rt/3.8/trunk/t/ticket/badlinks.t	(original)
+++ rt/3.8/trunk/t/ticket/badlinks.t	Wed Jun 24 03:53:48 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use RT::Test tests => 12;;
+use RT::Test tests => 12;
 
 my ($baseurl, $m) = RT::Test->started_ok;
 ok($m->login, "Logged in");

Modified: rt/3.8/trunk/t/ticket/batch-upload-csv.t
==============================================================================
--- rt/3.8/trunk/t/ticket/batch-upload-csv.t	(original)
+++ rt/3.8/trunk/t/ticket/batch-upload-csv.t	Wed Jun 24 03:53:48 2009
@@ -2,7 +2,7 @@
 use strict; use warnings;
 
 use_ok('RT');
-use RT::Test tests => 12;;
+use RT::Test tests => 12;
 
 use_ok('RT::Action::CreateTickets');
 

Modified: rt/3.8/trunk/t/ticket/cfsort-freeform-multiple.t
==============================================================================
--- rt/3.8/trunk/t/ticket/cfsort-freeform-multiple.t	(original)
+++ rt/3.8/trunk/t/ticket/cfsort-freeform-multiple.t	Wed Jun 24 03:53:48 2009
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-use RT::Test tests => 24;;
+use RT::Test tests => 24;
 
 use strict;
 use warnings;

Modified: rt/3.8/trunk/t/ticket/cfsort-freeform-single.t
==============================================================================
--- rt/3.8/trunk/t/ticket/cfsort-freeform-single.t	(original)
+++ rt/3.8/trunk/t/ticket/cfsort-freeform-single.t	Wed Jun 24 03:53:48 2009
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-use RT::Test tests => 57;;
+use RT::Test tests => 57;
 
 use strict;
 use warnings;

Modified: rt/3.8/trunk/t/ticket/deferred_owner.t
==============================================================================
--- rt/3.8/trunk/t/ticket/deferred_owner.t	(original)
+++ rt/3.8/trunk/t/ticket/deferred_owner.t	Wed Jun 24 03:53:48 2009
@@ -4,7 +4,7 @@
 
 use_ok('RT');
 use_ok('RT::Ticket');
-use RT::Test tests => 18;;
+use RT::Test tests => 18;
 use Test::Warn;
 
 

Modified: rt/3.8/trunk/t/ticket/link_search.t
==============================================================================
--- rt/3.8/trunk/t/ticket/link_search.t	(original)
+++ rt/3.8/trunk/t/ticket/link_search.t	Wed Jun 24 03:53:48 2009
@@ -4,7 +4,7 @@
 use RT;
 
 # Load the config file
-use RT::Test tests => 63;;
+use RT::Test tests => 63;
 
 #Connect to the database and get RT::SystemUser and RT::Nobody loaded
 

Modified: rt/3.8/trunk/t/ticket/linking.t
==============================================================================
--- rt/3.8/trunk/t/ticket/linking.t	(original)
+++ rt/3.8/trunk/t/ticket/linking.t	Wed Jun 24 03:53:48 2009
@@ -9,7 +9,7 @@
 use_ok('RT::Template');
 use_ok('RT::Scrips');
 use_ok('RT::Scrip');
-use RT::Test tests => '101';;
+use RT::Test tests => '101';
 
 
 use File::Temp qw/tempfile/;

Modified: rt/3.8/trunk/t/ticket/merge.t
==============================================================================
--- rt/3.8/trunk/t/ticket/merge.t	(original)
+++ rt/3.8/trunk/t/ticket/merge.t	Wed Jun 24 03:53:48 2009
@@ -5,7 +5,7 @@
 
 
 use RT;
-use RT::Test tests => '17';;
+use RT::Test tests => '17';
 
 
 # validate that when merging two tickets, the comments from both tickets

Modified: rt/3.8/trunk/t/ticket/scrips_batch.t
==============================================================================
--- rt/3.8/trunk/t/ticket/scrips_batch.t	(original)
+++ rt/3.8/trunk/t/ticket/scrips_batch.t	Wed Jun 24 03:53:48 2009
@@ -4,7 +4,7 @@
 
 use_ok('RT');
 use_ok('RT::Ticket');
-use RT::Test tests => '19';;
+use RT::Test tests => '19';
 
 my $queue = RT::Test->load_or_create_queue( Name => 'Regression' );
 ok $queue && $queue->id, 'loaded or created queue';

Modified: rt/3.8/trunk/t/ticket/search.t
==============================================================================
--- rt/3.8/trunk/t/ticket/search.t	(original)
+++ rt/3.8/trunk/t/ticket/search.t	Wed Jun 24 03:53:48 2009
@@ -6,7 +6,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 43;;
+use RT::Test tests => 43;
 
 # setup the queue
 

Modified: rt/3.8/trunk/t/ticket/search_by_cf_freeform_multiple.t
==============================================================================
--- rt/3.8/trunk/t/ticket/search_by_cf_freeform_multiple.t	(original)
+++ rt/3.8/trunk/t/ticket/search_by_cf_freeform_multiple.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 105;;
+use RT::Test tests => 105;
 use RT::Ticket;
 
 my $q = RT::Test->load_or_create_queue( Name => 'Regression' );

Modified: rt/3.8/trunk/t/ticket/search_by_cf_freeform_single.t
==============================================================================
--- rt/3.8/trunk/t/ticket/search_by_cf_freeform_single.t	(original)
+++ rt/3.8/trunk/t/ticket/search_by_cf_freeform_single.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 99;;
+use RT::Test tests => 99;
 use RT::Ticket;
 
 my $q = RT::Test->load_or_create_queue( Name => 'Regression' );

Modified: rt/3.8/trunk/t/ticket/search_by_links.t
==============================================================================
--- rt/3.8/trunk/t/ticket/search_by_links.t	(original)
+++ rt/3.8/trunk/t/ticket/search_by_links.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 80;;
+use RT::Test tests => 80;
 use RT::Ticket;
 
 my $q = RT::Test->load_or_create_queue( Name => 'Regression' );

Modified: rt/3.8/trunk/t/ticket/search_by_txn.t
==============================================================================
--- rt/3.8/trunk/t/ticket/search_by_txn.t	(original)
+++ rt/3.8/trunk/t/ticket/search_by_txn.t	Wed Jun 24 03:53:48 2009
@@ -6,7 +6,7 @@
 
 BEGIN{ $ENV{'TZ'} = 'GMT'};
 
-use RT::Test tests => 10;;
+use RT::Test tests => 10;
 
 my $SUBJECT = "Search test - ".$$;
 

Modified: rt/3.8/trunk/t/ticket/search_by_watcher.t
==============================================================================
--- rt/3.8/trunk/t/ticket/search_by_watcher.t	(original)
+++ rt/3.8/trunk/t/ticket/search_by_watcher.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 119;;
+use RT::Test tests => 119;
 use RT::Ticket;
 
 my $q = RT::Test->load_or_create_queue( Name => 'Regression' );

Modified: rt/3.8/trunk/t/ticket/search_long_cf_values.t
==============================================================================
--- rt/3.8/trunk/t/ticket/search_long_cf_values.t	(original)
+++ rt/3.8/trunk/t/ticket/search_long_cf_values.t	Wed Jun 24 03:53:48 2009
@@ -6,7 +6,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 10;;
+use RT::Test tests => 10;
 
 # setup the queue
 

Modified: rt/3.8/trunk/t/ticket/sort-by-queue.t
==============================================================================
--- rt/3.8/trunk/t/ticket/sort-by-queue.t	(original)
+++ rt/3.8/trunk/t/ticket/sort-by-queue.t	Wed Jun 24 03:53:48 2009
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-use RT::Test tests => 8;;
+use RT::Test tests => 8;
 
 use strict;
 use warnings;

Modified: rt/3.8/trunk/t/ticket/sort-by-user.t
==============================================================================
--- rt/3.8/trunk/t/ticket/sort-by-user.t	(original)
+++ rt/3.8/trunk/t/ticket/sort-by-user.t	Wed Jun 24 03:53:48 2009
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-use RT::Test tests => 32;;
+use RT::Test tests => 32;
 
 use strict;
 use warnings;

Modified: rt/3.8/trunk/t/ticket/sort_by_cf.t
==============================================================================
--- rt/3.8/trunk/t/ticket/sort_by_cf.t	(original)
+++ rt/3.8/trunk/t/ticket/sort_by_cf.t	Wed Jun 24 03:53:48 2009
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-use RT::Test tests => 21;;
+use RT::Test tests => 21;
 RT::Init();
 
 use strict;

Modified: rt/3.8/trunk/t/validator/group_members.t
==============================================================================
--- rt/3.8/trunk/t/validator/group_members.t	(original)
+++ rt/3.8/trunk/t/validator/group_members.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 60;;
+use RT::Test tests => 60;
 
 sub load_or_create_group {
     my $name = shift;

Modified: rt/3.8/trunk/t/web/attachments.t
==============================================================================
--- rt/3.8/trunk/t/web/attachments.t	(original)
+++ rt/3.8/trunk/t/web/attachments.t	Wed Jun 24 03:53:48 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 
-use RT::Test tests => 14;;
+use RT::Test tests => 14;
 
 use constant LogoFile => $RT::MasonComponentRoot .'/NoAuth/images/bplogo.gif';
 use constant FaviconFile => $RT::MasonComponentRoot .'/NoAuth/images/favicon.png';

Modified: rt/3.8/trunk/t/web/basic.t
==============================================================================
--- rt/3.8/trunk/t/web/basic.t	(original)
+++ rt/3.8/trunk/t/web/basic.t	Wed Jun 24 03:53:48 2009
@@ -6,7 +6,7 @@
 use LWP;
 use Encode;
 
-use RT::Test tests => 21;;
+use RT::Test tests => 21;
 my ($baseurl, $agent) = RT::Test->started_ok;
 $agent->cookie_jar( HTTP::Cookies->new );
 

Modified: rt/3.8/trunk/t/web/cf_access.t
==============================================================================
--- rt/3.8/trunk/t/web/cf_access.t	(original)
+++ rt/3.8/trunk/t/web/cf_access.t	Wed Jun 24 03:53:48 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 
-use RT::Test tests => 26;;
+use RT::Test tests => 26;
 $RT::Test::SKIP_REQUEST_WORK_AROUND = 1;
 
 my ($baseurl, $m) = RT::Test->started_ok;

Modified: rt/3.8/trunk/t/web/cf_onqueue.t
==============================================================================
--- rt/3.8/trunk/t/web/cf_onqueue.t	(original)
+++ rt/3.8/trunk/t/web/cf_onqueue.t	Wed Jun 24 03:53:48 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 
-use RT::Test tests => 14;;
+use RT::Test tests => 14;
 my ($baseurl, $m) = RT::Test->started_ok;
 
 ok $m->login, 'logged in';

Modified: rt/3.8/trunk/t/web/cf_select_one.t
==============================================================================
--- rt/3.8/trunk/t/web/cf_select_one.t	(original)
+++ rt/3.8/trunk/t/web/cf_select_one.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 41;;
+use RT::Test tests => 41;
 
 my ($baseurl, $m) = RT::Test->started_ok;
 ok $m->login, 'logged in as root';

Modified: rt/3.8/trunk/t/web/command_line.t
==============================================================================
--- rt/3.8/trunk/t/web/command_line.t	(original)
+++ rt/3.8/trunk/t/web/command_line.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 use File::Spec ();
 use Test::Expect;
-use RT::Test tests => 295;;
+use RT::Test tests => 295;
 my ($baseurl, $m) = RT::Test->started_ok;
 
 use RT::User;

Modified: rt/3.8/trunk/t/web/custom_frontpage.t
==============================================================================
--- rt/3.8/trunk/t/web/custom_frontpage.t	(original)
+++ rt/3.8/trunk/t/web/custom_frontpage.t	Wed Jun 24 03:53:48 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 
-use RT::Test tests => 7;;
+use RT::Test tests => 7;
 my ($baseurl, $m) = RT::Test->started_ok;
 
 my $url = $m->rt_base_url;

Modified: rt/3.8/trunk/t/web/custom_search.t
==============================================================================
--- rt/3.8/trunk/t/web/custom_search.t	(original)
+++ rt/3.8/trunk/t/web/custom_search.t	Wed Jun 24 03:53:48 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 
-use RT::Test tests => 11;;
+use RT::Test tests => 11;
 my ($baseurl, $m) = RT::Test->started_ok;
 my $url = $m->rt_base_url;
 

Modified: rt/3.8/trunk/t/web/dashboards-groups.t
==============================================================================
--- rt/3.8/trunk/t/web/dashboards-groups.t	(original)
+++ rt/3.8/trunk/t/web/dashboards-groups.t	Wed Jun 24 03:53:48 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 
-use RT::Test tests => 40;;
+use RT::Test tests => 40;
 my ($baseurl, $m) = RT::Test->started_ok;
 
 my $url = $m->rt_base_url;

Modified: rt/3.8/trunk/t/web/dashboards.t
==============================================================================
--- rt/3.8/trunk/t/web/dashboards.t	(original)
+++ rt/3.8/trunk/t/web/dashboards.t	Wed Jun 24 03:53:48 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 
-use RT::Test tests => 109;;
+use RT::Test tests => 109;
 my ($baseurl, $m) = RT::Test->started_ok;
 
 my $url = $m->rt_base_url;

Modified: rt/3.8/trunk/t/web/query_builder.t
==============================================================================
--- rt/3.8/trunk/t/web/query_builder.t	(original)
+++ rt/3.8/trunk/t/web/query_builder.t	Wed Jun 24 03:53:48 2009
@@ -5,7 +5,7 @@
 use HTTP::Cookies;
 use LWP;
 use Encode;
-use RT::Test tests => 42;;
+use RT::Test tests => 42;
 
 my $cookie_jar = HTTP::Cookies->new;
 my ($baseurl, $agent) = RT::Test->started_ok;

Modified: rt/3.8/trunk/t/web/quicksearch.t
==============================================================================
--- rt/3.8/trunk/t/web/quicksearch.t	(original)
+++ rt/3.8/trunk/t/web/quicksearch.t	Wed Jun 24 03:53:48 2009
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 7;;
+use RT::Test tests => 7;
 my ($baseurl, $m) = RT::Test->started_ok;
 my $url = $m->rt_base_url;
 

Modified: rt/3.8/trunk/t/web/rest-non-ascii-subject.t
==============================================================================
--- rt/3.8/trunk/t/web/rest-non-ascii-subject.t	(original)
+++ rt/3.8/trunk/t/web/rest-non-ascii-subject.t	Wed Jun 24 03:53:48 2009
@@ -2,7 +2,7 @@
 # Test ticket creation with REST using non ascii subject
 use strict;
 use warnings;
-use RT::Test tests => 7;;
+use RT::Test tests => 7;
 
 local $RT::Test::SKIP_REQUEST_WORK_AROUND = 1;
 

Modified: rt/3.8/trunk/t/web/rest.t
==============================================================================
--- rt/3.8/trunk/t/web/rest.t	(original)
+++ rt/3.8/trunk/t/web/rest.t	Wed Jun 24 03:53:48 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use RT::Test tests => 16;;
+use RT::Test tests => 16;
 
 my ($baseurl, $m) = RT::Test->started_ok;
 

Modified: rt/3.8/trunk/t/web/rights.t
==============================================================================
--- rt/3.8/trunk/t/web/rights.t	(original)
+++ rt/3.8/trunk/t/web/rights.t	Wed Jun 24 03:53:48 2009
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 14;;
+use RT::Test tests => 14;
 
 my ($baseurl, $m) = RT::Test->started_ok;
 ok $m->login, "logged in";

Modified: rt/3.8/trunk/t/web/rights1.t
==============================================================================
--- rt/3.8/trunk/t/web/rights1.t	(original)
+++ rt/3.8/trunk/t/web/rights1.t	Wed Jun 24 03:53:48 2009
@@ -2,7 +2,7 @@
 use strict;
 use HTTP::Cookies;
 
-use RT::Test tests => 35;;
+use RT::Test tests => 35;
 my ($baseurl, $agent) = RT::Test->started_ok;
 
 # Create a user with basically no rights, to start.

Modified: rt/3.8/trunk/t/web/ticket-create-utf8.t
==============================================================================
--- rt/3.8/trunk/t/web/ticket-create-utf8.t	(original)
+++ rt/3.8/trunk/t/web/ticket-create-utf8.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 8;;
+use RT::Test tests => 8;
 
 use Encode;
 

Modified: rt/3.8/trunk/t/web/ticket_owner.t
==============================================================================
--- rt/3.8/trunk/t/web/ticket_owner.t	(original)
+++ rt/3.8/trunk/t/web/ticket_owner.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 91;;
+use RT::Test tests => 91;
 
 my $queue = RT::Test->load_or_create_queue( Name => 'Regression' );
 ok $queue && $queue->id, 'loaded or created queue';

Modified: rt/3.8/trunk/t/web/ticket_seen.t
==============================================================================
--- rt/3.8/trunk/t/web/ticket_seen.t	(original)
+++ rt/3.8/trunk/t/web/ticket_seen.t	Wed Jun 24 03:53:48 2009
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use RT::Test tests => 16;;
+use RT::Test tests => 16;
 
 my $queue = RT::Test->load_or_create_queue( Name => 'Regression' );
 ok $queue && $queue->id, 'loaded or created queue';

Modified: rt/3.8/trunk/t/web/unlimited_search.t
==============================================================================
--- rt/3.8/trunk/t/web/unlimited_search.t	(original)
+++ rt/3.8/trunk/t/web/unlimited_search.t	Wed Jun 24 03:53:48 2009
@@ -2,7 +2,7 @@
 
 use strict;
 
-use RT::Test tests => 8;;
+use RT::Test tests => 8;
 RT::Test->started_ok;
 
 my $ticket = RT::Ticket->new($RT::SystemUser);


More information about the Rt-commit mailing list