Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

use 3.8 testing framework

  • Loading branch information...
commit 30021ccc285cb5adc95498f2f6955988d627c9e7 1 parent 6eedc30
Kevin Falcone authored
Showing with 5 additions and 15 deletions.
  1. +2 −6 t/01merge_users.t
  2. +3 −9 t/change_email.t
View
8 t/01merge_users.t
@@ -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);
View
12 t/change_email.t
@@ -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" );
Please sign in to comment.
Something went wrong with that request. Please try again.