rt/t/shredder/01ticket.t

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::Deep;
   7 use File::Spec;
   8 use Test::More tests => 15;
   9 use RT::Test ();
  10
  11
  12 BEGIN {
  13     my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
  14         File::Spec->curdir());
  15     require $shredder_utils;
  16 }
  17
  18 init_db();
  19 create_savepoint('clean');
  20
  21 use RT::Ticket;
  22 use RT::Tickets;
  23
  24 {
  25     my $ticket = RT::Ticket->new( RT->SystemUser );
  26     my ($id) = $ticket->Create( Subject => 'test', Queue => 1 );
  27     ok( $id, "created new ticket" );
  28     $ticket->Delete;
  29     is( $ticket->Status, 'deleted', "successfuly changed status" );
  30
  31     my $tickets = RT::Tickets->new( RT->SystemUser );
  32     $tickets->{'allow_deleted_search'} = 1;
  33     $tickets->LimitStatus( VALUE => 'deleted' );
  34     is( $tickets->Count, 1, "found one deleted ticket" );
  35
  36     my $shredder = shredder_new();
  37     $shredder->PutObjects( Objects => $tickets );
  38     $shredder->WipeoutAll;
  39 }
  40 cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");
  41
  42 {
  43     my $parent = RT::Ticket->new( RT->SystemUser );
  44     my ($pid) = $parent->Create( Subject => 'test', Queue => 1 );
  45     ok( $pid, "created new ticket" );
  46     create_savepoint('parent_ticket');
  47
  48     my $child = RT::Ticket->new( RT->SystemUser );
  49     my ($cid) = $child->Create( Subject => 'test', Queue => 1 );
  50     ok( $cid, "created new ticket" );
  51
  52     my ($status, $msg) = $parent->AddLink( Type => 'MemberOf', Target => $cid );
  53     ok( $status, "Added link between tickets") or diag("error: $msg");
  54     my $shredder = shredder_new();
  55     $shredder->PutObjects( Objects => $child );
  56     $shredder->WipeoutAll;
  57     cmp_deeply( dump_current_and_savepoint('parent_ticket'), "current DB equal to savepoint");
  58
  59     $shredder->PutObjects( Objects => $parent );
  60     $shredder->WipeoutAll;
  61 }
  62 cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");
  63
  64 {
  65     my $parent = RT::Ticket->new( RT->SystemUser );
  66     my ($pid) = $parent->Create( Subject => 'test', Queue => 1 );
  67     ok( $pid, "created new ticket" );
  68     my ($status, $msg) = $parent->Delete;
  69     ok( $status, 'deleted parent ticket');
  70     create_savepoint('parent_ticket');
  71
  72     my $child = RT::Ticket->new( RT->SystemUser );
  73     my ($cid) = $child->Create( Subject => 'test', Queue => 1 );
  74     ok( $cid, "created new ticket" );
  75
  76     ($status, $msg) = $parent->AddLink( Type => 'DependsOn', Target => $cid );
  77     ok( $status, "Added link between tickets") or diag("error: $msg");
  78     my $shredder = shredder_new();
  79     $shredder->PutObjects( Objects => $child );
  80     $shredder->WipeoutAll;
  81
  82   TODO: {
  83         local $TODO = "Shredder doesn't delete all links and transactions";
  84         cmp_deeply( dump_current_and_savepoint('parent_ticket'), "current DB equal to savepoint");
  85     }
  86
  87     $shredder->PutObjects( Objects => $parent );
  88     $shredder->WipeoutAll;
  89 }
  90 cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");