[Rt-commit] r8236 - in rtir/branches/2.3-EXPERIMENTAL: .

[thayes at bestpractical.com]

Author: thayes
Date: Fri Jul 20 16:13:56 2007
New Revision: 8236

Added:
   rtir/branches/2.3-EXPERIMENTAL/t/021-view-age-field.t
Modified:
   rtir/branches/2.3-EXPERIMENTAL/   (props changed)

Log:
 r8368 at toth:  toth | 2007-07-20 16:13:19 -0400
 * Created test to see if the Age field appears as a select box for a user without ModifyCustomField right
 


Added: rtir/branches/2.3-EXPERIMENTAL/t/021-view-age-field.t
==============================================================================
--- (empty file)
+++ rtir/branches/2.3-EXPERIMENTAL/t/021-view-age-field.t	Fri Jul 20 16:13:56 2007
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use Test::More tests => 7;
+
+require "t/rtir-test.pl";
+
+my $agent = default_agent();
+
+
+$agent->follow_link_ok({text => 'Incident Reports', n => "1"}, "Followed 'Incident Reports' link");
+$agent->follow_link_ok({text => "New Report", n => "1"}, "Followed 'New Report' link");
+
+$agent->content_unlike(qr{<select name="Object-RT::Ticket--CustomField-20-Values" id="Object-RT::Ticket--CustomField-20-Values"\s*size="5"\s*>}, "Select box does not appear");
+$agent->content_like(qr{Age: .*}, "Found Age text (not a select box)");