[Rt-commit] r2094 - in rt/branches/PLATANO-EXPERIMENTAL: . lib/t/regression

jesse at bestpractical.com jesse at bestpractical.com
Fri Jan 14 03:52:01 EST 2005


Author: jesse
Date: Fri Jan 14 03:52:01 2005
New Revision: 2094

Added:
   rt/branches/PLATANO-EXPERIMENTAL/lib/t/regression/11-template-insert.t
Modified:
   rt/branches/PLATANO-EXPERIMENTAL/   (props changed)
Log:
 r2533 at hualien (orig r2039):  jesse | 2005-01-04T05:17:52.551701Z
  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/PLATANO-EXPERIMENTAL/lib/t/regression/11-template-insert.t
==============================================================================
--- (empty file)
+++ rt/branches/PLATANO-EXPERIMENTAL/lib/t/regression/11-template-insert.t	Fri Jan 14 03:52:01 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");


More information about the Rt-commit mailing list