[Rt-commit] r10573 - in rt/branches/3.999-DANGEROUS/t: . api mail shredder web

ruz at bestpractical.com ruz at bestpractical.com
Tue Jan 29 19:16:37 EST 2008


Author: ruz
Date: Tue Jan 29 19:16:37 2008
New Revision: 10573

Modified:
   rt/branches/3.999-DANGEROUS/t/api/cf_pattern.t
   rt/branches/3.999-DANGEROUS/t/api/customfield.t
   rt/branches/3.999-DANGEROUS/t/api/record.t
   rt/branches/3.999-DANGEROUS/t/api/rights.t
   rt/branches/3.999-DANGEROUS/t/api/ticket.t
   rt/branches/3.999-DANGEROUS/t/cron.t
   rt/branches/3.999-DANGEROUS/t/mail/gateway.t
   rt/branches/3.999-DANGEROUS/t/mail/sendmail.t
   rt/branches/3.999-DANGEROUS/t/shredder/02group_member.t
   rt/branches/3.999-DANGEROUS/t/ticket/deffered_owner.t
   rt/branches/3.999-DANGEROUS/t/ticket/requestor-order.t
   rt/branches/3.999-DANGEROUS/t/ticket/search_by_txn.t
   rt/branches/3.999-DANGEROUS/t/ticket/search_by_watcher.t
   rt/branches/3.999-DANGEROUS/t/web/ticket_owner.t
   rt/branches/3.999-DANGEROUS/t/web/ticket_seen.t

Log:
* lower method calls in t/

Modified: rt/branches/3.999-DANGEROUS/t/api/cf_pattern.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/api/cf_pattern.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/api/cf_pattern.t	Tue Jan 29 19:16:37 2008
@@ -41,7 +41,7 @@
 fails(del('here is a good regex'));
 is(cnt(), 1, "Single CF - Value _not_ deleted");
 
-$cf->set_MaxValues(0);   # unlimited MaxValues
+$cf->set_max_values(0);   # unlimited MaxValues
 
 works(del('here is a good regex'));
 is(cnt(), 0, "Multiple CF - Value deleted");

Modified: rt/branches/3.999-DANGEROUS/t/api/customfield.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/api/customfield.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/api/customfield.t	Tue Jan 29 19:16:37 2008
@@ -18,12 +18,12 @@
 isnt($id , 0, 'Global custom field correctly Created');
 ok ($cf->single_value);
 is($cf->type, 'Select');
-is($cf->MaxValues, 1);
+is($cf->max_values, 1);
 
-(my $val, $msg) = $cf->set_MaxValues('0');
+(my $val, $msg) = $cf->set_max_values('0');
 ok($val, $msg);
 is($cf->type, 'Select');
-ok(!$cf->MaxValues);
+ok(!$cf->max_values);
 ok(!$cf->single_value );
 ok(my ($bogus_val, $bogus_msg) = $cf->set_type('BogusType') , "Trying to set a custom field's type to a bogus type");
 is($bogus_val , 0, "Unable to set a custom field's type to a bogus type");

Modified: rt/branches/3.999-DANGEROUS/t/api/record.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/api/record.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/api/record.t	Tue Jan 29 19:16:37 2008
@@ -45,8 +45,8 @@
 my $link = RT::Model::Link->new(current_user => RT->system_user);
 (my $rv, $msg) = $link->load($addid);
 ok ($rv, $msg);
-is ($link->LocalTarget , $t3->id, "Link LocalTarget is correct");
-is ($link->LocalBase   , $t1->id, "Link LocalBase   is correct");
+is ($link->local_target , $t3->id, "Link LocalTarget is correct");
+is ($link->local_base   , $t1->id, "Link LocalBase   is correct");
 ok ($t1->has_unresolved_dependencies, "Ticket ".$t1->id." has unresolved deps");
 ok (!$t1->has_unresolved_dependencies( type => 'blah' ), "Ticket ".$t1->id." has no unresolved blahs");
 ok ($t1->has_unresolved_dependencies( type => 'approval' ), "Ticket ".$t1->id." has unresolved approvals");

Modified: rt/branches/3.999-DANGEROUS/t/api/rights.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/api/rights.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/api/rights.t	Tue Jan 29 19:16:37 2008
@@ -98,7 +98,7 @@
 my $ticket = RT::Model::Ticket->new(current_user => RT->system_user);
 my ($ticket_id) = $ticket->create( Queue => $queue_id, subject => 'test');
 ok( $ticket_id, 'new ticket Created' );
