diff options
Diffstat (limited to 'rt/t/api/tickets.t')
-rw-r--r-- | rt/t/api/tickets.t | 104 |
1 files changed, 0 insertions, 104 deletions
diff --git a/rt/t/api/tickets.t b/rt/t/api/tickets.t deleted file mode 100644 index 9148a8899..000000000 --- a/rt/t/api/tickets.t +++ /dev/null @@ -1,104 +0,0 @@ - -use strict; -use warnings; -use RT; -use RT::Test tests => 16; - - -{ - -ok (require RT::Tickets); -ok( my $testtickets = RT::Tickets->new( $RT::SystemUser ) ); -ok( $testtickets->LimitStatus( VALUE => 'deleted' ) ); -# Should be zero until 'allow_deleted_search' -is( $testtickets->Count , 0 ); - - -} - -{ - -# Test to make sure that you can search for tickets by requestor address and -# by requestor name. - -my ($id,$msg); -my $u1 = RT::User->new($RT::SystemUser); -($id, $msg) = $u1->Create( Name => 'RequestorTestOne', EmailAddress => 'rqtest1@example.com'); -ok ($id,$msg); -my $u2 = RT::User->new($RT::SystemUser); -($id, $msg) = $u2->Create( Name => 'RequestorTestTwo', EmailAddress => 'rqtest2@example.com'); -ok ($id,$msg); - -my $t1 = RT::Ticket->new($RT::SystemUser); -my ($trans); -($id,$trans,$msg) =$t1->Create (Queue => 'general', Subject => 'Requestor test one', Requestor => [$u1->EmailAddress]); -ok ($id, $msg); - -my $t2 = RT::Ticket->new($RT::SystemUser); -($id,$trans,$msg) =$t2->Create (Queue => 'general', Subject => 'Requestor test one', Requestor => [$u2->EmailAddress]); -ok ($id, $msg); - - -my $t3 = RT::Ticket->new($RT::SystemUser); -($id,$trans,$msg) =$t3->Create (Queue => 'general', Subject => 'Requestor test one', Requestor => [$u2->EmailAddress, $u1->EmailAddress]); -ok ($id, $msg); - - -my $tix1 = RT::Tickets->new($RT::SystemUser); -$tix1->FromSQL('Requestor.EmailAddress LIKE "rqtest1" OR Requestor.EmailAddress LIKE "rqtest2"'); - -is ($tix1->Count, 3); - -my $tix2 = RT::Tickets->new($RT::SystemUser); -$tix2->FromSQL('Requestor.Name LIKE "TestOne" OR Requestor.Name LIKE "TestTwo"'); - -is ($tix2->Count, 3); - - -my $tix3 = RT::Tickets->new($RT::SystemUser); -$tix3->FromSQL('Requestor.EmailAddress LIKE "rqtest1"'); - -is ($tix3->Count, 2); - -my $tix4 = RT::Tickets->new($RT::SystemUser); -$tix4->FromSQL('Requestor.Name LIKE "TestOne" '); - -is ($tix4->Count, 2); - -# Searching for tickets that have two requestors isn't supported -# There's no way to differentiate "one requestor name that matches foo and bar" -# and "two requestors, one matching foo and one matching bar" - -# my $tix5 = RT::Tickets->new($RT::SystemUser); -# $tix5->FromSQL('Requestor.Name LIKE "TestOne" AND Requestor.Name LIKE "TestTwo"'); -# -# is ($tix5->Count, 1); -# -# my $tix6 = RT::Tickets->new($RT::SystemUser); -# $tix6->FromSQL('Requestor.EmailAddress LIKE "rqtest1" AND Requestor.EmailAddress LIKE "rqtest2"'); -# -# is ($tix6->Count, 1); - - - -} - -{ - -my $t1 = RT::Ticket->new($RT::SystemUser); -$t1->Create(Queue => 'general', Subject => "LimitWatchers test", Requestors => \['requestor1@example.com']); - - -} - -{ - -# We assume that we've got some tickets hanging around from before. -ok( my $unlimittickets = RT::Tickets->new( $RT::SystemUser ) ); -ok( $unlimittickets->UnLimit ); -ok( $unlimittickets->Count > 0, "UnLimited tickets object should return tickets" ); - - -} - -1; |