8 use Test::More tests => 7;
11 my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
12 File::Spec->curdir());
13 require $shredder_utils;
18 diag 'global template' if $ENV{'TEST_VERBOSE'};
20 create_savepoint('clean');
21 my $template = RT::Template->new( $RT::SystemUser );
22 my ($id, $msg) = $template->Create(
23 Name => 'my template',
24 Content => "\nsome content",
26 ok($id, 'created template') or diag "error: $msg";
28 my $shredder = shredder_new();
29 $shredder->PutObjects( Objects => $template );
30 $shredder->WipeoutAll;
31 cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");
34 diag 'local template' if $ENV{'TEST_VERBOSE'};
36 create_savepoint('clean');
37 my $template = RT::Template->new( $RT::SystemUser );
38 my ($id, $msg) = $template->Create(
39 Name => 'my template',
41 Content => "\nsome content",
43 ok($id, 'created template') or diag "error: $msg";
45 my $shredder = shredder_new();
46 $shredder->PutObjects( Objects => $template );
47 $shredder->WipeoutAll;
48 cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");
51 diag 'template used in scrip' if $ENV{'TEST_VERBOSE'};
53 create_savepoint('clean');
54 my $template = RT::Template->new( $RT::SystemUser );
55 my ($id, $msg) = $template->Create(
56 Name => 'my template',
58 Content => "\nsome content",
60 ok($id, 'created template') or diag "error: $msg";
62 my $scrip = RT::Scrip->new( $RT::SystemUser );
63 ($id, $msg) = $scrip->Create(
64 Description => 'my scrip',
66 ScripCondition => 'On Create',
67 ScripAction => 'Open Tickets',
68 Template => $template->id,
70 ok($id, 'created scrip') or diag "error: $msg";
72 my $shredder = shredder_new();
73 $shredder->PutObjects( Objects => $template );
74 $shredder->WipeoutAll;
75 cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");