summaryrefslogtreecommitdiff
path: root/rt/t/shredder/02template.t
diff options
context:
space:
mode:
Diffstat (limited to 'rt/t/shredder/02template.t')
-rw-r--r--rt/t/shredder/02template.t76
1 files changed, 0 insertions, 76 deletions
diff --git a/rt/t/shredder/02template.t b/rt/t/shredder/02template.t
deleted file mode 100644
index d4c323e..0000000
--- a/rt/t/shredder/02template.t
+++ /dev/null
@@ -1,76 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use warnings;
-
-use Test::Deep;
-use File::Spec;
-use Test::More tests => 7;
-use RT::Test ();
-BEGIN {
- my $shredder_utils = RT::Test::get_relocatable_file('utils.pl',
- File::Spec->curdir());
- require $shredder_utils;
-}
-init_db();
-
-
-diag 'global template' if $ENV{'TEST_VERBOSE'};
-{
- create_savepoint('clean');
- my $template = RT::Template->new( $RT::SystemUser );
- my ($id, $msg) = $template->Create(
- Name => 'my template',
- Content => "\nsome content",
- );
- ok($id, 'created template') or diag "error: $msg";
-
- my $shredder = shredder_new();
- $shredder->PutObjects( Objects => $template );
- $shredder->WipeoutAll;
- cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");
-}
-
-diag 'local template' if $ENV{'TEST_VERBOSE'};
-{
- create_savepoint('clean');
- my $template = RT::Template->new( $RT::SystemUser );
- my ($id, $msg) = $template->Create(
- Name => 'my template',
- Queue => 'General',
- Content => "\nsome content",
- );
- ok($id, 'created template') or diag "error: $msg";
-
- my $shredder = shredder_new();
- $shredder->PutObjects( Objects => $template );
- $shredder->WipeoutAll;
- cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");
-}
-
-diag 'template used in scrip' if $ENV{'TEST_VERBOSE'};
-{
- create_savepoint('clean');
- my $template = RT::Template->new( $RT::SystemUser );
- my ($id, $msg) = $template->Create(
- Name => 'my template',
- Queue => 'General',
- Content => "\nsome content",
- );
- ok($id, 'created template') or diag "error: $msg";
-
- my $scrip = RT::Scrip->new( $RT::SystemUser );
- ($id, $msg) = $scrip->Create(
- Description => 'my scrip',
- Queue => 'General',
- ScripCondition => 'On Create',
- ScripAction => 'Open Tickets',
- Template => $template->id,
- );
- ok($id, 'created scrip') or diag "error: $msg";
-
- my $shredder = shredder_new();
- $shredder->PutObjects( Objects => $template );
- $shredder->WipeoutAll;
- cmp_deeply( dump_current_and_savepoint('clean'), "current DB equal to savepoint");
-}