← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/request-tracker3.8/oneiric-updates

« back to all changes in this revision

Viewing changes to t/ticket/pawsort.t

  • Committer: Bazaar Package Importer
  • Author(s): Dominic Hargreaves, Dominic Hargreaves, Christian Perrier
  • Date: 2009-06-16 21:46:59 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20090616214659-5ji9k1n3qyc2br3n
Tags: 3.8.4-1
http://bugs.debian.org/519885
http://bugs.debian.org/519922
http://bugs.debian.org/520603
http://bugs.debian.org/520759
http://bugs.debian.org/521199
http://bugs.debian.org/521926
http://bugs.debian.org/512750
http://bugs.debian.org/522367
http://bugs.debian.org/520959
http://bugs.debian.org/522896
http://bugs.debian.org/520958
http://bugs.debian.org/523481
http://bugs.debian.org/524256
http://bugs.debian.org/524256
http://bugs.debian.org/524449
http://bugs.debian.org/524715
http://bugs.debian.org/524894
http://bugs.debian.org/525171
http://bugs.debian.org/525281
http://bugs.debian.org/523090
http://bugs.debian.org/526914
http://bugs.debian.org/533069
http://bugs.debian.org/512653
http://bugs.debian.org/518692
http://bugs.debian.org/238345
[ Dominic Hargreaves ]
* Add missing comma in Depends (fixes FTBFS on etch)
* Update debconf translations: pt.po, ja.po, sv.po, it.po, cs.po, ru.po
  (Closes: #519885, #519922, #520603, #520759, #521199, #521926)
* Document preference for not using SQLite in production
  (Closes: #512750)

[ Christian Perrier ]
* Debconf templates and debian/control reviewed by the debian-l10n-
  english team as part of the Smith review project.
  (Closes: #522367, #520959)
* [Debconf translation updates]
  - Japanese. Closes: #522896
  - German. Closes: #520958
  - Portuguese. Closes: #523481
  - Galician. Closes: #524256
  - Galician. Closes: #524256
  - Spanish. Closes: #524449
  - Italian. Closes: #524715
  - Russian. Closes: #524894
  - Swedish. Closes: #525171
  - French. Closes: #525281

[ Dominic Hargreaves ]
* Don't tell dbconfig to comment out unused variables, since this
  breaks MySQL and Postgres database configuration (Closes: #523090)
* Update Standards-Version (no changes)
* Switch dependency on sysklogd to rsyslog (Closes: #526914)
* New upstream release; includes
  - Minor security fix (Closes: #533069)
  - Add missing Postgres index (Closes: #512653)
* Patch webmux.pl to provide a better error message when the wrong
  major version of RT is in @INC (for example in a mod_perl context).
  (Closes: #518692)
* Add some more example Exim 4 configuration (Closes: #238345)
* Don't apply database ACLs in databases managed by dbconfig-common.
* Remove unused ACL patch

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/ticket/pawsort.t
1
 
#!/usr/bin/perl
2
 
 
3
 
use Test::More; 
4
 
plan tests => 7;
5
 
use RT;
6
 
use RT::Test;
7
 
 
8
 
 
9
 
use strict;
10
 
use warnings;
11
 
 
12
 
use RT::Tickets;
13
 
use RT::Queue;
14
 
use RT::CustomField;
15
 
 
16
 
my($ret,$msg);
17
 
 
18
 
# Test Paw Sort
19
 
 
20
 
 
21
 
 
22
 
# ---- Create a queue to test with.
23
 
my $queue = "PAWSortQueue-$$";
24
 
my $queue_obj = RT::Queue->new($RT::SystemUser);
25
 
($ret, $msg) = $queue_obj->Create(Name => $queue,
26
 
                                  Description => 'queue for custom field sort testing');
27
 
ok($ret, "$queue test queue creation. $msg");
28
 
 
29
 
 
30
 
# ---- Create some users
31
 
 
32
 
my $me = RT::User->new($RT::SystemUser);
33
 
($ret, $msg) = $me->Create(Name => "Me$$", EmailAddress => $$.'create-me-1@example.com');
34
 
($ret, $msg) = $me->PrincipalObj->GrantRight(Object =>$queue_obj, Right => 'OwnTicket');
35
 
($ret, $msg) = $me->PrincipalObj->GrantRight(Object =>$queue_obj, Right => 'SeeQueue');
36
 
($ret, $msg) = $me->PrincipalObj->GrantRight(Object =>$queue_obj, Right => 'ShowTicket');
37
 
my $you = RT::User->new($RT::SystemUser);
38
 
($ret, $msg) = $you->Create(Name => "You$$", EmailAddress => $$.'create-you-1@example.com');
39
 
($ret, $msg) = $you->PrincipalObj->GrantRight(Object =>$queue_obj, Right => 'OwnTicket');
40
 
($ret, $msg) = $you->PrincipalObj->GrantRight(Object =>$queue_obj, Right => 'SeeQueue');
41
 
($ret, $msg) = $you->PrincipalObj->GrantRight(Object =>$queue_obj, Right => 'ShowTicket');
42
 
 
43
 
my $nobody = RT::User->new($RT::SystemUser);
44
 
$nobody->Load('nobody');
45
 
 
46
 
 
47
 
# ----- Create some tickets to test with.  Assign them some values to
48
 
# make it easy to sort with.
49
 
 
50
 
my @tickets = (
51
 
               [qw[1 10], $me],
52
 
               [qw[2 20], $me],
53
 
               [qw[3 20], $you],
54
 
               [qw[4 30], $you],
55
 
               [qw[5  5], $nobody],
56
 
               [qw[6 55], $nobody],
57
 
              );
58
 
for (@tickets) {
59
 
  my $t = RT::Ticket->new($RT::SystemUser);
60
 
  $t->Create( Queue => $queue_obj->Id,
61
 
              Subject => $_->[0],
62
 
              Owner => $_->[2]->Id,
63
 
              Priority => $_->[1],
64
 
            );
65
 
}
66
 
 
67
 
sub check_order {
68
 
  my ($tx, @order) = @_;
69
 
  my @results;
70
 
  while (my $t = $tx->Next) {
71
 
    push @results, $t->Subject;
72
 
  }
73
 
  my $results = join (" ",@results);
74
 
  my $order = join(" ",@order);
75
 
  is( $results, $order );
76
 
}
77
 
 
78
 
 
79
 
# The real tests start here
80
 
 
81
 
my $cme = new RT::CurrentUser( $me );
82
 
my $metx = new RT::Tickets( $cme );
83
 
# Make sure we can sort in both directions on a queue specific field.
84
 
$metx->FromSQL(qq[queue="$queue"] );
85
 
$metx->OrderBy( FIELD => "Custom.Ownership", ORDER => 'ASC' );
86
 
is($metx->Count,6);
87
 
check_order( $metx, qw[2 1 6 5 4 3]);
88
 
 
89
 
$metx->OrderBy( FIELD => "Custom.Ownership", ORDER => 'DESC' );
90
 
is($metx->Count,6);
91
 
check_order( $metx, reverse qw[2 1 6 5 4 3]);
92
 
 
93
 
 
94
 
 
95
 
my $cyou = new RT::CurrentUser( $you );
96
 
my $youtx = new RT::Tickets( $cyou );
97
 
# Make sure we can sort in both directions on a queue specific field.
98
 
$youtx->FromSQL(qq[queue="$queue"] );
99
 
$youtx->OrderBy( FIELD => "Custom.Ownership", ORDER => 'ASC' );
100
 
is($youtx->Count,6);
101
 
check_order( $youtx, qw[4 3 6 5 2 1]);
102
 
 
103
 
__END__
104
 
 
105