rt/t/shredder/00skeleton.t

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