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
|
#!/usr/bin/perl -w
use strict; use warnings;
use Test::More qw/no_plan/;
use_ok('RT');
RT::LoadConfig();
RT::Init();
use_ok('RT::Action::CreateTickets');
my $QUEUE = 'uploadtest-'.$$;
my $queue_obj = RT::Queue->new($RT::SystemUser);
$queue_obj->Create(Name => $QUEUE);
my $cf = RT::CustomField->new($RT::SystemUser);
my ($val,$msg) = $cf->Create(Name => 'Work Package-'.$$, Type => 'Freeform', LookupType => RT::Ticket->CustomFieldLookupType, MaxValues => 1);
ok($cf->id);
ok($val,$msg);
($val, $msg) = $cf->AddToObject($queue_obj);
ok($val,$msg);
ok($queue_obj->TicketCustomFields()->Count, "We have a custom field, at least");
my $data = <<EOF;
id,Queue,Subject,Status,Requestor,@{[$cf->Name]}
create-1,$QUEUE,hi,new,root,2.0
create-2,$QUEUE,hello,new,root,3.0
EOF
my $action = RT::Action::CreateTickets->new(CurrentUser => RT::CurrentUser->new('root'));
ok ($action->CurrentUser->id , "WE have a current user");
$action->Parse(Content => $data);
my @results = $action->CreateByTemplate();
my $tix = RT::Tickets->new($RT::SystemUser);
$tix->FromSQL ("Queue = '". $QUEUE."'");
$tix->OrderBy( FIELD => 'id', ORDER => 'ASC' );
ok($tix->Count);
my $first = $tix->First();
is($first->Subject(), 'hi');
is($first->FirstCustomFieldValue($cf->id), '2.0');
my $second = $tix->Next;
is($second->Subject(), 'hello');
is($second->FirstCustomFieldValue($cf->id), '3.0');
1;
|