[Rt-commit] r6449 - rt/branches/3.6-RELEASE/lib/t/regression

[ruz at bestpractical.com]

Author: ruz
Date: Thu Nov 16 17:03:05 2006
New Revision: 6449

Modified:
   rt/branches/3.6-RELEASE/lib/t/regression/21query-builder.t

Log:
* make the test file re-entrant

Modified: rt/branches/3.6-RELEASE/lib/t/regression/21query-builder.t
==============================================================================
--- rt/branches/3.6-RELEASE/lib/t/regression/21query-builder.t	(original)
+++ rt/branches/3.6-RELEASE/lib/t/regression/21query-builder.t	Thu Nov 16 17:03:05 2006
@@ -16,7 +16,20 @@
 $agent->cookie_jar($cookie_jar);
 
 use RT;
-RT::LoadConfig;
+RT::LoadConfig();
+RT::Init();
+
+# create a regression queue if it doesn't exist
+{
+    my $queue = RT::Queue->new( $RT::SystemUser );
+    $queue->Load( 'Regression' );
+    if ( $queue->id ) {
+        ok(1, "queue 'Regression' exists");
+    } else {
+        $queue->Create( Name => 'Regression' );
+        ok($queue->id, "created queue 'Regression'");
+    }
+}
 
 # get the top page
 my $url = $RT::WebURL;