[Rt-commit] r10607 - in rt/branches/3.999-DANGEROUS: lib/RT/Model t/web

[ruz at bestpractical.com]

Author: ruz
Date: Wed Jan 30 19:07:24 2008
New Revision: 10607

Modified:
   rt/branches/3.999-DANGEROUS/lib/RT/Model/Ticket.pm
   rt/branches/3.999-DANGEROUS/t/ticket/quicksearch.t
   rt/branches/3.999-DANGEROUS/t/web/ticket_seen.t

Log:
* more fixes in tests

Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Ticket.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Ticket.pm	(original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Ticket.pm	Wed Jan 30 19:07:24 2008
@@ -3559,7 +3559,7 @@
     my $self = shift;
     my %args = (
         right     => undef,
-        Principal => undef,
+        principal => undef,
         @_
     );
 

Modified: rt/branches/3.999-DANGEROUS/t/ticket/quicksearch.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/ticket/quicksearch.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/ticket/quicksearch.t	Wed Jan 30 19:07:24 2008
@@ -28,13 +28,13 @@
 my $quick = RT::Search::Googleish->new(Argument => "",
                                  TicketsObj => $tickets);
 my @tests = (
-    "General new open root"     => "( Owner = 'root' ) AND ( queue = 'General' ) AND ( Status = 'new' OR Status = 'open' )", 
-    "fulltext:jesse"       => "( Content LIKE 'jesse' )",
+    "General new open root"     => "( owner = 'root' ) AND ( queue = 'General' ) AND ( status = 'new' OR status = 'open' )", 
+    "fulltext:jesse"       => "( content LIKE 'jesse' )",
     $queue                 => "( queue = '$queue' )",
-    "root $queue"          => "( Owner = 'root' ) AND ( queue = '$queue' )",
+    "root $queue"          => "( owner = 'root' ) AND ( queue = '$queue' )",
     "notauser $queue"      => "( queue = '$queue' ) AND ( subject LIKE 'notauser' )",
-    "notauser $queue root" => "( Owner = 'root' ) AND ( queue = '$queue' ) AND ( subject LIKE 'notauser' )");
+    "notauser $queue root" => "( owner = 'root' ) AND ( queue = '$queue' ) AND ( subject LIKE 'notauser' )");
 
 while (my ($from, $to) = splice @tests, 0, 2) {
-    is($quick->query_to_sql($from), $to, "<$from> -> <$to>");
+    is(lc $quick->query_to_sql($from), lc $to, "<$from> -> <$to>");
 }

Modified: rt/branches/3.999-DANGEROUS/t/web/ticket_seen.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/ticket_seen.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/web/ticket_seen.t	Wed Jan 30 19:07:24 2008
@@ -20,8 +20,8 @@
 ok $user_b && $user_b->id, 'loaded or created user';
 
 ok( RT::Test->set_rights(
-    { Principal => $user_a, right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket ModifyTicket)] },
-    { Principal => $user_b, right => [qw(SeeQueue ShowTicket ReplyToTicket)] },
+    { principal => $user_a, right => [qw(SeeQueue ShowTicket CreateTicket OwnTicket ModifyTicket)] },
+    { principal => $user_b, right => [qw(SeeQueue ShowTicket ReplyToTicket)] },
 ), 'set rights');
 RT::Test->started_ok;