-is( $ticket->Owner, RT->nobody->id, 'owner of the new ticket is nobody' );
+is( $ticket->owner, RT->nobody->id, 'owner of the new ticket is nobody' );
 
 my $status;
 ($status, $msg) = $user->principal_object->grant_right( Object => $queue, Right => 'OwnTicket' );
@@ -107,7 +107,7 @@
 
 ($status, $msg) = $ticket->set_owner( $user_id );
 ok( $status, "successfuly set owner: $msg" );
-is( $ticket->Owner, $user_id, "set correct owner" );
+is( $ticket->owner, $user_id, "set correct owner" );
 
 ok( $user->has_right( Right => 'ReplyToTicket', Object => $ticket ), "user is owner and can reply to ticket" );
 

Modified: rt/branches/3.999-DANGEROUS/t/api/ticket.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/api/ticket.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/api/ticket.t	Tue Jan 29 19:16:37 2008
@@ -94,8 +94,8 @@
 ok( $t->create(Queue => 'General', Due => '2002-05-21 00:00:00', ReferredToBy => 'http://www.cpan.org', RefersTo => 'http://fsck.com', subject => 'This is a subject'), "Ticket Created");
 
 ok ( my $id = $t->id, "Got ticket id");
-like ($t->refers_to->first->Target , qr/fsck.com/, "Got refers to");
-like ($t->referred_to_by->first->Base , qr/cpan.org/, "Got referredtoby");
+like ($t->refers_to->first->target , qr/fsck.com/, "Got refers to");
+like ($t->referred_to_by->first->base , qr/cpan.org/, "Got referredtoby");
 is ($t->resolved_obj->unix, 0, "It hasn't been resolved - ". $t->resolved_obj->unix);
 
 

Modified: rt/branches/3.999-DANGEROUS/t/cron.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/cron.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/cron.t	Tue Jan 29 19:16:37 2008
@@ -90,7 +90,7 @@
 ok($correspond_act->commit(), "Correspondence committed");
 
 # Now test for loop suppression.
-my ($trans, $desc, $transaction) = $ticket2->comment(MIMEObj => $template_obj->MIMEObj);
+my ($trans, $desc, $transaction) = $ticket2->comment(MIMEObj => $template_obj->mimeobj);
 my $bogus_action = RT::ScripAction::RecordComment->new(ticket_obj => $ticket1, template_obj => $template_obj, transaction_obj => $transaction, CurrentUser => $CurrentUser);
 ok(!$bogus_action->prepare(), "comment aborted to prevent loop");
 

Modified: rt/branches/3.999-DANGEROUS/t/mail/gateway.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/mail/gateway.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/mail/gateway.t	Tue Jan 29 19:16:37 2008
@@ -626,7 +626,7 @@
 my $tick = RT::Model::Ticket->new(current_user => RT->system_user);
 my ($id) = $tick->create( Queue => 'ext-mailgate', subject => 'test');
 ok( $id, 'new ticket Created' );
-is( $tick->Owner, RT->nobody->id, 'owner of the new ticket is nobody' );
+is( $tick->owner, RT->nobody->id, 'owner of the new ticket is nobody' );
 
 $! = 0;
 ok(open(MAIL, "|$RT::BinPath/rt-mailgate --url $url --queue ext-mailgate --action take"), "Opened the mailgate - $!");
@@ -649,7 +649,7 @@
 my $status;
 ($status, $msg) = $tick->set_owner( RT->nobody->id, 'Force' );
 ok( $status, 'successfuly changed owner: '. ($msg||'') );
-is( $tick->Owner, RT->nobody->id, 'set owner back to nobody');
+is( $tick->owner, RT->nobody->id, 'set owner back to nobody');
 
 
 $! = 0;
@@ -721,7 +721,7 @@
 is ( $? >> 8, 0, "mailgate exited normally" );
 Jifty::DBI::Record::Cachable->flush_cache;
 
-cmp_ok( $tick->Owner, '!=', $user->id, "we didn't change owner" );
+cmp_ok( $tick->owner, '!=', $user->id, "we didn't change owner" );
 
 ($status, $msg) = $user->principal_object->grant_right( Object => $queue, Right => 'ReplyToTicket' );
 ok( $status, "successfuly granted right: $msg" );
