diff options
Diffstat (limited to 'rt/lib/t/regression/20-sort-by-user.t')
-rw-r--r-- | rt/lib/t/regression/20-sort-by-user.t | 155 |
1 files changed, 0 insertions, 155 deletions
diff --git a/rt/lib/t/regression/20-sort-by-user.t b/rt/lib/t/regression/20-sort-by-user.t deleted file mode 100644 index 04bf2e7..0000000 --- a/rt/lib/t/regression/20-sort-by-user.t +++ /dev/null @@ -1,155 +0,0 @@ -#!/usr/bin/perl - -use Test::More tests => 32; -use RT; -RT::LoadConfig(); -RT::Init(); - -use strict; -use warnings; - -use RT::Tickets; -use RT::Queue; -use RT::CustomField; - -######################################################### -# Test sorting by Owner, Creator and LastUpdatedBy -# we sort by user name -######################################################### - -diag "Create a queue to test with."; -my $queue_name = "OwnerSortQueue$$"; -my $queue; -{ - $queue = RT::Queue->new( $RT::SystemUser ); - my ($ret, $msg) = $queue->Create( - Name => $queue, - Description => 'queue for custom field sort testing' - ); - ok($ret, "$queue test queue creation. $msg"); -} - -my @uids; -my @users; -# create them in reverse order to avoid false positives -foreach my $u (qw(Z A)) { - my $name = $u ."-user-to-test-ordering-$$"; - my $user = RT::User->new( $RT::SystemUser ); - my ($uid) = $user->Create( - Name => $name, - Privileged => 1, - ); - ok $uid, "created user #$uid"; - - my ($status, $msg) = $user->PrincipalObj->GrantRight( Right => 'OwnTicket', Object => $queue ); - ok $status, "granted right"; - ($status, $msg) = $user->PrincipalObj->GrantRight( Right => 'CreateTicket', Object => $queue ); - ok $status, "granted right"; - - push @users, $user; - push @uids, $user->id; -} - -my ($total, @data, @tickets, @test) = (0, ()); - -sub add_tix_from_data { - my @res = (); - @data = sort { rand(100) <=> rand(100) } @data; - while (@data) { - my $t = RT::Ticket->new($RT::SystemUser); - my %args = %{ shift(@data) }; - - my ( $id, undef, $msg ) = $t->Create( %args, Queue => $queue->id ); - if ( $args{'Owner'} ) { - is $t->Owner, $args{'Owner'}, "owner is correct"; - } - if ( $args{'Creator'} ) { - is $t->Creator, $args{'Creator'}, "creator is correct"; - } - # hackish, but simpler - if ( $args{'LastUpdatedBy'} ) { - $t->__Set( Field => 'LastUpdatedBy', Value => $args{'LastUpdatedBy'} ); - } - ok( $id, "ticket created" ) or diag("error: $msg"); - push @res, $t; - $total++; - } - return @res; -} - -sub run_tests { - my $query_prefix = join ' OR ', map 'id = '. $_->id, @tickets; - foreach my $test ( @test ) { - my $query = join " AND ", map "( $_ )", grep defined && length, - $query_prefix, $test->{'Query'}; - - foreach my $order (qw(ASC DESC)) { - my $error = 0; - my $tix = RT::Tickets->new( $RT::SystemUser ); - $tix->FromSQL( $query ); - $tix->OrderBy( FIELD => $test->{'Order'}, ORDER => $order ); - - ok($tix->Count, "found ticket(s)") - or $error = 1; - - my ($order_ok, $last) = (1, $order eq 'ASC'? '-': 'zzzzzz'); - while ( my $t = $tix->Next ) { - my $tmp; - if ( $order eq 'ASC' ) { - $tmp = ((split( /,/, $last))[0] cmp (split( /,/, $t->Subject))[0]); - } else { - $tmp = -((split( /,/, $last))[-1] cmp (split( /,/, $t->Subject))[-1]); - } - if ( $tmp > 0 ) { - $order_ok = 0; last; - } - $last = $t->Subject; - } - - ok( $order_ok, "$order order of tickets is good" ) - or $error = 1; - - if ( $error ) { - diag "Wrong SQL query:". $tix->BuildSelectQuery; - $tix->GotoFirstItem; - while ( my $t = $tix->Next ) { - diag sprintf "%02d - %s", $t->id, $t->Subject; - } - } - } - } -} - -@data = ( - { Subject => 'Nobody' }, - { Subject => 'Z', Owner => $uids[0] }, - { Subject => 'A', Owner => $uids[1] }, -); -@tickets = add_tix_from_data(); -@test = ( - { Order => "Owner" }, -); -run_tests(); - -@data = ( - { Subject => 'RT' }, - { Subject => 'Z', Creator => $uids[0] }, - { Subject => 'A', Creator => $uids[1] }, -); -@tickets = add_tix_from_data(); -@test = ( - { Order => "Creator" }, -); -run_tests(); - -@data = ( - { Subject => 'RT' }, - { Subject => 'Z', LastUpdatedBy => $uids[0] }, - { Subject => 'A', LastUpdatedBy => $uids[1] }, -); -@tickets = add_tix_from_data(); -@test = ( - { Order => "LastUpdatedBy" }, -); -run_tests(); - |