rt/t/shredder/02template.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use Test::Deep;
   6 use File::Spec;
   7 use Test::More tests => 7 + 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 diag 'global template' if $ENV{TEST_VERBOSE};
  18 {
  19         create_savepoint('clean');
  20     my $template = RT::Template->new( RT->SystemUser );
  21     my ($id, $msg) = $template->Create(
  22         Name => 'my template',
  23         Content => "\nsome content",
  24     );
  25     ok($id, 'created template') or diag "error: $msg";
  26
  27         my $shredder = shredder_new();
  28         $shredder->PutObjects( Objects => $template );
  29         $shredder->WipeoutAll;
  30         cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");
  31 }
  32
  33 diag 'local template' if $ENV{TEST_VERBOSE};
  34 {
  35         create_savepoint('clean');
  36     my $template = RT::Template->new( RT->SystemUser );
  37     my ($id, $msg) = $template->Create(
  38         Name => 'my template',
  39         Queue => 'General',
  40         Content => "\nsome content",
  41     );
  42     ok($id, 'created template') or diag "error: $msg";
  43
  44         my $shredder = shredder_new();
  45         $shredder->PutObjects( Objects => $template );
  46         $shredder->WipeoutAll;
  47         cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");
  48 }
  49
  50 diag 'template used in scrip' if $ENV{TEST_VERBOSE};
  51 {
  52         create_savepoint('clean');
  53     my $template = RT::Template->new( RT->SystemUser );
  54     my ($id, $msg) = $template->Create(
  55         Name => 'my template',
  56         Queue => 'General',
  57         Content => "\nsome content",
  58     );
  59     ok($id, 'created template') or diag "error: $msg";
  60
  61     my $scrip = RT::Scrip->new( RT->SystemUser );
  62     ($id, $msg) = $scrip->Create(
  63         Description    => 'my scrip',
  64         Queue          => 'General',
  65         ScripCondition => 'On Create',
  66         ScripAction    => 'Open Tickets',
  67         Template       => $template->id,
  68     );
  69     ok($id, 'created scrip') or diag "error: $msg";
  70
  71         my $shredder = shredder_new();
  72         $shredder->PutObjects( Objects => $template );
  73         $shredder->WipeoutAll;
  74         cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");
  75 }