diff options
author | cvs2git <cvs2git> | 2011-04-18 23:15:20 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2011-04-18 23:15:20 +0000 |
commit | df48356d49c79a75ef5886a04b7fb599807e38a8 (patch) | |
tree | e9897aecc8ce1e3085de98d9cefcd325ef54a3cb /rt/lib/t/setup_regression.t | |
parent | 75162bb14b3e38d66617077843f4dfdcaf09d5c4 (diff) |
This commit was manufactured by cvs2svn to create tag 'RT_3_8_10'.RT_3_8_10
Diffstat (limited to 'rt/lib/t/setup_regression.t')
-rw-r--r-- | rt/lib/t/setup_regression.t | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/rt/lib/t/setup_regression.t b/rt/lib/t/setup_regression.t deleted file mode 100644 index 36f809b65..000000000 --- a/rt/lib/t/setup_regression.t +++ /dev/null @@ -1,34 +0,0 @@ -#!/usr/bin/perl - -use Test::More qw(no_plan); - -use RT; -ok(RT::LoadConfig); -ok(RT::Init, "Basic initialization and DB connectivity"); - -# Create a new queue -use_ok(RT::Queue); -my $q = RT::Queue->new($RT::SystemUser); - -$q->Load('regression'); -if ($q->id != 0) { - die "Regression tests not starting with a clean DB. Bailing"; -} - -my ($id, $msg) = $q->Create( Name => 'Regression', - Description => 'A regression test queue', - CorrespondAddress => 'correspond@a', - CommentAddress => 'comment@a'); - -isnt($id, 0, "Queue was created sucessfully - $msg"); - -my $q2 = RT::Queue->new($RT::SystemUser); - -ok($q2->Load($id)); -is($q2->id, $id, "Sucessfully loaded the queue again"); -is($q2->Name, 'Regression'); -is($q2->Description, 'A regression test queue'); -is($q2->CorrespondAddress, 'correspond@a'); -is($q2->CommentAddress, 'comment@a'); - - |