(undef) x 6);
my @subjects = ("first test", "second test", "third test", "fourth test", "fifth test") x 6;
while (@requestors) {
(undef) x 6);
my @subjects = ("first test", "second test", "third test", "fourth test", "fifth test") x 6;
while (@requestors) {
my ( $id, undef $msg ) = $t->Create(
Queue => $q->id,
Subject => shift @subjects,
my ( $id, undef $msg ) = $t->Create(
Queue => $q->id,
Subject => shift @subjects,
$tix->FromSQL("Queue = '$queue'");
is($tix->Count, 30, "found thirty tickets");
}
{
$tix->FromSQL("Queue = '$queue'");
is($tix->Count, 30, "found thirty tickets");
}
{
$tix->FromSQL("Queue = '$queue' AND requestor = 'alpha\@example.com'");
$tix->OrderByCols({ FIELD => "Subject" });
my @subjects;
$tix->FromSQL("Queue = '$queue' AND requestor = 'alpha\@example.com'");
$tix->OrderByCols({ FIELD => "Subject" });
my @subjects;
$tix->FromSQL("Queue = '$queue' AND subject = 'first test' AND Requestor.EmailAddress LIKE 'example.com'");
$tix->OrderByCols({ FIELD => "Requestor.EmailAddress" });
check_emails_order($tix, 5, 'ASC');
$tix->FromSQL("Queue = '$queue' AND subject = 'first test' AND Requestor.EmailAddress LIKE 'example.com'");
$tix->OrderByCols({ FIELD => "Requestor.EmailAddress" });
check_emails_order($tix, 5, 'ASC');
$tix->FromSQL("Queue = '$queue' AND Subject = 'first test'");
$tix->OrderByCols({ FIELD => "Requestor.EmailAddress" });
check_emails_order($tix, 6, 'ASC');
$tix->FromSQL("Queue = '$queue' AND Subject = 'first test'");
$tix->OrderByCols({ FIELD => "Requestor.EmailAddress" });
check_emails_order($tix, 6, 'ASC');
$tix->FromSQL("Queue = '$queue' AND Subject = 'first test'");
$tix->OrderByCols({ FIELD => "Requestor.EmailAddress" });
check_emails_order($tix, 6, 'ASC');
$tix->FromSQL("Queue = '$queue' AND Subject = 'first test'");
$tix->OrderByCols({ FIELD => "Requestor.EmailAddress" });
check_emails_order($tix, 6, 'ASC');
$tix->FromSQL("Queue = '$queue' AND Subject = 'first test'");
$tix->OrderByCols({ FIELD => "Requestor.EmailAddress" });
$tix->FromSQL("Queue = '$queue' AND Subject = 'first test'");
$tix->OrderByCols({ FIELD => "Requestor.EmailAddress" });
is_deeply( [grep {$_} @mails], [ sort grep {$_} @mails ], "Paging works (exclude nulls, which are db-dependant)");
}
RT::Test->mailsent_ok(25);
is_deeply( [grep {$_} @mails], [ sort grep {$_} @mails ], "Paging works (exclude nulls, which are db-dependant)");
}
RT::Test->mailsent_ok(25);