[Rt-commit] r20042 - in rt/3.8/trunk/t: . api approval customfields delegation i18n mail shredder ticket validator web
sunnavy at bestpractical.com
sunnavy at bestpractical.com
Wed Jun 24 03:33:49 EDT 2009
Author: sunnavy
Date: Wed Jun 24 03:33:48 2009
New Revision: 20042
Modified:
rt/3.8/trunk/t/00-compile.t
rt/3.8/trunk/t/00-mason-syntax.t
rt/3.8/trunk/t/api/ace.t
rt/3.8/trunk/t/api/action-createtickets.t
rt/3.8/trunk/t/api/attachment.t
rt/3.8/trunk/t/api/attribute-tests.t
rt/3.8/trunk/t/api/attribute.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/cf_transaction.t
rt/3.8/trunk/t/api/condition-ownerchange.t
rt/3.8/trunk/t/api/condition-reject.t
rt/3.8/trunk/t/api/currentuser.t
rt/3.8/trunk/t/api/customfield.t
rt/3.8/trunk/t/api/date.t
rt/3.8/trunk/t/api/emailparser.t
rt/3.8/trunk/t/api/group.t
rt/3.8/trunk/t/api/groups.t
rt/3.8/trunk/t/api/i18n.t
rt/3.8/trunk/t/api/link.t
rt/3.8/trunk/t/api/queue.t
rt/3.8/trunk/t/api/record.t
rt/3.8/trunk/t/api/reminders.t
rt/3.8/trunk/t/api/rights.t
rt/3.8/trunk/t/api/rt.t
rt/3.8/trunk/t/api/scrip.t
rt/3.8/trunk/t/api/scrip_order.t
rt/3.8/trunk/t/api/searchbuilder.t
rt/3.8/trunk/t/api/system.t
rt/3.8/trunk/t/api/template-insert.t
rt/3.8/trunk/t/api/template.t
rt/3.8/trunk/t/api/ticket.t
rt/3.8/trunk/t/api/tickets.t
rt/3.8/trunk/t/api/tickets_overlay_sql.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/api/user.t
rt/3.8/trunk/t/api/users.t
rt/3.8/trunk/t/approval/basic.t
rt/3.8/trunk/t/clicky.t
rt/3.8/trunk/t/cron.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/delegation/cleanup_stalled.t
rt/3.8/trunk/t/delegation/revocation.t
rt/3.8/trunk/t/i18n/default.t
rt/3.8/trunk/t/mail/charsets-outgoing.t
rt/3.8/trunk/t/mail/crypt-gnupg.t
rt/3.8/trunk/t/mail/extractsubjecttag.t
rt/3.8/trunk/t/mail/gateway.t
rt/3.8/trunk/t/mail/gnupg-bad.t
rt/3.8/trunk/t/mail/gnupg-incoming.t
rt/3.8/trunk/t/mail/gnupg-realmail.t
rt/3.8/trunk/t/mail/gnupg-reverification.t
rt/3.8/trunk/t/mail/mime_decoding.t
rt/3.8/trunk/t/mail/sendmail.t
rt/3.8/trunk/t/mail/verp.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/shredder/00skeleton.t
rt/3.8/trunk/t/shredder/01basics.t
rt/3.8/trunk/t/shredder/01ticket.t
rt/3.8/trunk/t/shredder/02group_member.t
rt/3.8/trunk/t/shredder/02queue.t
rt/3.8/trunk/t/shredder/02template.t
rt/3.8/trunk/t/shredder/02user.t
rt/3.8/trunk/t/shredder/03plugin.t
rt/3.8/trunk/t/shredder/03plugin_summary.t
rt/3.8/trunk/t/shredder/03plugin_tickets.t
rt/3.8/trunk/t/shredder/03plugin_users.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/quicksearch.t
rt/3.8/trunk/t/ticket/requestor-order.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-custom-ownership.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/compilation_errors.t
rt/3.8/trunk/t/web/crypt-gnupg.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/gnupg-outgoing.t
rt/3.8/trunk/t/web/gnupg-select-keys-on-create.t
rt/3.8/trunk/t/web/gnupg-select-keys-on-update.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:
update tests, mostly use RT::Test tests => ... to replace Test::More test => ...
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:33:48 2009
@@ -2,8 +2,7 @@
use strict;
use warnings;
-use RT::Test nodata => 1;
-use Test::More 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:33:48 2009
@@ -3,8 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 1;
-use RT::Test ();
+use RT::Test tests => 1, tests => 1;;;
my $ok = 1;
Modified: rt/3.8/trunk/t/api/ace.t
==============================================================================
--- rt/3.8/trunk/t/api/ace.t (original)
+++ rt/3.8/trunk/t/api/ace.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 76;
use RT;
-use RT::Test;
+use RT::Test tests => 76;
{
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:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 49;
use RT;
-use RT::Test;
+use RT::Test tests => 49;
{
Modified: rt/3.8/trunk/t/api/attachment.t
==============================================================================
--- rt/3.8/trunk/t/api/attachment.t (original)
+++ rt/3.8/trunk/t/api/attachment.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 4;
use RT;
-use RT::Test;
+use RT::Test tests => 4;
{
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:33:48 2009
@@ -1,8 +1,7 @@
use strict;
use warnings;
-use Test::More tests => 34;
use RT;
-use RT::Test;
+use RT::Test tests => 34;;
Modified: rt/3.8/trunk/t/api/attribute.t
==============================================================================
--- rt/3.8/trunk/t/api/attribute.t (original)
+++ rt/3.8/trunk/t/api/attribute.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 7;
use RT;
-use RT::Test;
+use RT::Test tests => 7;
{
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:33:48 2009
@@ -2,9 +2,8 @@
use strict;
use warnings FATAL => 'all';
-use Test::More tests => 139;
-use RT::Test;
+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:33:48 2009
@@ -1,9 +1,8 @@
#!/usr/bin/perl
use warnings;
use strict;
-use Test::More tests => 11;
-use RT::Test;
+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:33:48 2009
@@ -2,10 +2,9 @@
use warnings;
use strict;
-use Test::More tests => 11;
use RT;
-use RT::Test nodata => 1;
+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:33:48 2009
@@ -1,10 +1,9 @@
#!/usr/bin/perl
use warnings;
use strict;
-use Test::More tests => 17;
use RT;
-use RT::Test;
+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:33:48 2009
@@ -1,10 +1,9 @@
#!/usr/bin/perl
use warnings;
use strict;
-use Test::More tests => 8;
use RT;
-use RT::Test;
+use RT::Test tests => 8;;
Modified: rt/3.8/trunk/t/api/cf_transaction.t
==============================================================================
--- rt/3.8/trunk/t/api/cf_transaction.t (original)
+++ rt/3.8/trunk/t/api/cf_transaction.t Wed Jun 24 03:33:48 2009
@@ -3,12 +3,10 @@
use warnings;
use strict;
use Data::Dumper;
-use Test::More;
-plan tests => 14;
use_ok('RT');
use_ok('RT::Transactions');
-use RT::Test;
+use RT::Test tests => 14;
my $q = RT::Queue->new($RT::SystemUser);
Modified: rt/3.8/trunk/t/api/condition-ownerchange.t
==============================================================================
--- rt/3.8/trunk/t/api/condition-ownerchange.t (original)
+++ rt/3.8/trunk/t/api/condition-ownerchange.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 11;
use RT;
-use RT::Test;
+use RT::Test tests => 11;
{
Modified: rt/3.8/trunk/t/api/condition-reject.t
==============================================================================
--- rt/3.8/trunk/t/api/condition-reject.t (original)
+++ rt/3.8/trunk/t/api/condition-reject.t Wed Jun 24 03:33:48 2009
@@ -4,10 +4,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 7;
use RT;
-use RT::Test;
+use RT::Test tests => 7;
{
Modified: rt/3.8/trunk/t/api/currentuser.t
==============================================================================
--- rt/3.8/trunk/t/api/currentuser.t (original)
+++ rt/3.8/trunk/t/api/currentuser.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 8;
use RT;
-use RT::Test;
+use RT::Test tests => 8;
{
Modified: rt/3.8/trunk/t/api/customfield.t
==============================================================================
--- rt/3.8/trunk/t/api/customfield.t (original)
+++ rt/3.8/trunk/t/api/customfield.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 29;
use RT;
-use RT::Test;
+use RT::Test tests => 29;
use Test::Warn;
Modified: rt/3.8/trunk/t/api/date.t
==============================================================================
--- rt/3.8/trunk/t/api/date.t (original)
+++ rt/3.8/trunk/t/api/date.t Wed Jun 24 03:33:48 2009
@@ -3,19 +3,23 @@
use Test::MockTime qw(set_fixed_time restore_time);
use Test::More;
-my $tests = 167;
-my $localized_datetime_tests = eval { require DateTime; 1; } && eval { require DateTime::Locale; 1; };
+my $tests;
-if ( $localized_datetime_tests ) {
- # Include RT::Date::LocalizedDateTime tests
- $tests += 7;
-}
+my $localized_datetime_tests;
+BEGIN {
+ $tests = 167;
+ $localized_datetime_tests =
+ eval { require DateTime; 1; } && eval { require DateTime::Locale; 1; };
-plan tests => $tests;
+ if ($localized_datetime_tests) {
+ # Include RT::Date::LocalizedDateTime tests
+ $tests += 7;
+ }
+}
use warnings; use strict;
-use RT::Test;
+use RT::Test tests => $tests;
use RT::User;
use Test::Warn;
Modified: rt/3.8/trunk/t/api/emailparser.t
==============================================================================
--- rt/3.8/trunk/t/api/emailparser.t (original)
+++ rt/3.8/trunk/t/api/emailparser.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 4;
use RT;
-use RT::Test;
+use RT::Test tests => 4;
{
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:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 38;
use RT;
-use RT::Test;
+use RT::Test tests => 38;
{
Modified: rt/3.8/trunk/t/api/groups.t
==============================================================================
--- rt/3.8/trunk/t/api/groups.t (original)
+++ rt/3.8/trunk/t/api/groups.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 28;
use RT;
-use RT::Test;
+use RT::Test tests => 28;
{
Modified: rt/3.8/trunk/t/api/i18n.t
==============================================================================
--- rt/3.8/trunk/t/api/i18n.t (original)
+++ rt/3.8/trunk/t/api/i18n.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 9;
use RT;
-use RT::Test;
+use RT::Test tests => 9;
{
Modified: rt/3.8/trunk/t/api/link.t
==============================================================================
--- rt/3.8/trunk/t/api/link.t (original)
+++ rt/3.8/trunk/t/api/link.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 5;
use RT;
-use RT::Test;
+use RT::Test tests => 5;
{
Modified: rt/3.8/trunk/t/api/queue.t
==============================================================================
--- rt/3.8/trunk/t/api/queue.t (original)
+++ rt/3.8/trunk/t/api/queue.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 24;
use RT;
-use RT::Test;
+use RT::Test tests => 24;
{
Modified: rt/3.8/trunk/t/api/record.t
==============================================================================
--- rt/3.8/trunk/t/api/record.t (original)
+++ rt/3.8/trunk/t/api/record.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 22;
use RT;
-use RT::Test;
+use RT::Test tests => 22;
{
Modified: rt/3.8/trunk/t/api/reminders.t
==============================================================================
--- rt/3.8/trunk/t/api/reminders.t (original)
+++ rt/3.8/trunk/t/api/reminders.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 20;
use RT;
-use RT::Test;
+use RT::Test tests => 20;
{
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:33:48 2009
@@ -47,9 +47,8 @@
#
# END BPS TAGGED BLOCK }}}
-use Test::More tests => 26;
use RT;
-use RT::Test;
+use RT::Test tests => 26;;
use RT::I18N;
use strict;
Modified: rt/3.8/trunk/t/api/rt.t
==============================================================================
--- rt/3.8/trunk/t/api/rt.t (original)
+++ rt/3.8/trunk/t/api/rt.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 4;
use RT;
-use RT::Test;
+use RT::Test tests => 4;
{
Modified: rt/3.8/trunk/t/api/scrip.t
==============================================================================
--- rt/3.8/trunk/t/api/scrip.t (original)
+++ rt/3.8/trunk/t/api/scrip.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 7;
use RT;
-use RT::Test;
+use RT::Test tests => 7;
{
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:33:48 2009
@@ -1,10 +1,9 @@
#!/usr/bin/perl -w
use strict;
-use Test::More tests => 7;
use RT;
-use RT::Test;
+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:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 11;
use RT;
-use RT::Test;
+use RT::Test tests => 11;
{
Modified: rt/3.8/trunk/t/api/system.t
==============================================================================
--- rt/3.8/trunk/t/api/system.t (original)
+++ rt/3.8/trunk/t/api/system.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 7;
use RT;
-use RT::Test;
+use RT::Test tests => 7;
{
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:33:48 2009
@@ -3,10 +3,9 @@
use warnings;
use strict;
-use Test::More tests => 7;
use RT;
-use RT::Test;
+use RT::Test tests => 7;;
Modified: rt/3.8/trunk/t/api/template.t
==============================================================================
--- rt/3.8/trunk/t/api/template.t (original)
+++ rt/3.8/trunk/t/api/template.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 2;
use RT;
-use RT::Test;
+use RT::Test tests => 2;
{
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:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 87;
use RT;
-use RT::Test;
+use RT::Test tests => 87;
{
Modified: rt/3.8/trunk/t/api/tickets.t
==============================================================================
--- rt/3.8/trunk/t/api/tickets.t (original)
+++ rt/3.8/trunk/t/api/tickets.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 16;
use RT;
-use RT::Test;
+use RT::Test tests => 16;
{
Modified: rt/3.8/trunk/t/api/tickets_overlay_sql.t
==============================================================================
--- rt/3.8/trunk/t/api/tickets_overlay_sql.t (original)
+++ rt/3.8/trunk/t/api/tickets_overlay_sql.t Wed Jun 24 03:33:48 2009
@@ -1,8 +1,6 @@
-use Test::More;
-plan tests => 7;
use RT;
-use RT::Test;
+use RT::Test tests => 7;
{
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:33:48 2009
@@ -1,8 +1,7 @@
use strict;
use warnings;
-use Test::More tests => 8;
use RT;
-use RT::Test;
+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:33:48 2009
@@ -1,8 +1,7 @@
use strict;
use warnings;
-use Test::More tests => 6;
use RT;
-use RT::Test;
+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/api/user.t
==============================================================================
--- rt/3.8/trunk/t/api/user.t (original)
+++ rt/3.8/trunk/t/api/user.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 108;
use RT;
-use RT::Test;
+use RT::Test tests => 108;
{
Modified: rt/3.8/trunk/t/api/users.t
==============================================================================
--- rt/3.8/trunk/t/api/users.t (original)
+++ rt/3.8/trunk/t/api/users.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 11;
use RT;
-use RT::Test;
+use RT::Test tests => 11;
{
Modified: rt/3.8/trunk/t/approval/basic.t
==============================================================================
--- rt/3.8/trunk/t/approval/basic.t (original)
+++ rt/3.8/trunk/t/approval/basic.t Wed Jun 24 03:33:48 2009
@@ -2,16 +2,14 @@
use strict;
use warnings;
use Test::More;
-
BEGIN {
eval { require Email::Abstract; require Test::Email; 1 }
or plan skip_all => 'require Email::Abstract and Test::Email';
}
-plan tests => 39;
use RT;
-use RT::Test;
+use RT::Test tests => 39;
use RT::Test::Email;
RT->Config->Set( LogToScreen => 'debug' );
Modified: rt/3.8/trunk/t/clicky.t
==============================================================================
--- rt/3.8/trunk/t/clicky.t (original)
+++ rt/3.8/trunk/t/clicky.t Wed Jun 24 03:33:48 2009
@@ -2,18 +2,24 @@
use strict;
use warnings;
-
use Test::More;
+use RT::Test tests => 14;
+my %clicky;
+
+BEGIN {
+ %clicky = map { $_ => 1 } grep $_, RT->Config->Get('Active_MakeClicky');
-my %clicky = map { $_ => 1 } grep $_, RT->Config->Get('Active_MakeClicky');
-if ( keys %clicky ) {
- plan tests => 14;
-} else {
- plan skip_all => 'No active Make Clicky actions';
+# this's hack: we have to use RT::Test first to get RT->Config work, this
+# results in the fact that we can't plan any more
+ unless ( keys %clicky ) {
+ SKIP: {
+ skip "No active Make Clicky actions", 14;
+ }
+ exit 0;
+ }
}
-use RT::Test;
my ($baseurl, $m) = RT::Test->started_ok;
use_ok('MIME::Entity');
Modified: rt/3.8/trunk/t/cron.t
==============================================================================
--- rt/3.8/trunk/t/cron.t (original)
+++ rt/3.8/trunk/t/cron.t Wed Jun 24 03:33:48 2009
@@ -1,11 +1,9 @@
#!/usr/bin/perl -w
use strict;
-use Test::More;
-plan tests => 18;
use RT;
-use RT::Test;
+use RT::Test tests => 18;
### Set up some testing data. Test the testing data because why not?
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:33:48 2009
@@ -3,8 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 35;
-use RT::Test;
+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:33:48 2009
@@ -3,8 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 18;
-use RT::Test;
+use RT::Test tests => 18;;
use RT::Ticket;
use RT::CustomField;
Modified: rt/3.8/trunk/t/delegation/cleanup_stalled.t
==============================================================================
--- rt/3.8/trunk/t/delegation/cleanup_stalled.t (original)
+++ rt/3.8/trunk/t/delegation/cleanup_stalled.t Wed Jun 24 03:33:48 2009
@@ -12,12 +12,10 @@
# The case where the "parent" delegated ACE is removed is handled in
# the embedded regression tests in lib/RT/ACE_Overlay.pm .
-use Test::More;
-plan tests => 98;
use RT;
-use RT::Test;
+use RT::Test tests => 98;
my ($u1, $u2, $g1, $g2, $g3, $pg1, $pg2, $ace, @groups, @users, @principals);
@groups = (\$g1, \$g2, \$g3, \$pg1, \$pg2);
Modified: rt/3.8/trunk/t/delegation/revocation.t
==============================================================================
--- rt/3.8/trunk/t/delegation/revocation.t (original)
+++ rt/3.8/trunk/t/delegation/revocation.t Wed Jun 24 03:33:48 2009
@@ -2,12 +2,10 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 22;
use RT;
-use RT::Test;
+use RT::Test tests => 22;
my ($u1, $g1, $pg1, $pg2, $ace, @groups, @users, @principals);
@groups = (\$g1, \$pg1, \$pg2);
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:33:48 2009
@@ -2,8 +2,7 @@
use strict;
use warnings;
-use Test::More tests => 8;
-use RT::Test;
+use RT::Test tests => 8;;
my ($baseurl, $m) = RT::Test->started_ok;
$m->get_ok('/');
Modified: rt/3.8/trunk/t/mail/charsets-outgoing.t
==============================================================================
--- rt/3.8/trunk/t/mail/charsets-outgoing.t (original)
+++ rt/3.8/trunk/t/mail/charsets-outgoing.t Wed Jun 24 03:33:48 2009
@@ -3,10 +3,8 @@
use warnings;
use utf8;
-use Test::More;
-use RT::Test;
+use RT::Test tests => 30;
-plan tests => 30;
RT::Test->set_mail_catcher;
Modified: rt/3.8/trunk/t/mail/crypt-gnupg.t
==============================================================================
--- rt/3.8/trunk/t/mail/crypt-gnupg.t (original)
+++ rt/3.8/trunk/t/mail/crypt-gnupg.t Wed Jun 24 03:33:48 2009
@@ -2,15 +2,13 @@
use strict;
use warnings;
-use Test::More;
-use RT::Test nodata => 1;
+use RT::Test nodata => 1, tests => 92;
plan skip_all => 'GnuPG required.'
unless eval 'use GnuPG::Interface; 1';
plan skip_all => 'gpg executable is required.'
unless RT::Test->find_executable('gpg');
-plan tests => 92;
use File::Spec ();
use Cwd;
Modified: rt/3.8/trunk/t/mail/extractsubjecttag.t
==============================================================================
--- rt/3.8/trunk/t/mail/extractsubjecttag.t (original)
+++ rt/3.8/trunk/t/mail/extractsubjecttag.t Wed Jun 24 03:33:48 2009
@@ -3,10 +3,8 @@
use warnings;
use utf8;
-use Test::More;
-use RT::Test;
+use RT::Test tests => 14;
-plan tests => 14;
my ($baseurl, $m) = RT::Test->started_ok;
RT::Test->set_mail_catcher;
Modified: rt/3.8/trunk/t/mail/gateway.t
==============================================================================
--- rt/3.8/trunk/t/mail/gateway.t (original)
+++ rt/3.8/trunk/t/mail/gateway.t Wed Jun 24 03:33:48 2009
@@ -56,9 +56,8 @@
use strict;
use warnings;
-use Test::More tests => 159;
-use RT::Test config => 'Set( $UnsafeEmailCommands, 1);';
+use RT::Test config => 'Set( $UnsafeEmailCommands, 1), tests => 159;;';
my ($baseurl, $m) = RT::Test->started_ok;
use RT::Tickets;
Modified: rt/3.8/trunk/t/mail/gnupg-bad.t
==============================================================================
--- rt/3.8/trunk/t/mail/gnupg-bad.t (original)
+++ rt/3.8/trunk/t/mail/gnupg-bad.t Wed Jun 24 03:33:48 2009
@@ -2,15 +2,13 @@
use strict;
use warnings;
-use Test::More;
-use RT::Test;
+use RT::Test tests => 6;
plan skip_all => 'GnuPG required.'
unless eval 'use GnuPG::Interface; 1';
plan skip_all => 'gpg executable is required.'
unless RT::Test->find_executable('gpg');
-plan tests => 6;
use Cwd 'getcwd';
Modified: rt/3.8/trunk/t/mail/gnupg-incoming.t
==============================================================================
--- rt/3.8/trunk/t/mail/gnupg-incoming.t (original)
+++ rt/3.8/trunk/t/mail/gnupg-incoming.t Wed Jun 24 03:33:48 2009
@@ -2,15 +2,13 @@
use strict;
use warnings;
-use Test::More;
-use RT::Test;
+use RT::Test tests => 46;
plan skip_all => 'GnuPG required.'
unless eval 'use GnuPG::Interface; 1';
plan skip_all => 'gpg executable is required.'
unless RT::Test->find_executable('gpg');
-plan tests => 46;
use File::Temp;
use Cwd 'getcwd';
Modified: rt/3.8/trunk/t/mail/gnupg-realmail.t
==============================================================================
--- rt/3.8/trunk/t/mail/gnupg-realmail.t (original)
+++ rt/3.8/trunk/t/mail/gnupg-realmail.t Wed Jun 24 03:33:48 2009
@@ -2,15 +2,13 @@
use strict;
use warnings;
-use Test::More;
-use RT::Test;
+use RT::Test tests => 197;
plan skip_all => 'GnuPG required.'
unless eval 'use GnuPG::Interface; 1';
plan skip_all => 'gpg executable is required.'
unless RT::Test->find_executable('gpg');
-plan tests => 197;
use Digest::MD5 qw(md5_hex);
Modified: rt/3.8/trunk/t/mail/gnupg-reverification.t
==============================================================================
--- rt/3.8/trunk/t/mail/gnupg-reverification.t (original)
+++ rt/3.8/trunk/t/mail/gnupg-reverification.t Wed Jun 24 03:33:48 2009
@@ -2,15 +2,13 @@
use strict;
use warnings;
-use Test::More;
-use RT::Test;
+use RT::Test tests => 120;
plan skip_all => 'GnuPG required.'
unless eval 'use GnuPG::Interface; 1';
plan skip_all => 'gpg executable is required.'
unless RT::Test->find_executable('gpg');
-plan tests => 120;
use File::Temp qw(tempdir);
my $homedir = tempdir( CLEANUP => 1 );
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:33:48 2009
@@ -1,8 +1,7 @@
#!/usr/bin/perl
use strict;
use warnings;
-use Test::More tests => 6;
-use RT::Test nodata => 1;
+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:33:48 2009
@@ -1,10 +1,9 @@
#!/usr/bin/perl -w
use strict;
-use Test::More tests => 137;
use File::Spec ();
-use RT::Test;
+use RT::Test tests => 137;;
use RT::EmailParser;
use RT::Tickets;
Modified: rt/3.8/trunk/t/mail/verp.t
==============================================================================
--- rt/3.8/trunk/t/mail/verp.t (original)
+++ rt/3.8/trunk/t/mail/verp.t Wed Jun 24 03:33:48 2009
@@ -1,8 +1,7 @@
#!/usr/bin/perl -w
use strict;
-use Test::More tests => 1;
-
+use RT::Test tests => 1;
TODO: {
todo_skip "No tests written for VERP yet", 1;
ok(1,"a test to skip");
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:33:48 2009
@@ -2,9 +2,8 @@
use warnings;
use strict;
-use Test::More tests => 31;
use RT;
-use RT::Test;
+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:33:48 2009
@@ -1,9 +1,8 @@
#!/usr/bin/perl
use strict;
use warnings;
-use Test::More tests => 9;
-use RT::Test nodata => 1;
+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:33:48 2009
@@ -2,7 +2,6 @@
use warnings;
BEGIN { $ENV{'LANG'} = 'C' }
use RT;
-use Test::More tests => 27;
use RT::User;
use RT::Group;
use RT::Ticket;
@@ -10,7 +9,7 @@
use_ok('RT::SavedSearch');
use_ok('RT::SavedSearches');
-use RT::Test;
+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:33:48 2009
@@ -1,8 +1,7 @@
use strict;
use warnings;
use File::Spec;
-use Test::More tests => 11;
-use RT::Test ();
+use RT::Test tests => 11, tests => 11;;;
BEGIN {
my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
Modified: rt/3.8/trunk/t/shredder/00skeleton.t
==============================================================================
--- rt/3.8/trunk/t/shredder/00skeleton.t (original)
+++ rt/3.8/trunk/t/shredder/00skeleton.t Wed Jun 24 03:33:48 2009
@@ -3,10 +3,9 @@
use strict;
use warnings;
-use Test::More;
use Test::Deep;
use File::Spec;
-use RT::Test ();
+use RT::Test tests => 1, tests => 1;
BEGIN {
my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
@@ -14,7 +13,6 @@
}
init_db();
-plan tests => 1;
create_savepoint('clean'); # backup of the clean RT DB
my $shredder = shredder_new(); # new shredder object
Modified: rt/3.8/trunk/t/shredder/01basics.t
==============================================================================
--- rt/3.8/trunk/t/shredder/01basics.t (original)
+++ rt/3.8/trunk/t/shredder/01basics.t Wed Jun 24 03:33:48 2009
@@ -3,10 +3,9 @@
use strict;
use warnings;
-use Test::More;
use Test::Deep;
use File::Spec;
-use RT::Test ();
+use RT::Test tests => 3, tests => 3;
BEGIN {
my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
@@ -14,7 +13,6 @@
}
init_db();
-plan tests => 3;
create_savepoint();
Modified: rt/3.8/trunk/t/shredder/01ticket.t
==============================================================================
--- rt/3.8/trunk/t/shredder/01ticket.t (original)
+++ rt/3.8/trunk/t/shredder/01ticket.t Wed Jun 24 03:33:48 2009
@@ -3,12 +3,10 @@
use strict;
use warnings;
-use Test::More;
use Test::Deep;
use File::Spec;
-use RT::Test ();
+use RT::Test tests => 15, tests => 15;
-plan tests => 15;
BEGIN {
my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
Modified: rt/3.8/trunk/t/shredder/02group_member.t
==============================================================================
--- rt/3.8/trunk/t/shredder/02group_member.t (original)
+++ rt/3.8/trunk/t/shredder/02group_member.t Wed Jun 24 03:33:48 2009
@@ -3,10 +3,9 @@
use strict;
use warnings;
-use Test::More;
use Test::Deep;
use File::Spec;
-use RT::Test ();
+use RT::Test tests => 22, tests => 22;
BEGIN {
my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
@@ -14,7 +13,6 @@
}
init_db();
-plan tests => 22;
### nested membership check
{
Modified: rt/3.8/trunk/t/shredder/02queue.t
==============================================================================
--- rt/3.8/trunk/t/shredder/02queue.t (original)
+++ rt/3.8/trunk/t/shredder/02queue.t Wed Jun 24 03:33:48 2009
@@ -3,10 +3,9 @@
use strict;
use warnings;
-use Test::More;
use Test::Deep;
use File::Spec;
-use RT::Test ();
+use RT::Test tests => 16, tests => 16;
BEGIN {
my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
@@ -14,7 +13,6 @@
}
init_db();
-plan tests => 16;
diag 'simple queue' if $ENV{'TEST_VERBOSE'};
{
Modified: rt/3.8/trunk/t/shredder/02template.t
==============================================================================
--- rt/3.8/trunk/t/shredder/02template.t (original)
+++ rt/3.8/trunk/t/shredder/02template.t Wed Jun 24 03:33:48 2009
@@ -3,10 +3,9 @@
use strict;
use warnings;
-use Test::More;
use Test::Deep;
use File::Spec;
-use RT::Test ();
+use RT::Test tests => 7, tests => 7;
BEGIN {
my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
@@ -14,7 +13,6 @@
}
init_db();
-plan tests => 7;
diag 'global template' if $ENV{'TEST_VERBOSE'};
{
Modified: rt/3.8/trunk/t/shredder/02user.t
==============================================================================
--- rt/3.8/trunk/t/shredder/02user.t (original)
+++ rt/3.8/trunk/t/shredder/02user.t Wed Jun 24 03:33:48 2009
@@ -3,10 +3,9 @@
use strict;
use warnings;
-use Test::More;
use Test::Deep;
use File::Spec;
-use RT::Test ();
+use RT::Test tests => 8, tests => 8;
BEGIN {
my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
@@ -14,7 +13,6 @@
}
init_db();
-plan tests => 8;
create_savepoint('clean');
Modified: rt/3.8/trunk/t/shredder/03plugin.t
==============================================================================
--- rt/3.8/trunk/t/shredder/03plugin.t (original)
+++ rt/3.8/trunk/t/shredder/03plugin.t Wed Jun 24 03:33:48 2009
@@ -3,10 +3,9 @@
use strict;
use warnings;
-use Test::More;
use Test::Deep;
use File::Spec;
-use RT::Test ();
+use RT::Test tests => 28;
BEGIN {
my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
@@ -14,7 +13,6 @@
}
my @PLUGINS = sort qw(Attachments Base Objects SQLDump Summary Tickets Users);
-plan tests => 7 + 3 * @PLUGINS;
use_ok('RT::Shredder::Plugin');
{
Modified: rt/3.8/trunk/t/shredder/03plugin_summary.t
==============================================================================
--- rt/3.8/trunk/t/shredder/03plugin_summary.t (original)
+++ rt/3.8/trunk/t/shredder/03plugin_summary.t Wed Jun 24 03:33:48 2009
@@ -3,17 +3,15 @@
use strict;
use warnings;
-use Test::More;
use Test::Deep;
use File::Spec;
-use RT::Test ();
+use RT::Test tests => 4, tests => 4;
BEGIN {
my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
require $shredder_utils;
}
-plan tests => 4;
use_ok('RT::Shredder::Plugin');
my $plugin_obj = new RT::Shredder::Plugin;
Modified: rt/3.8/trunk/t/shredder/03plugin_tickets.t
==============================================================================
--- rt/3.8/trunk/t/shredder/03plugin_tickets.t (original)
+++ rt/3.8/trunk/t/shredder/03plugin_tickets.t Wed Jun 24 03:33:48 2009
@@ -3,17 +3,15 @@
use strict;
use warnings;
-use Test::More;
use Test::Deep;
use File::Spec;
-use RT::Test ();
+use RT::Test tests => 44, tests => 44;
BEGIN {
my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
require $shredder_utils;
}
-plan tests => 44;
use_ok('RT::Shredder::Plugin::Tickets');
{
Modified: rt/3.8/trunk/t/shredder/03plugin_users.t
==============================================================================
--- rt/3.8/trunk/t/shredder/03plugin_users.t (original)
+++ rt/3.8/trunk/t/shredder/03plugin_users.t Wed Jun 24 03:33:48 2009
@@ -3,17 +3,15 @@
use strict;
use warnings;
-use Test::More;
use Test::Deep;
use File::Spec;
-use RT::Test ();
+use RT::Test tests => 9, tests => 9;
BEGIN {
my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
File::Spec->curdir());
require $shredder_utils;
}
-plan tests => 9;
my @ARGS = sort qw(limit status name email replace_relations no_tickets);
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:33:48 2009
@@ -3,9 +3,8 @@
use strict;
use warnings;
-use Test::More tests => 17;
use RT;
-use RT::Test;
+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:33:48 2009
@@ -45,8 +45,7 @@
#
# END BPS TAGGED BLOCK }}}
-use Test::More tests => 32;
-use RT::Test;
+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:33:48 2009
@@ -1,8 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 12;
-use RT::Test;
+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:33:48 2009
@@ -1,9 +1,8 @@
#!/usr/bin/perl -w
use strict; use warnings;
-use Test::More tests => 12;
use_ok('RT');
-use RT::Test;
+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:33:48 2009
@@ -1,7 +1,6 @@
#!/usr/bin/perl
-use Test::More tests => 24;
-use RT::Test;
+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:33:48 2009
@@ -1,7 +1,6 @@
#!/usr/bin/perl
-use Test::More tests => 57;
-use RT::Test;
+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:33:48 2009
@@ -1,11 +1,10 @@
-use Test::More tests => 18;
use strict;
use warnings;
use_ok('RT');
use_ok('RT::Ticket');
-use RT::Test;
+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:33:48 2009
@@ -1,11 +1,10 @@
#!/usr/bin/perl -w
-use Test::More tests => 63;
use strict;
use RT;
# Load the config file
-use RT::Test;
+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:33:48 2009
@@ -1,4 +1,3 @@
-use Test::More tests => '101';
use strict;
use warnings;
@@ -10,7 +9,7 @@
use_ok('RT::Template');
use_ok('RT::Scrips');
use_ok('RT::Scrip');
-use RT::Test;
+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:33:48 2009
@@ -3,10 +3,9 @@
use strict;
use warnings;
-use Test::More tests => '17';
use RT;
-use RT::Test;
+use RT::Test tests => '17';;
# validate that when merging two tickets, the comments from both tickets
Modified: rt/3.8/trunk/t/ticket/quicksearch.t
==============================================================================
--- rt/3.8/trunk/t/ticket/quicksearch.t (original)
+++ rt/3.8/trunk/t/ticket/quicksearch.t Wed Jun 24 03:33:48 2009
@@ -4,10 +4,8 @@
use strict;
use warnings;
-use Test::More;
-plan tests => 10;
use_ok('RT');
-use RT::Test;
+use RT::Test tests => 10;
my $q = RT::Queue->new($RT::SystemUser);
Modified: rt/3.8/trunk/t/ticket/requestor-order.t
==============================================================================
--- rt/3.8/trunk/t/ticket/requestor-order.t (original)
+++ rt/3.8/trunk/t/ticket/requestor-order.t Wed Jun 24 03:33:48 2009
@@ -1,10 +1,8 @@
#!/usr/bin/perl -w
use strict; use warnings;
-use Test::More;
-plan tests => 58;
use_ok('RT');
-use RT::Test;
+use RT::Test tests => 58;
use RT::Ticket;
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:33:48 2009
@@ -1,11 +1,10 @@
-use Test::More tests => '19';
use strict;
use warnings;
use_ok('RT');
use_ok('RT::Ticket');
-use RT::Test;
+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:33:48 2009
@@ -6,8 +6,7 @@
use strict;
use warnings;
-use Test::More tests => 43;
-use RT::Test;
+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:33:48 2009
@@ -3,8 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 105;
-use RT::Test;
+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:33:48 2009
@@ -3,8 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 99;
-use RT::Test;
+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:33:48 2009
@@ -3,8 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 80;
-use RT::Test;
+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:33:48 2009
@@ -3,11 +3,10 @@
use warnings;
use strict;
-use Test::More tests => 10;
BEGIN{ $ENV{'TZ'} = 'GMT'};
-use RT::Test;
+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:33:48 2009
@@ -3,8 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 119;
-use RT::Test;
+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:33:48 2009
@@ -6,8 +6,7 @@
use strict;
use warnings;
-use Test::More tests => 10;
-use RT::Test;
+use RT::Test tests => 10;;
# setup the queue
Modified: rt/3.8/trunk/t/ticket/sort-by-custom-ownership.t
==============================================================================
--- rt/3.8/trunk/t/ticket/sort-by-custom-ownership.t (original)
+++ rt/3.8/trunk/t/ticket/sort-by-custom-ownership.t Wed Jun 24 03:33:48 2009
@@ -1,9 +1,7 @@
#!/usr/bin/perl
-use Test::More;
-plan tests => 7;
use RT;
-use RT::Test;
+use RT::Test tests => 7;
use strict;
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:33:48 2009
@@ -1,7 +1,6 @@
#!/usr/bin/perl
-use Test::More tests => 8;
-use RT::Test;
+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:33:48 2009
@@ -1,7 +1,6 @@
#!/usr/bin/perl
-use Test::More tests => 32;
-use RT::Test;
+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:33:48 2009
@@ -1,7 +1,6 @@
#!/usr/bin/perl
-use Test::More tests => 21;
-use RT::Test;
+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:33:48 2009
@@ -3,8 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 60;
-use RT::Test;
+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:33:48 2009
@@ -1,8 +1,7 @@
#!/usr/bin/perl -w
use strict;
-use Test::More tests => 14;
-use RT::Test;
+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:33:48 2009
@@ -1,13 +1,12 @@
#!/usr/bin/perl
use strict;
-use Test::More tests => 21;
use HTTP::Request::Common;
use HTTP::Cookies;
use LWP;
use Encode;
-use RT::Test;
+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:33:48 2009
@@ -1,8 +1,7 @@
#!/usr/bin/perl -w
use strict;
-use Test::More tests => 26;
-use RT::Test;
+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:33:48 2009
@@ -1,8 +1,7 @@
#!/usr/bin/perl -w
use strict;
-use Test::More tests => 14;
-use RT::Test;
+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:33:48 2009
@@ -3,8 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 41;
-use RT::Test;
+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:33:48 2009
@@ -3,8 +3,7 @@
use strict;
use File::Spec ();
use Test::Expect;
-use Test::More tests => 295;
-use RT::Test;
+use RT::Test tests => 295;;
my ($baseurl, $m) = RT::Test->started_ok;
use RT::User;
Modified: rt/3.8/trunk/t/web/compilation_errors.t
==============================================================================
--- rt/3.8/trunk/t/web/compilation_errors.t (original)
+++ rt/3.8/trunk/t/web/compilation_errors.t Wed Jun 24 03:33:48 2009
@@ -2,9 +2,17 @@
use strict;
use Test::More;
-my $tests = 7;
-find ( sub { wanted() and $tests += 4 } , 'share/html/');
-plan tests => $tests;
+use File::Find;
+BEGIN {
+ sub wanted {
+ -f && /\.html$/ && $_ !~ /Logout.html$/;
+ }
+ my $tests = 7;
+ find( sub { wanted() and $tests += 4 }, 'share/html/' );
+ plan tests => $tests;
+}
+
+
use HTTP::Request::Common;
use HTTP::Cookies;
use LWP;
@@ -41,13 +49,8 @@
like( $agent->{'content'} , qr/Logout/i, "Found a logout link");
-use File::Find;
find ( sub { wanted() and test_get($File::Find::name) } , 'share/html/');
-sub wanted {
- -f && /\.html$/ && $_ !~ /Logout.html$/;
-}
-
sub test_get {
my $file = shift;
Modified: rt/3.8/trunk/t/web/crypt-gnupg.t
==============================================================================
--- rt/3.8/trunk/t/web/crypt-gnupg.t (original)
+++ rt/3.8/trunk/t/web/crypt-gnupg.t Wed Jun 24 03:33:48 2009
@@ -1,15 +1,13 @@
#!/usr/bin/perl -w
use strict;
-use Test::More;
-use RT::Test;
+use RT::Test tests => 94;
plan skip_all => 'GnuPG required.'
unless eval 'use GnuPG::Interface; 1';
plan skip_all => 'gpg executable is required.'
unless RT::Test->find_executable('gpg');
-plan tests => 94;
use RT::Action::SendEmail;
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:33:48 2009
@@ -1,8 +1,7 @@
#!/usr/bin/perl -w
use strict;
-use Test::More tests => 7;
-use RT::Test;
+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:33:48 2009
@@ -1,8 +1,7 @@
#!/usr/bin/perl -w
use strict;
-use Test::More tests => 11;
-use RT::Test;
+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:33:48 2009
@@ -1,8 +1,7 @@
#!/usr/bin/perl -w
use strict;
-use Test::More tests => 40;
-use RT::Test;
+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:33:48 2009
@@ -1,8 +1,7 @@
#!/usr/bin/perl -w
use strict;
-use Test::More tests => 109;
-use RT::Test;
+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/gnupg-outgoing.t
==============================================================================
--- rt/3.8/trunk/t/web/gnupg-outgoing.t (original)
+++ rt/3.8/trunk/t/web/gnupg-outgoing.t Wed Jun 24 03:33:48 2009
@@ -2,15 +2,13 @@
use strict;
use warnings;
-use Test::More;
-use RT::Test;
+use RT::Test tests => 492;
plan skip_all => 'GnuPG required.'
unless eval 'use GnuPG::Interface; 1';
plan skip_all => 'gpg executable is required.'
unless RT::Test->find_executable('gpg');
-plan tests => 492;
use RT::Action::SendEmail;
use File::Temp qw(tempdir);
Modified: rt/3.8/trunk/t/web/gnupg-select-keys-on-create.t
==============================================================================
--- rt/3.8/trunk/t/web/gnupg-select-keys-on-create.t (original)
+++ rt/3.8/trunk/t/web/gnupg-select-keys-on-create.t Wed Jun 24 03:33:48 2009
@@ -2,15 +2,13 @@
use strict;
use warnings;
-use Test::More;
-use RT::Test;
+use RT::Test tests => 60;
plan skip_all => 'GnuPG required.'
unless eval 'use GnuPG::Interface; 1';
plan skip_all => 'gpg executable is required.'
unless RT::Test->find_executable('gpg');
-plan tests => 60;
use RT::Action::SendEmail;
use File::Temp qw(tempdir);
Modified: rt/3.8/trunk/t/web/gnupg-select-keys-on-update.t
==============================================================================
--- rt/3.8/trunk/t/web/gnupg-select-keys-on-update.t (original)
+++ rt/3.8/trunk/t/web/gnupg-select-keys-on-update.t Wed Jun 24 03:33:48 2009
@@ -2,15 +2,13 @@
use strict;
use warnings;
-use Test::More;
-use RT::Test;
+use RT::Test tests => 68;
plan skip_all => 'GnuPG required.'
unless eval 'use GnuPG::Interface; 1';
plan skip_all => 'gpg executable is required.'
unless RT::Test->find_executable('gpg');
-plan tests => 68;
use RT::Action::SendEmail;
use File::Temp qw(tempdir);
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:33:48 2009
@@ -1,12 +1,11 @@
#!/usr/bin/perl
use strict;
-use Test::More tests => 42;
use HTTP::Request::Common;
use HTTP::Cookies;
use LWP;
use Encode;
-use RT::Test;
+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:33:48 2009
@@ -2,8 +2,7 @@
use strict;
use warnings;
-use Test::More tests => 7;
-use RT::Test;
+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:33:48 2009
@@ -2,8 +2,7 @@
# Test ticket creation with REST using non ascii subject
use strict;
use warnings;
-use Test::More tests => 7;
-use RT::Test;
+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:33:48 2009
@@ -1,8 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 16;
-use RT::Test;
+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:33:48 2009
@@ -2,8 +2,7 @@
use strict;
use warnings;
-use Test::More tests => 14;
-use RT::Test;
+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:33:48 2009
@@ -2,8 +2,7 @@
use strict;
use HTTP::Cookies;
-use Test::More tests => 35;
-use RT::Test;
+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:33:48 2009
@@ -3,8 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 8;
-use RT::Test;
+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:33:48 2009
@@ -3,8 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 91;
-use RT::Test;
+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:33:48 2009
@@ -3,8 +3,7 @@
use strict;
use warnings;
-use Test::More tests => 16;
-use RT::Test;
+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:33:48 2009
@@ -1,9 +1,8 @@
#!/usr/bin/perl
use strict;
-use Test::More tests => 8;
-use RT::Test;
+use RT::Test tests => 8;;
RT::Test->started_ok;
my $ticket = RT::Ticket->new($RT::SystemUser);
More information about the Rt-commit
mailing list