rt/t/shredder/00skeleton.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use Test::Deep;
   6 use RT::Test::Shredder tests => 1;
   7 my $test = "RT::Test::Shredder";
   8
   9 $test->create_savepoint('clean'); # backup of the clean RT DB
  10 my $shredder = $test->shredder_new(); # new shredder object
  11
  12 # ....
  13 # create and wipe RT objects
  14 #
  15
  16 cmp_deeply( $test->dump_current_and_savepoint('clean'), "current DB equal to savepoint");