rt/t/shredder/00skeleton.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16


use strict;
use warnings;

use Test::Deep;
use RT::Test::Shredder tests => 1;
my $test = "RT::Test::Shredder";

$test->create_savepoint('clean'); # backup of the clean RT DB
my $shredder = $test->shredder_new(); # new shredder object

# ....
# create and wipe RT objects
#

cmp_deeply( $test->dump_current_and_savepoint('clean'), "current DB equal to savepoint");