#!/usr/bin/env perl
use strict;
use warnings;
use RT::Extension::MoveRules::Test tests => 15;
RT->Config->Set(
'MoveRules' =>
{
From => 'From',
To => 'To',
Rule => 'Subject = "good" AND Status = "open"'
},
);
my $from = RT::Extension::MoveRules::Test->load_or_create_queue(
Name => 'From'
);
my $to = RT::Extension::MoveRules::Test->load_or_create_queue(
Name => 'To'
);
my $ticket;
{
$ticket = RT::Ticket->new($RT::SystemUser);
my ($tid, $msg) = $ticket->Create( Queue => $from->id, Subject => 'bad' );
ok( $tid, "created ticket" );
}
{
my ($status, $msg) = $ticket->SetQueue( $to->id );
ok !$status, "didn't move ticket: $msg";
}
{
my ($status, $msg) = $ticket->SetSubject("good");
ok $status, "changed subject";
}
{
my ($status, $msg) = $ticket->SetQueue( $to->id );
ok !$status, "didn't move ticket: $msg";
}
{
my ($status, $msg) = $ticket->SetStatus("open");
ok $status, "changed status";
}
{
my ($status, $msg) = $ticket->SetQueue( $to->id );
ok $status, "moved ticket" or diag "error: $msg";
}