6 use RT::Test tests => 10;
8 my $queue = RT::Test->load_or_create_queue( Name => 'Templates' );
9 ok $queue && $queue->id, "loaded or created a queue";
12 my $template = RT::Template->new( RT->SystemUser );
13 isa_ok($template, 'RT::Template');
14 my ($val,$msg) = $template->Create(
17 Content => 'This is template content'
19 ok $val, "created a template" or diag "error: $msg";
20 ok my $id = $template->id, "id is defined";
21 is $template->Name, 'InsertTest';
22 is $template->Content, 'This is template content', "We created the object right";
24 ($val, $msg) = $template->SetContent( 'This is new template content');
25 ok $val, "changed content" or diag "error: $msg";
27 is $template->Content, 'This is new template content', "We managed to _Set_ the content";
29 ($val, $msg) = $template->Delete;
30 ok $val, "deleted template";
33 ok !$template->id, "can not load template after deletion";