import rt 3.8.8

[freeside.git] / rt / lib / t / regression / 21query-builder.t

diff --git a/rt/lib/t/regression/21query-builder.t b/rt/lib/t/regression/21query-builder.t
index 7f9990a..a0cecb2 100644 (file)
--- 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;