rt/t/shredder/01basics.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 => 3;
   9 use RT::Test ();
  10 BEGIN {
  11     my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
  12         File::Spec->curdir());
  13     require $shredder_utils;
  14 }
  15 init_db();
  16
  17
  18 create_savepoint();
  19
  20 use RT::Tickets;
  21 my $ticket = RT::Ticket->new( $RT::SystemUser );
  22 my ($id) = $ticket->Create( Subject => 'test', Queue => 1 );
  23 ok( $id, "created new ticket" );
  24
  25 $ticket = RT::Ticket->new( $RT::SystemUser );
  26 my ($status, $msg) = $ticket->Load( $id );
  27 ok( $id, "load ticket" ) or diag( "error: $msg" );
  28
  29 my $shredder = shredder_new();
  30 $shredder->Wipeout( Object => $ticket );
  31
  32 cmp_deeply( dump_current_and_savepoint(), "current DB equal to savepoint");