summaryrefslogtreecommitdiff
path: root/rt/t/shredder/02user.t
diff options
context:
space:
mode:
Diffstat (limited to 'rt/t/shredder/02user.t')
-rw-r--r--rt/t/shredder/02user.t62
1 files changed, 0 insertions, 62 deletions
diff --git a/rt/t/shredder/02user.t b/rt/t/shredder/02user.t
deleted file mode 100644
index 03abd6c69..000000000
--- a/rt/t/shredder/02user.t
+++ /dev/null
@@ -1,62 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use warnings;
-
-use Test::Deep;
-use File::Spec;
-use Test::More tests => 8;
-use RT::Test ();
-BEGIN {
- my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
- File::Spec->curdir());
- require $shredder_utils;
-}
-init_db();
-
-
-create_savepoint('clean');
-
-my $queue = RT::Queue->new( $RT::SystemUser );
-my ($qid) = $queue->Load( 'General' );
-ok( $qid, "loaded queue" );
-
-my $ticket = RT::Ticket->new( $RT::SystemUser );
-my ($tid) = $ticket->Create( Queue => $qid, Subject => 'test' );
-ok( $tid, "ticket created" );
-
-create_savepoint('bucreate'); # berfore user create
-my $user = RT::User->new( $RT::SystemUser );
-my ($uid, $msg) = $user->Create( Name => 'new user', Privileged => 1, Disabled => 0 );
-ok( $uid, "created new user" ) or diag "error: $msg";
-is( $user->id, $uid, "id is correct" );
-# HACK: set ticket props to enable VARIABLE dependencies
-$ticket->__Set( Field => 'LastUpdatedBy', Value => $uid );
-create_savepoint('aucreate'); # after user create
-
-{
- my $resolver = sub {
- my %args = (@_);
- my $t = $args{'TargetObject'};
- my $resolver_uid = $RT::SystemUser->id;
- foreach my $method ( qw(Creator LastUpdatedBy) ) {
- next unless $t->_Accessible( $method => 'read' );
- $t->__Set( Field => $method, Value => $resolver_uid );
- }
- };
- my $shredder = shredder_new();
- $shredder->PutResolver( BaseClass => 'RT::User', Code => $resolver );
- $shredder->Wipeout( Object => $user );
- cmp_deeply( dump_current_and_savepoint('bucreate'), "current DB equal to savepoint");
-}
-
-{
- restore_savepoint('aucreate');
- my $user = RT::User->new( $RT::SystemUser );
- $user->Load($uid);
- ok($user->id, "loaded user after restore");
- my $shredder = shredder_new();
- eval { $shredder->Wipeout( Object => $user ) };
- ok($@, "wipeout throw exception if no resolvers");
- cmp_deeply( dump_current_and_savepoint('aucreate'), "current DB equal to savepoint");
-}