diff options
author | ivan <ivan> | 2005-10-15 09:11:20 +0000 |
---|---|---|
committer | ivan <ivan> | 2005-10-15 09:11:20 +0000 |
commit | d4d0590bef31071e8809ec046717444b95b3f30a (patch) | |
tree | ee1236da50578390d2642114f28eaed99a5efb18 /rt/lib/t/setup_regression.t | |
parent | d39d52aac8f38ea9115628039f0df5aa3ac826de (diff) |
import rt 3.4.4
Diffstat (limited to 'rt/lib/t/setup_regression.t')
-rw-r--r-- | rt/lib/t/setup_regression.t | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/rt/lib/t/setup_regression.t b/rt/lib/t/setup_regression.t new file mode 100644 index 0000000..36f809b --- /dev/null +++ b/rt/lib/t/setup_regression.t @@ -0,0 +1,34 @@ +#!/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'); + + |