6 use Test::More tests => 7;
13 # This tiny little test script triggers an interaction bug between DBD::Oracle 1.16, SB 1.15 and RT 3.4
15 use_ok('RT::Template');
16 my $template = RT::Template->new($RT::SystemUser);
18 isa_ok($template, 'RT::Template');
19 my ($val,$msg) = $template->Create(Queue => 1,
21 Content => 'This is template content');
23 is($template->Name, 'InsertTest');
24 is($template->Content, 'This is template content', "We created the object right");
25 ($val, $msg) = $template->SetContent( 'This is new template content');
27 is($template->Content, 'This is new template content', "We managed to _Set_ the content");