Mailing List Archive

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@not: autrijus | 2004-05-13T02:24:11.758032Z

* change element indice to 0-based since we now do negative too.
----------------------------------------------------------------------
r4835@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
_______________________________________________
Rt-commit mailing list
Rt-commit@lists.bestpractical.com
http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-commit