diff options
author | ivan <ivan> | 2009-12-31 13:16:41 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-12-31 13:16:41 +0000 |
commit | b4b0c7e72d7eaee2fbfc7022022c9698323203dd (patch) | |
tree | ba4cd21399e412c32fe3737eaa8478e3271509f9 /rt/t/shredder/01basics.t | |
parent | 2dfda73eeb3eae2d4f894099754794ef07d060dd (diff) |
import rt 3.8.7
Diffstat (limited to 'rt/t/shredder/01basics.t')
-rw-r--r-- | rt/t/shredder/01basics.t | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/rt/t/shredder/01basics.t b/rt/t/shredder/01basics.t new file mode 100644 index 0000000..450f2df --- /dev/null +++ b/rt/t/shredder/01basics.t @@ -0,0 +1,32 @@ +#!/usr/bin/perl -w + +use strict; +use warnings; + +use Test::Deep; +use File::Spec; +use Test::More tests => 3; +use RT::Test (); +BEGIN { + my $shredder_utils = RT::Test::get_relocatable_file('utils.pl', + File::Spec->curdir()); + require $shredder_utils; +} +init_db(); + + +create_savepoint(); + +use RT::Tickets; +my $ticket = RT::Ticket->new( $RT::SystemUser ); +my ($id) = $ticket->Create( Subject => 'test', Queue => 1 ); +ok( $id, "created new ticket" ); + +$ticket = RT::Ticket->new( $RT::SystemUser ); +my ($status, $msg) = $ticket->Load( $id ); +ok( $id, "load ticket" ) or diag( "error: $msg" ); + +my $shredder = shredder_new(); +$shredder->Wipeout( Object => $ticket ); + +cmp_deeply( dump_current_and_savepoint(), "current DB equal to savepoint"); |