[Rt-commit] r13142 - in rt/branches/3.8-TESTING: .

[sartak at bestpractical.com]

Author: sartak
Date: Tue Jun 10 17:19:28 2008
New Revision: 13142

Modified:
   rt/branches/3.8-TESTING/   (props changed)
   rt/branches/3.8-TESTING/t/web/rest.t

Log:
 r62142 at onn:  sartak | 2008-06-10 17:18:52 -0400
 Make sure that we can set a very strangely named custom field in the REST interface


Modified: rt/branches/3.8-TESTING/t/web/rest.t
==============================================================================
--- rt/branches/3.8-TESTING/t/web/rest.t	(original)
+++ rt/branches/3.8-TESTING/t/web/rest.t	Tue Jun 10 17:19:28 2008
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 8;
+use Test::More tests => 9;
 use RT::Test;
 
 my ($baseurl, $m) = RT::Test->started_ok;
@@ -26,7 +26,12 @@
 my $text = $m->content;
 my @lines = $text =~ m{.*}g;
 shift @lines; # header
+
+# CFs aren't in the default ticket form
+push @lines, "CF-fu()n:k/: maximum";
+
 $text = join "\n", @lines;
+
 ok($text =~ s/Subject:\s*$/Subject: REST interface/m, "successfully replaced subject");
 
 $m->post("$baseurl/REST/1.0/ticket/edit", [
@@ -43,3 +48,5 @@
 $ticket->Load($id);
 is($ticket->Id, $id, "loaded the REST-created ticket");
 is($ticket->Subject, "REST interface", "subject successfully set");
+is($ticket->FirstCustomFieldValue("fu()n:k/"), "maximum", "CF successfully set");
+