@@ -740,7 +740,7 @@
 is ( $? >> 8, 0, "mailgate exited normally" );
 Jifty::DBI::Record::Cachable->flush_cache;
 
-cmp_ok( $tick->Owner, '!=', $user->id, "we didn't change owner" );
+cmp_ok( $tick->owner, '!=', $user->id, "we didn't change owner" );
 is( $tick->transactions->count, 3, "one transactions added" );
 
 $! = 0;
@@ -755,7 +755,7 @@
 is ( $? >> 8, 0, "mailgate exited normally" );
 Jifty::DBI::Record::Cachable->flush_cache;
 
-cmp_ok( $tick->Owner, '!=', $user->id, "we didn't change owner" );
+cmp_ok( $tick->owner, '!=', $user->id, "we didn't change owner" );
 is( $tick->transactions->count, 3, "no transactions added, user can't take ticket first" );
 
 # revoke ReplyToTicket right
@@ -797,12 +797,12 @@
 Jifty::DBI::Record::Cachable->flush_cache;
 
 $tick->load( $id );
-is( $tick->Owner, $user->id, "we changed owner" );
+is( $tick->owner, $user->id, "we changed owner" );
 ok( $user->has_right( Right => 'ReplyToTicket', Object => $tick ), "owner can reply to ticket" );
 is( $tick->transactions->count, 5, "transactions added" );
 $txns = $tick->transactions;
 while (my $t = $txns->next) {
-    diag( $t->id, $t->Description."\n");
+    diag( $t->id, $t->description."\n");
 }
 
 # }}}

Modified: rt/branches/3.999-DANGEROUS/t/mail/sendmail.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/mail/sendmail.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/mail/sendmail.t	Tue Jan 29 19:16:37 2008
@@ -79,7 +79,7 @@
 use Data::Dumper;
 
 my $ticket = RT::Model::Ticket->new(current_user => RT->system_user);
-my  ($id,  undef, $create_msg ) = $ticket->create(Requestor => ['root at localhost'], Queue => 'general', subject => 'I18NTest', MIMEObj => $parser->Entity);
+my  ($id,  undef, $create_msg ) = $ticket->create(Requestor => ['root at localhost'], Queue => 'general', subject => 'I18NTest', MIMEObj => $parser->entity);
 ok ($id,$create_msg);
 $tickets = RT::Model::TicketCollection->new(current_user => RT->system_user);
 $tickets->order_by({column => 'id', order => 'DESC'});
@@ -132,11 +132,11 @@
 # If we correspond, does it do the right thing to the outbound messages?
 
 $parser->parse_mime_entity_from_scalar($content);
-  ($id, $msg) = $tick->comment(MIMEObj => $parser->Entity);
+  ($id, $msg) = $tick->comment(MIMEObj => $parser->entity);
 ok ($id, $msg);
 
 $parser->parse_mime_entity_from_scalar($content);
-($id, $msg) = $tick->correspond(MIMEObj => $parser->Entity);
+($id, $msg) = $tick->correspond(MIMEObj => $parser->entity);
 ok ($id, $msg);
 
 
@@ -175,11 +175,11 @@
 # If we correspond, does it do the right thing to the outbound messages?
 
 $parser->parse_mime_entity_from_scalar($content);
- ($id, $msg) = $tick->comment(MIMEObj => $parser->Entity);
+ ($id, $msg) = $tick->comment(MIMEObj => $parser->entity);
 ok ($id, $msg);
 
 $parser->parse_mime_entity_from_scalar($content);
-($id, $msg) = $tick->correspond(MIMEObj => $parser->Entity);
+($id, $msg) = $tick->correspond(MIMEObj => $parser->entity);
 ok ($id, $msg);
 
 

Modified: rt/branches/3.999-DANGEROUS/t/shredder/02group_member.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/shredder/02group_member.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/shredder/02group_member.t	Tue Jan 29 19:16:37 2008
@@ -82,7 +82,7 @@
 	ok( $id, "load ticket" ) or diag( "error: $msg" );
 	($status, $msg) = $ticket->set_owner( $user->id );
 	ok( $status, "owner successfuly set") or diag( "error: $msg" );
-	is( $ticket->Owner, $user->id, "owner successfuly set") or diag( "error: $msg" );
+	is( $ticket->owner, $user->id, "owner successfuly set") or diag( "error: $msg" );
 
 	my $member = $ticket->owner_group->members_obj->first;
 	my $shredder = shredder_new();
