7 use Test::More tests => 7 + 1; # plus one for warnings check
10 my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
11 File::Spec->curdir());
12 require $shredder_utils;
17 diag 'global template' if $ENV{TEST_VERBOSE};
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",
25 ok($id, 'created template') or diag "error: $msg";
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");
33 diag 'local template' if $ENV{TEST_VERBOSE};
35 create_savepoint('clean');
36 my $template = RT::Template->new( RT->SystemUser );
37 my ($id, $msg) = $template->Create(
38 Name => 'my template',
40 Content => "\nsome content",
42 ok($id, 'created template') or diag "error: $msg";
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");
50 diag 'template used in scrip' if $ENV{TEST_VERBOSE};
52 create_savepoint('clean');
53 my $template = RT::Template->new( RT->SystemUser );
54 my ($id, $msg) = $template->Create(
55 Name => 'my template',
57 Content => "\nsome content",
59 ok($id, 'created template') or diag "error: $msg";
61 my $scrip = RT::Scrip->new( RT->SystemUser );
62 ($id, $msg) = $scrip->Create(
63 Description => 'my scrip',
65 ScripCondition => 'On Create',
66 ScripAction => 'Open Tickets',
67 Template => $template->id,
69 ok($id, 'created scrip') or diag "error: $msg";
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");