1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
use strict;
use warnings;
use RT::Test tests => undef;
RT->Config->Set( UserTicketDataResultFormat =>
"'__id__', '__Subject__', '__Status__', '__QueueName__', '__Owner__', '__Priority__', '__Requestors__'"
);
my ( $baseurl, $agent ) = RT::Test->started_ok;
my $url = $agent->rt_base_url;
# Login
$agent->login( 'root' => 'password' );
{
my $root = RT::Test->load_or_create_user( Name => 'root' );
ok $root && $root->id;
# We want transactions attached to our user, so not using test method for ticket create
my $ticket = RT::Ticket->new($root);
$ticket->Create(
Subject => 'Test',
Requestor => 'root',
Queue => 'General'
);
my $id = $ticket->id;
ok $id;
$ticket->Comment( Content => 'Test - Comment' );
$ticket->Correspond( Content => 'Test - Reply' );
my @dates;
my $trans = $ticket->Transactions;
while ( my $tran = $trans->Next ) {
if ( $tran->Type =~ /Create|Comment|Correspond/ ) {
push @dates, $tran->CreatedObj->AsString;
}
}
my ( $date_created, $date_commented, $date_correspondence ) = @dates;
# Make sure we have the expected amount of transactions
is scalar @dates, 3;
# TSV file for user record information
$agent->get_ok( $url . "Admin/Users/Modify.html?id=" . $root->id );
$agent->follow_link_ok( { text => 'User Data' } );
my $user_info_tsv = <<EOF;
id\tName\tEmail Address\tReal Name\tNick Name\tOrganization\tHome Phone\tWork Phone\tMobile Phone\tPager Phone\tAddress1\tAddress2\tCity\tState\tZip\tCountry\tGecos\tLang\tTimezone\tFree Form Contact Info
14\troot\troot\@localhost\tEnoch Root\t\t\t\t\t\t\t\t\t\t\t\t\troot\t\t\t
EOF
is $agent->content, $user_info_tsv,
"User record information downloaded correctly";
# TSV file for Transactions
$agent->get_ok( $url . "Admin/Users/Modify.html?id=" . $root->id );
$agent->follow_link_ok( { text => 'User Transactions' } );
my $transaction_info_tsv = <<EOF;
Ticket Id\tid\tCreated\tDescription\tOld Value\tNew Value\tContent
1\t37\t$date_created\tTicket created\t\t\tThis transaction appears to have no content
1\t39\t$date_commented\tComments added\t\t\tTest - Comment
1\t40\t$date_correspondence\tCorrespondence added\t\t\tTest - Reply
EOF
is $agent->content, $transaction_info_tsv,
"User transaction information downloaded correctly";
# TSV file for user's Tickets
$agent->get_ok( $url . "Admin/Users/Modify.html?id=" . $root->id );
$agent->follow_link_ok( { text => 'User Tickets' } );
my $ticket_info_tsv = <<EOF;
id\tSubject\tStatus\tQueue\tOwner\tPriority\tRequestor
1\tTest\topen\tGeneral\tNobody in particular\tLow\troot (Enoch Root)
EOF
is $agent->content, $ticket_info_tsv, "User tickets downloaded correctly";
}
done_testing();
|