@@ -92,8 +92,8 @@
 	$ticket = RT::Model::Ticket->new(current_user => RT->system_user );
 	($status, $msg) = $ticket->load( $id );
 	ok( $id, "load ticket" ) or diag( "error: $msg" );
-	is( $ticket->Owner, RT->nobody->id, "owner switched back to nobody" );
-	is( $ticket->owner_group->members_obj->first->MemberId, RT->nobody->id, "and owner role group member is nobody");
+	is( $ticket->owner, RT->nobody->id, "owner switched back to nobody" );
+	is( $ticket->owner_group->members_obj->first->member_id, RT->nobody->id, "and owner role group member is nobody");
 }
 
 

Modified: rt/branches/3.999-DANGEROUS/t/ticket/deffered_owner.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/ticket/deffered_owner.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/ticket/deffered_owner.t	Tue Jan 29 19:16:37 2008
@@ -41,7 +41,7 @@
     );
     diag $msg if $msg && $ENV{'TEST_VERBOSE'};
     ok $tid, "Created a ticket";
-    is $ticket->Owner, $tester->id, 'correct owner';
+    is $ticket->owner, $tester->id, 'correct owner';
     like $ticket->admin_cc_addresses, qr/root\@localhost/, 'root is an admincc';
 }
 diag "check that previous trick doesn't work without sufficient rights"
@@ -63,7 +63,7 @@
     );
     diag $msg if $msg && $ENV{'TEST_VERBOSE'};
     ok $tid, "Created a ticket";
-    is $ticket->Owner, $tester->id, 'correct owner';
+    is $ticket->owner, $tester->id, 'correct owner';
     unlike $ticket->admin_cc_addresses, qr/root\@localhost/, 'root is there';
 }
 
@@ -89,7 +89,7 @@
     diag $msg if $msg && $ENV{'TEST_VERBOSE'};
     ok $tid, "Created a ticket";
     like $ticket->cc_addresses, qr/tester\@localhost/, 'tester is in the cc list';
-    is $ticket->Owner, $tester->id, 'tester is also owner';
+    is $ticket->owner, $tester->id, 'tester is also owner';
 }
 
 diag "check that defering doesn't work without correct rights" if $ENV{'TEST_VERBOSE'};
@@ -110,7 +110,7 @@
     diag $msg if $msg && $ENV{'TEST_VERBOSE'};
     ok $tid, "Created a ticket";
     like $ticket->cc_addresses, qr/tester\@localhost/, 'tester is in the cc list';
-    isnt $ticket->Owner, $tester->id, 'tester is also owner';
+    isnt $ticket->owner, $tester->id, 'tester is also owner';
 }
 
 

Modified: rt/branches/3.999-DANGEROUS/t/ticket/requestor-order.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/ticket/requestor-order.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/ticket/requestor-order.t	Tue Jan 29 19:16:37 2008
@@ -47,7 +47,7 @@
     my ($tix,$count,$order) = (@_);
     my @mails;
     while (my $t = $tix->next) { push @mails, $t->requestor_addresses; }
