#!/usr/bin/perl
use strict;
+use warnings;
+
use Test::More tests => 39;
use Test::WWW::Mechanize;
use HTTP::Request::Common;
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'");
"no changes, no duplicate condition with badly encoded text"
);
+ $cf->delete();
}
1;