[Bps-public-commit] r12993 - RT-Extension-MergeUsers/t

[ruz at bestpractical.com]

Author: ruz
Date: Fri Jun  6 16:38:15 2008
New Revision: 12993

Added:
   RT-Extension-MergeUsers/t/change_email.t

Log:
* add a test

Added: RT-Extension-MergeUsers/t/change_email.t
==============================================================================
--- (empty file)
+++ RT-Extension-MergeUsers/t/change_email.t	Fri Jun  6 16:38:15 2008
@@ -0,0 +1,49 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use lib qw(/opt/rt3/local/lib /opt/rt3/lib);
+use Test::More tests => 8;
+
+use RT;
+RT::LoadConfig();
+RT::Init;
+
+use 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" );
+ok($id, "Created 'primary' user? $message");
+my $primary_id = $id;
+
+my $secondary_user = RT::User->new($RT::SystemUser);
+($id, $message) = $secondary_user->Create( EmailAddress => "secondary-$$\@example.com" );
+ok($id, "Created 'secondary' user? $message");
+my $secondary_id = $id;
+
+# successfully merges users
+($id, $message) = $secondary_user->MergeInto($primary_user);
+ok($id, "Successfully merges users? $message");
+
+{
+    my $user = RT::User->new( $RT::SystemUser );
+    $user->LoadByEmail( "primary-$$\@example.com" );
+    is($user->id, $primary_user->id, "loaded user");
+
+    my ($status, $msg) = $user->SetEmailAddress( "secondary-$$\@example.com" );
+    ok $status, "changed primary address to something we already had"
+        or diag "error: $msg";
+
+    $user->LoadOriginal( id => $secondary_id );
+    is($user->id, $secondary_id, "loaded original record");
+
+    ok(!$user->EmailAddress, "secondary record has no email");
+}
+
+1;