-    is(@mails, $count, "found $count tickets for ". $tix->Query);
+    is(@mails, $count, "found $count tickets for ". $tix->query);
     my @required_order;
     if( $order =~ /asc/i ) {
         @required_order = sort { $a? ($b? ($a cmp $b) : -1) : 1} @mails;

Modified: rt/branches/3.999-DANGEROUS/t/ticket/search_by_txn.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/ticket/search_by_txn.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/ticket/search_by_txn.t	Tue Jan 29 19:16:37 2008
@@ -28,7 +28,7 @@
 ok($txnobj->created_obj->ISO);
 my ( $sid,$smsg) = $txnobj->__set(column => 'Created', value => '2005-08-05 20:00:56');
 ok($sid,$smsg);
-is($txnobj->Created,'2005-08-05 20:00:56');
+is($txnobj->created,'2005-08-05 20:00:56');
 is($txnobj->created_obj->iso,'2005-08-05 20:00:56');
 
 $tix->from_sql(qq{Updated = "2005-08-05" AND subject = "$SUBJECT"});

Modified: rt/branches/3.999-DANGEROUS/t/ticket/search_by_watcher.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/ticket/search_by_watcher.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/ticket/search_by_watcher.t	Tue Jan 29 19:16:37 2008
@@ -203,7 +203,7 @@
     ok($u->id, "loaded user");
     @data = ( { subject => '4', Owner => $u->id } );
     my($t) = add_tix_from_data();
-    is( $t->Owner, $u->id, "Created ticket with custom owner" );
+    is( $t->owner, $u->id, "Created ticket with custom owner" );
     my $u_alpha_id = $u->id;
 
     $u = RT::Model::User->new(current_user => RT->system_user );
@@ -211,7 +211,7 @@
     ok($u->id, "loaded user");
     @data = ( { subject => '5', Owner => $u->id } );
     ($t) = add_tix_from_data();
-    is( $t->Owner, $u->id, "Created ticket with custom owner" );
+    is( $t->owner, $u->id, "Created ticket with custom owner" );
     my $u_bravo_id = $u->id;
 
     my $tix = RT::Model::TicketCollection->new(current_user => RT->system_user);

Modified: rt/branches/3.999-DANGEROUS/t/web/ticket_owner.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/ticket_owner.t	(original)
+++ rt/branches/3.999-DANGEROUS/t/web/ticket_owner.t	Tue Jan 29 19:16:37 2008
@@ -49,7 +49,7 @@
     my $ticket = RT::Model::Ticket->new(current_user => RT->system_user );
     $ticket->load( $id );
     ok $ticket->id, 'loaded the ticket';
-    is $ticket->Owner, RT->nobody->id, 'correct owner';
+    is $ticket->owner, RT->nobody->id, 'correct owner';
 }
 
 diag "user can chose owner of a new ticket";
@@ -75,7 +75,7 @@
     my $ticket = RT::Model::Ticket->new(current_user => RT->system_user );
     $ticket->load( $id );
     ok $ticket->id, 'loaded the ticket';
-    is $ticket->Owner, $user_b->id, 'correct owner';
+    is $ticket->owner, $user_b->id, 'correct owner';
 }
 
 my $agent_b = RT::Test::Web->new;
@@ -90,7 +90,7 @@
         subject => 'test',
     );
     ok $id, 'created a ticket #'. $id or diag "error: $msg";
-    is $ticket->Owner, $user_b->id, 'correct owner';
+    is $ticket->owner, $user_b->id, 'correct owner';
 
     # try the following group of tests twice with different agents(logins)
     my $test_cb = sub  {
@@ -111,7 +111,7 @@
         my $ticket = RT::Model::Ticket->new(current_user => RT->system_user );
         $ticket->load( $id );
         ok $ticket->id, 'loaded the ticket';
-        is $ticket->Owner, $user_b->id, 'correct owner';
+        is $ticket->owner, $user_b->id, 'correct owner';
     };
 
     $test_cb->($agent_a);
@@ -128,7 +128,7 @@
         subject => 'test',
     );
     ok $id, 'created a ticket #'. $id or diag "error: $msg";
-    is $ticket->Owner, $user_b->id, 'correct owner';
+    is $ticket->owner, $user_b->id, 'correct owner';
 
     $agent_a->goto_ticket( $id );
     $agent_a->follow_link_ok(text => 'Reply');
@@ -140,7 +140,7 @@
     $ticket = RT::Model::Ticket->new(current_user => RT->system_user );
     $ticket->load( $id );
     ok $ticket->id, 'loaded the ticket';
-    is $ticket->Owner, $user_b->id, 'correct owner';
+    is $ticket->owner, $user_b->id, 'correct owner';
 }
 
 ok( RT::Test->set_rights(
@@ -156,7 +156,7 @@
         subject => 'test',
     );
     ok $id, 'created a ticket #'. $id or diag "error: $msg";
-    is $ticket->Owner, RT->nobody->id, 'correct owner';
+    is $ticket->owner, RT->nobody->id, 'correct owner';
 
     $agent_a->goto_ticket( $id );
     ok !($agent_a->find_all_links( text => 'Take' ))[0],
@@ -174,7 +174,7 @@
         subject => 'test',
     );
     ok $id, 'created a ticket #'. $id or diag "error: $msg";
-    is $ticket->Owner, $user_b->id, 'correct owner';
+    is $ticket->owner, $user_b->id, 'correct owner';
 
     $agent_a->goto_ticket( $id );
     ok !($agent_a->find_all_links( text => 'Steal' ))[0],
@@ -195,7 +195,7 @@
         subject => 'test',
     );
     ok $id, 'created a ticket #'. $id or diag "error: $msg";
