[Rt-commit] [svn] r886 - in RT-Client: . t

[autrijus at pallas.eruditorum.org]

Author: autrijus
Date: Wed May 12 22:31:04 2004
New Revision: 886

Modified:
   RT-Client/   (props changed)
   RT-Client/t/1-procedural.t
Log:
 ----------------------------------------------------------------------
 r4833 at not:  autrijus | 2004-05-13T02:24:11.758032Z
 
 * change element indice to 0-based since we now do negative too.
 ----------------------------------------------------------------------
 r4835 at not:  autrijus | 2004-05-13T02:27:44.463451Z
 
 * remove off-topic requestor test.
 * fix test number.
 ----------------------------------------------------------------------


Modified: RT-Client/t/1-procedural.t
==============================================================================
--- RT-Client/t/1-procedural.t	(original)
+++ RT-Client/t/1-procedural.t	Wed May 12 22:31:04 2004
@@ -2,7 +2,7 @@
 
 use FindBin;
 use lib "$FindBin::Bin/../lib";
-use Test::More 'no_plan';
+use Test::More tests => 51;
 
 $SIG{__WARN__} = sub { use Carp; Carp::cluck(@_) };
 $SIG{__DIE__} = sub { use Carp; Carp::confess(@_) };
@@ -36,7 +36,7 @@
 is($rt->get("$uri.Subject"), 'Testing', '->get(.Subject)');
 is($rt->get("$uri.Queue"), 1, '->get(.Queue)');
 is($rt->get("$uri/Requestors/UserMembersObj.Count"), 1, '->get(Requestors.Count)');
-is($rt->get("$uri/Requestors/UserMembersObj/*1.Name"), 'root', 'Requestor is root');
+is($rt->get("$uri/Requestors/UserMembersObj/*0.Name"), 'root', 'Requestor is root');
 
 is($rt->set("$uri.Subject", 'Set0'), 'Set0', '->set(.Subject)');
 is($rt->get("$uri.Subject"), 'Set0', '->set(.Subject) really happened');
@@ -66,7 +66,7 @@
 isa_ok($ticket, 'RT::Client::Object');
 $uri = $ticket->uri;
 isnt($uri, undef, 'New Ticket has a URI: '.$uri);
-is($rt->get("$uri/Requestors/UserMembersObj/*1.Name"), 'RT_System', 'Requestor is RT_System');
+is($rt->get("$uri/Requestors/UserMembersObj/*0.Name"), 'RT_System', 'Requestor is RT_System');
 
 # 1.2 Ability to post a ticket to a specific queue.
 
@@ -106,8 +106,6 @@
 
 is($rt->set("$uri.Status", 'resolved'), 'resolved');
 is($rt->get("$uri.Status"), 'resolved');
-my $root_id = $rt->get("Users/root.Id");
-is($rt->get("$uri/Transactions/*-1.Creator"), $root_id, 'set by root');
 is($rt->set("$uri.Status", 'open'), 'open');
 
 # 2.1 Ability to close a ticket based on ticket number. We'd prefer to