6 use RT::Test::Shredder tests => 4;
7 my $test = "RT::Test::Shredder";
9 $test->create_savepoint();
12 my $ticket = RT::Ticket->new( RT->SystemUser );
13 my ($id) = $ticket->Create( Subject => 'test', Queue => 1 );
14 ok( $id, "created new ticket" );
16 $ticket = RT::Ticket->new( RT->SystemUser );
17 my ($status, $msg) = $ticket->Load( $id );
18 ok( $id, "load ticket" ) or diag( "error: $msg" );
20 my $shredder = $test->shredder_new();
21 $shredder->Wipeout( Object => $ticket );
25 cmp_deeply( $test->dump_current_and_savepoint(), "current DB equal to savepoint");