-    is $ticket->Owner, RT->nobody->id, 'correct owner';
+    is $ticket->owner, RT->nobody->id, 'correct owner';
 
     $agent_a->goto_ticket( $id );
     ok !($agent_a->find_all_links( text => 'Take' ))[0],
@@ -217,7 +217,7 @@
         subject => 'test',
     );
     ok $id, 'created a ticket #'. $id or diag "error: $msg";
-    is $ticket->Owner, RT->nobody->id, 'correct owner';
+    is $ticket->owner, RT->nobody->id, 'correct owner';
 
     $agent_a->goto_ticket( $id );
     ok !($agent_a->find_all_links( text => 'Steal' ))[0],
@@ -227,7 +227,7 @@
     $ticket = RT::Model::Ticket->new(current_user => RT->system_user );
     $ticket->load( $id );
     ok $ticket->id, 'loaded the ticket';
-    is $ticket->Owner, $user_a->id, 'correct owner';
+    is $ticket->owner, $user_a->id, 'correct owner';
 }
 
 diag "TakeTicket+OwnTicket don't work when owner is not nobody";
@@ -239,7 +239,7 @@
         subject => 'test',
     );
     ok $id, 'created a ticket #'. $id or diag "error: $msg";
-    is $ticket->Owner, $user_b->id, 'correct owner';
+    is $ticket->owner, $user_b->id, 'correct owner';
 
     $agent_a->goto_ticket( $id );
     ok !($agent_a->find_all_links( text => 'Take' ))[0],
@@ -262,7 +262,7 @@
         subject => 'test',
     );
     ok $id, 'created a ticket #'. $id or diag "error: $msg";
-    is $ticket->Owner, $user_b->id, 'correct owner';
+    is $ticket->owner, $user_b->id, 'correct owner';
 
     $agent_a->goto_ticket( $id );
     ok !($agent_a->find_all_links( text => 'Steal' ))[0],
@@ -285,7 +285,7 @@
         subject => 'test',
     );
     ok $id, 'created a ticket #'. $id or diag "error: $msg";
-    is $ticket->Owner, $user_b->id, 'correct owner';
+    is $ticket->owner, $user_b->id, 'correct owner';
 
     $agent_a->goto_ticket( $id );
     ok !($agent_a->find_all_links( text => 'Take' ))[0],
@@ -295,7 +295,7 @@
     $ticket = RT::Model::Ticket->new(current_user => RT->system_user );
     $ticket->load( $id );
     ok $ticket->id, 'loaded the ticket';
-    is $ticket->Owner, $user_a->id, 'correct owner';
+    is $ticket->owner, $user_a->id, 'correct owner';
 }
 
 diag "StealTicket+OwnTicket don't work when owner is nobody";
@@ -306,7 +306,7 @@
         subject => 'test',
     );
     ok $id, 'created a ticket #'. $id or diag "error: $msg";
-    is $ticket->Owner, RT->nobody->id, 'correct owner';
+    is $ticket->owner, RT->nobody->id, 'correct owner';
 
     $agent_a->goto_ticket( $id );
     ok !($agent_a->find_all_links( text => 'Steal' ))[0],
@@ -328,7 +328,7 @@
         subject => 'test',
     );
     ok $id, 'created a ticket #'. $id or diag "error: $msg";
-    is $ticket->Owner, RT->nobody->id, 'correct owner';
+    is $ticket->owner, RT->nobody->id, 'correct owner';
 
     $agent_a->goto_ticket( $id );
     ok !($agent_a->find_all_links( text => 'Steal' ))[0],
@@ -346,7 +346,7 @@
         subject => 'test',
     );
     ok $id, 'created a ticket #'. $id or diag "error: $msg";
-    is $ticket->Owner, $user_b->id, 'correct owner';
+    is $ticket->owner, $user_b->id, 'correct owner';
 
     $agent_a->goto_ticket( $id );
     ok !($agent_a->find_all_links( text => 'Take' ))[0],

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	Tue Jan 29 19:16:37 2008
@@ -42,7 +42,7 @@
         subject => 'test',
     );
     ok $tid, 'created a ticket #'. $tid or diag "error: $msg";
-    is $ticket->Owner, $user_a->id, 'correct owner';
+    is $ticket->owner, $user_a->id, 'correct owner';
 }
 
 diag "user B adds a message, we check that user A see notification and can clear it";


More information about the Rt-commit mailing list