7 use Test::More tests => 3 + 1; # plus one for warnings check
10 my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
11 File::Spec->curdir());
12 require $shredder_utils;
20 my $ticket = RT::Ticket->new( RT->SystemUser );
21 my ($id) = $ticket->Create( Subject => 'test', Queue => 1 );
22 ok( $id, "created new ticket" );
24 $ticket = RT::Ticket->new( RT->SystemUser );
25 my ($status, $msg) = $ticket->Load( $id );
26 ok( $id, "load ticket" ) or diag( "error: $msg" );
28 my $shredder = shredder_new();
29 $shredder->Wipeout( Object => $ticket );
31 cmp_deeply( dump_current_and_savepoint(), "current DB equal to savepoint");