[Rt-commit] r4528 - in rt/branches/3.7-EXPERIMENTAL: . html/Ticket/Elements

[ruz at bestpractical.com]

Author: ruz
Date: Tue Feb 14 18:27:43 2006
New Revision: 4528

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/html/Ticket/Elements/Tabs
   rt/branches/3.7-EXPERIMENTAL/lib/t/regression/04send_email.t

Log:
 r1696 at cubic-pc:  cubic | 2006-02-06 23:02:26 +0300
 * minor


Modified: rt/branches/3.7-EXPERIMENTAL/html/Ticket/Elements/Tabs
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/html/Ticket/Elements/Tabs	(original)
+++ rt/branches/3.7-EXPERIMENTAL/html/Ticket/Elements/Tabs	Tue Feb 14 18:27:43 2006
@@ -196,7 +196,7 @@
     Format  => $ARGS{'Format'}  || $session{'CurrentSearchHash'}->{'Format'},
     OrderBy => $ARGS{'OrderBy'} || $session{'CurrentSearchHash'}->{'OrderBy'},
     Order   => $ARGS{'Order'}   || $session{'CurrentSearchHash'}->{'Order'},
-    Page   => $ARGS{'Page'}   || $session{'CurrentSearchHash'}->{'Page'},
+    Page    => $ARGS{'Page'}    || $session{'CurrentSearchHash'}->{'Page'},
     Rows    => $ARGS{'Rows'},
   ) if ($ARGS{'Query'} or $session{'CurrentSearchHash'}->{'Query'});
 $args ||= '';

Modified: rt/branches/3.7-EXPERIMENTAL/lib/t/regression/04send_email.t
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/t/regression/04send_email.t	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/t/regression/04send_email.t	Tue Feb 14 18:27:43 2006
@@ -1,11 +1,11 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Test::More tests => 136;
+use Test::More tests => 137;
 
 use RT;
 RT::LoadConfig();
-RT::Init;
+RT::Init();
 
 use RT::EmailParser;
 use RT::Tickets;
@@ -17,7 +17,7 @@
 #We're not testing acls here.
 my $everyone = RT::Group->new($RT::SystemUser);
 $everyone->LoadSystemInternalGroup('Everyone');
-$everyone->PrincipalObj->GrantRight(Right =>'SuperUser');
+$everyone->PrincipalObj->GrantRight( Right =>'SuperUser' );
 
 
 is (__PACKAGE__, 'main', "We're operating in the main package");
@@ -57,16 +57,15 @@
 my $content =  file_content("$RT::BasePath/lib/t/data/multipart-report");
 # be as much like the mail gateway as possible.
 use RT::Interface::Email;
-                                  
 my %args =        (message => $content, queue => 1, action => 'correspond');
- RT::Interface::Email::Gateway(\%args);
+my ($status, $msg) = RT::Interface::Email::Gateway(\%args);
+ok($status, "successfuly used Email::Gateway interface") or diag("error: $msg");
 my $tickets = RT::Tickets->new($RT::SystemUser);
 $tickets->OrderBy(FIELD => 'id', ORDER => 'DESC');
 $tickets->Limit(FIELD => 'id' ,OPERATOR => '>', VALUE => '0');
 my $tick= $tickets->First();
 isa_ok($tick, "RT::Ticket", "got a ticket object");
 ok ($tick->Id, "found ticket ".$tick->Id);
-
 ok (first_txn($tick)->Content =~ /The original message was received/, "It's the bounce");