rt/t/shredder/00skeleton.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use Test::Deep;
   6 use File::Spec;
   7 use Test::More tests => 1 + 1; # plus one for warnings check
   8 use RT::Test ();
   9 BEGIN {
  10     my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
  11         File::Spec->curdir());
  12     require $shredder_utils;
  13 }
  14 init_db();
  15
  16
  17 create_savepoint('clean'); # backup of the clean RT DB
  18 my $shredder = shredder_new(); # new shredder object
  19
  20 # ....
  21 # create and wipe RT objects
  22 #
  23
  24 cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");