X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Flib%2Ft%2Fregression%2F21query-builder.t;h=a0cecb2f3ab92a73b445b53df28d38388555707e;hp=7f9990a30071e956b2b48105c946dcc8e625b6b0;hb=e70abd21bab68b23488f7ef1ee2e693a3b365691;hpb=ef20b2b6b1feb47ad02b5ff7525f1a0fd11d0fa4

diff --git a/rt/lib/t/regression/21query-builder.t b/rt/lib/t/regression/21query-builder.t
index 7f9990a30..a0cecb2f3 100644
--- a/rt/lib/t/regression/21query-builder.t
+++ b/rt/lib/t/regression/21query-builder.t
@@ -1,6 +1,8 @@
 #!/usr/bin/perl
 
 use strict;
+use warnings;
+
 use Test::More tests => 39;
 use Test::WWW::Mechanize;
 use HTTP::Request::Common;
@@ -24,7 +26,7 @@ RT::Init();
     my $queue = RT::Queue->new( $RT::SystemUser );
     $queue->Load( 'Regression' );
     if ( $queue->id ) {
-        ok(1, "queue 'Regression' exists");
+        ok(1, "queue 'Regression' exists - #". $queue->id );
     } else {
         $queue->Create( Name => 'Regression' );
         ok($queue->id, "created queue 'Regression'");
@@ -239,6 +241,7 @@ is( getQueryFromForm, "( id > 1234 AND Status = 'stalled' ) OR Queue != 'Regress
         "no changes, no duplicate condition with badly encoded text"
     );
 
+	$cf->delete();
 }
 
 1;