rt/t/shredder/01basics.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use Test::Deep;
   6 use File::Spec;
   7 use Test::More tests => 3 + 1; # plus one for warnings check
   8 use RT::Test ();
   9 BEGIN {
  10     my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
  11         File::Spec->curdir());
  12     require $shredder_utils;
  13 }
  14 init_db();
  15
  16
  17 create_savepoint();
  18
  19 use RT::Tickets;
  20 my $ticket = RT::Ticket->new( RT->SystemUser );
  21 my ($id) = $ticket->Create( Subject => 'test', Queue => 1 );
  22 ok( $id, "created new ticket" );
  23
  24 $ticket = RT::Ticket->new( RT->SystemUser );
  25 my ($status, $msg) = $ticket->Load( $id );
  26 ok( $id, "load ticket" ) or diag( "error: $msg" );
  27
  28 my $shredder = shredder_new();
  29 $shredder->Wipeout( Object => $ticket );
  30
  31 cmp_deeply( dump_current_and_savepoint(), "current DB equal to savepoint");