[Rt-commit] r2039 - in rt/branches/3.4-RELEASE: . lib/t/regression

[jesse at bestpractical.com]

Author: jesse
Date: Tue Jan  4 00:17:52 2005
New Revision: 2039

Added:
   rt/branches/3.4-RELEASE/lib/t/regression/11-template-insert.t
Modified:
   rt/branches/3.4-RELEASE/   (props changed)
Log:
 r2528 at hualien:  jesse | 2005-01-03T19:54:59.819442Z
 Added a test for a regression tickled by DBD::Oracle 1.16
 


Added: rt/branches/3.4-RELEASE/lib/t/regression/11-template-insert.t
==============================================================================
--- (empty file)
+++ rt/branches/3.4-RELEASE/lib/t/regression/11-template-insert.t	Tue Jan  4 00:17:52 2005
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+use Test::More qw/no_plan/;
+
+use RT;
+RT::LoadConfig();
+RT::Init;
+
+
+# This tiny little test script triggers an interaction bug between DBD::Oracle 1.16, SB 1.15 and RT 3.4
+
+use_ok('RT::Template');
+my $template = RT::Template->new($RT::SystemUser);
+
+isa_ok($template, 'RT::Template');
+my ($val,$msg) = $template->Create(Queue => 1,
+                  Name => 'InsertTest',
+                  Content => 'This is template content');
+ok($val,$msg);
+is($template->Name, 'InsertTest');
+is($template->Content, 'This is template content', "We created the object right");
+($val, $msg) = $template->SetContent( 'This is new template content');
+ok($val,$msg);
+is($template->Content, 'This is new template content', "We managed to _Set_ the content");