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

[autrijus at pallas.eruditorum.org]

Author: autrijus
Date: Fri May 14 14:30:06 2004
New Revision: 900

Modified:
   RT-Client/   (props changed)
   RT-Client/t/1-procedural.t
Log:
 ----------------------------------------------------------------------
 r4893 at not:  autrijus | 2004-05-14T18:30:07.520537Z
 
 * add regression test for double PUT.
 ----------------------------------------------------------------------


Modified: RT-Client/t/1-procedural.t
==============================================================================
--- RT-Client/t/1-procedural.t	(original)
+++ RT-Client/t/1-procedural.t	Fri May 14 14:30:06 2004
@@ -129,6 +129,9 @@
 # 2. Ability to Close a Ticket via an External Interface
 
 is($rt->set("$uri.Status", 'resolved'), 'resolved', 'resolve a ticket');
+is($rt->status, 200, 'resolved with status 200');
+is($rt->set("$uri.Status", 'resolved'), 'resolved', 'resolve a ticket again');
+is($rt->status, 200, 'resolved with status 200');
 is($rt->get("$uri.Status"), 'resolved', 'ticket resolved');
 is($rt->set("$uri.Status", 'open'), 'open', 'ticket reopened');