[Rt-commit] rt branch, 4.0/broader-object-names-in-cli, updated. rt-4.0.6-222-g7582bc1

[Alex Vandiver]

The branch, 4.0/broader-object-names-in-cli has been updated
       via  7582bc1d27ba7ec91d22e2d41f837a8fe409debe (commit)
      from  9dff8f4d0b4ac2cba061363e93c9ff70ada0268f (commit)

Summary of changes:
 t/web/command_line.t | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

- Log -----------------------------------------------------------------
commit 7582bc1d27ba7ec91d22e2d41f837a8fe409debe
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Fri Nov 2 14:18:47 2012 -0400

    Test queues with spaces in them

diff --git a/t/web/command_line.t b/t/web/command_line.t
index 394daab..adb67a6 100644
--- a/t/web/command_line.t
+++ b/t/web/command_line.t
@@ -3,7 +3,7 @@
 use strict;
 use File::Spec ();
 use Test::Expect;
-use RT::Test tests => 315, actual_server => 1;
+use RT::Test tests => undef, actual_server => 1;
 my ($baseurl, $m) = RT::Test->started_ok;
 
 use RT::User;
@@ -83,6 +83,16 @@ TODO: {
     expect_like(qr/$queue_id: EditedQueue$$/, 'Found the queue');
 }
 
+# Queues with spaces in their names
+expect_send("create -t queue set Name='Spaced Out'", 'Creating a queue...');
+expect_like(qr/Queue \d+ created/, 'Created the queue');
+expect_handle->before() =~ /Queue (\d+) created/;
+my $other_queue = $1;
+ok($other_queue, "Got queue id=$other_queue");
+expect_send("show 'queue/Spaced Out'", 'Showing the queue...');
+expect_like(qr/id: queue\/$other_queue/, 'Saw the queue');
+expect_like(qr/Name: Spaced Out/, 'Saw the modification');
+
 
 
 # Set up a custom field for editing tests
@@ -536,4 +546,7 @@ sub check_attachment {
 my @warnings = grep { $_ !~ /\$ampm/ } $m->get_warnings;
 is( scalar @warnings, 0, 'no extra warnings' );
 
+undef $m;
+done_testing;
+
 1; # needed to avoid a weird exit value from expect_quit

-----------------------------------------------------------------------