[Bps-public-commit] r19092 - in RT-Extension-MergeUsers/trunk: .

[falcone at bestpractical.com]

Author: falcone
Date: Tue Apr  7 17:29:55 2009
New Revision: 19092

Modified:
   RT-Extension-MergeUsers/trunk/   (props changed)
   RT-Extension-MergeUsers/trunk/t/01merge_users.t
   RT-Extension-MergeUsers/trunk/t/change_email.t

Log:
 r46248 at ketch:  falcone | 2009-04-07 17:06:49 -0400
 * use 3.8 testing framework


Modified: RT-Extension-MergeUsers/trunk/t/01merge_users.t
==============================================================================
--- RT-Extension-MergeUsers/trunk/t/01merge_users.t	(original)
+++ RT-Extension-MergeUsers/trunk/t/01merge_users.t	Tue Apr  7 17:29:55 2009
@@ -1,14 +1,10 @@
 #!/sw/bin/perl5.8.6
 
 use strict;
-#use Test::More qw/no_plan/;
 use Test::More tests => 16;
+use RT::Test;
 
-use RT;
-RT::LoadConfig();
-RT::Init;
-
-use RT::Extension::MergeUsers;
+RT->Config->Set('Plugins',qw(RT::Extension::MergeUsers));
 
 my ($id, $message);
 

Modified: RT-Extension-MergeUsers/trunk/t/change_email.t
==============================================================================
--- RT-Extension-MergeUsers/trunk/t/change_email.t	(original)
+++ RT-Extension-MergeUsers/trunk/t/change_email.t	Tue Apr  7 17:29:55 2009
@@ -2,20 +2,14 @@
 
 use strict;
 use warnings;
-use lib qw(/opt/rt3/local/lib /opt/rt3/lib);
 use Test::More tests => 8;
+use RT::Test;
 
-use RT;
-RT::LoadConfig();
-RT::Init;
-
-use RT::Extension::MergeUsers;
+RT->Config->Set('Plugins',qw(RT::Extension::MergeUsers));
+use_ok('RT::Extension::MergeUsers');
 
 my ($id, $message);
 
-# make sure the extension is installed
-use_ok('RT::Extension::MergeUsers');
-
 # create N unique users  ($$ == our pid)
 my $primary_user = RT::User->new($RT::SystemUser);
 ($id, $message) = $primary_user->Create( EmailAddress => "primary-$$\@example.com" );