File Coverage

blib/lib/TestLink/API.pm

Criterion	Covered	Total	%
statement	22	24	91.6
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	30	32	93.7

line	stmt	sub	time	code
1				package TestLink::API;
2				{
3				$TestLink::API::VERSION = '0.010';
4				}
5
6
7				=head1 NAME
8
9				TestLink::API - Provides an interface to TestLink's XMLRPC api via HTTP
10
11				=head1 SYNOPSIS
12
13				use TestLink::API;
14
15				my $tl = TestLink::API->new('http://tl.test/testlink/lib/api/xmlrpc/v1/xmlrpc.php', 'gobbledygook123');
16
17				#Look up test definitions
18				my $projects = $tl->getProjects();
19				my $suites = $tl->getTLDTestSuitesForProject($projects->[0]->{'id'});
20				my $childsuites = $tl->getTestSuitesForTestSuite($suites->[0]->{'id'});
21				my $tests = $tl->getTestCasesForTestSuite($childsuites->[0]->{'id'});
22
23				#Look up test plans/builds
24				my $plans = $tl->getTestPlansForProject($projects->[0]->{'id'});
25				my $tests2 = $tl->getTestCasesForTestPlan($plans->[0]->{'id'});
26				my $builds = $tl->getBuildsForTestPlan($plans->[0]->{'id'});
27
28				#Set results
29				my $testResults = doSomethingReturningBoolean();
30				my $results = $tl->reportTCResult($tests2->[0]->{'id'},$plans->[0]->{'id'},$builds->[0]->{'id'}, $testResults ? 'p' : 'f');
31				$tl->uploadExecutionAttachment($results->{'id'},'test.txt','text/plain',encode_base64('MOO MOO MOOOOOO'),'bovine emissions','whee')
32
33				=head1 DESCRIPTION
34
35				C provides methods to access an existing TestLink account. You can then do things like look up tests, set statuses and create builds from lists of tests.
36				The getter methods cache the test tree up to whatever depth is required by your getter calls. This is to speed up automated creation/reading/setting of the test db based on existing automated tests.
37				Cache expires at the end of script execution. (TODO memcache controlled by constructor, with create methods invalidating cache?)
38				Getter/setter methods that take args assume that the relevant project/testsuite/test/plan/build provided exists (TODO: use cache to check exists, provide more verbose error reason...), and returns false if not.
39				Create methods assume desired entry provided is not already in the DB (TODO (again): use cache to check exists, provide more verbose error reason...), and returns false if not.
40				It is by no means exhaustively implementing every TestLink API function. Designed with TestLink 1.9.9, but will likely work on (some) other versions.
41
42				=cut
43
44
45	2	2	57266	use 5.010;
	2		6
	2		62
46	2	2	7	use strict;
	2		2
	2		64
47	2	2	9	use warnings;
	2		8
	2		63
48	2	2	10	use Carp;
	2		2
	2		129
49	2	2	10	use Scalar::Util qw{reftype looks_like_number}; #boo, some functions return hashes and arrays depending on # of results (1 or many)
	2		2
	2		167
50	2	2	958	use Data::Validate::URI 'is_uri';
	2		90602
	2		122
51
52	2	2	958	use Clone 'clone';
	2		998
	2		92
53
54	2	2	1745	use XMLRPC::Lite;
	0
	0
55
56				=head1 CONSTRUCTOR
57
58				=head2 B
59
60				Creates new C object.
61
62				=over 4
63
64				=item C - URL to your testlink API endpoint.
65
66				=item C - TestLink API key.
67
68				=back
69
70				Returns C object if login is successful.
71
72				my $tl = TestLink::API->new('http://tl.test/testlink/lib/api/xmlrpc/v1/xmlrpc.php', 'gobbledygook123');
73
74				=cut
75
76				sub new {
77				my ($class,$apiurl,$apikey) = @_;
78				confess("Constructor must be called statically, not by an instance") if ref($class);
79				$apiurl \|\|= $ENV{'TESTLINK_SERVER_ADDR'};
80				$apikey \|\|= $ENV{'TESTLINK_API_KEY'};
81
82				confess("No API key provided.") if !$apiurl;
83				confess("No API URL provided.") if !$apikey;
84				confess("API URL provided not valid.") unless is_uri($apiurl);
85
86				my $self = {
87				apiurl => $apiurl,
88				apikey => $apikey,
89				testtree => [],
90				flattree => [],
91				invalidate_cache => 1 #since we don't have a cache right now... #TODO this should be granular down to project rather than global
92				};
93
94				bless $self, $class;
95				return $self;
96				}
97
98				=head1 PROPERTIES
99
100				=over 4
101
102				apiurl and apikey can be accessed/set:
103
104				$url = $tl->apiurl;
105				$tl = $tl->apiurl('http//some.new.url/foo.php');
106
107				=back
108
109				=cut
110
111				#EZ get/set of obj vars
112				sub AUTOLOAD {
113				my %public_elements = map {$_,1} qw{apiurl apikey}; #Public element access
114				our $AUTOLOAD;
115
116				if ($AUTOLOAD =~ /::(\w+)$/ and exists $public_elements{$1} ) {
117				my $field = $1;
118				{
119				no strict 'refs';
120				*{$AUTOLOAD} = sub {
121				confess("Object parameters must be called by an instance") unless ref($_[0]);
122				return $_[0]->{$field} unless defined $_[1];
123				$_[0]->{$field} = $_[1];
124				return $_[0];
125				};
126				}
127				goto &{$AUTOLOAD};
128				}
129				confess("$AUTOLOAD not accessible property") unless $AUTOLOAD =~ /DESTROY$/;
130				}
131
132				=head1 CREATE METHODS
133
134				=head2 B
135
136				Creates new Test plan with given name in the given project.
137
138				=over 4
139
140				=item STRING C - Desired test plan name.
141
142				=item STRING C - The name of some project existing in TestLink.
143
144				=item STRING C (optional) - Additional description of test plan. Default value is 'res ipsa loquiter'
145
146				=item BOOLEAN C (optional) - Whether or not the test plan is active. Default value is true.
147
148				=item BOOLEAN C (optional) - Whether or not the test plan is public. Default is true.
149
150				=back
151
152				Returns (integer) test plan ID if creation is successful.
153
154				my $tpid = $tl->createTestPlan('shock&awe', 'enduringfreedom');
155
156				=cut
157
158				sub createTestPlan {
159				my ($self,$name,$project,$notes,$active,$public) = @_;
160				confess("Object parameters must be called by an instance") unless ref($self);
161
162				confess("Desired Test Plan Name is a required argument (0th).") if !$name;
163				confess("Parent Project Name is a required argument (1st).") if !$project;
164
165				$notes \|\|= 'res ipsa loquiter';
166				$active \|\|= 1;
167				$public \|\|= 1;
168
169				my $input = {
170				devKey => $self->apikey,
171				testplanname => $name,
172				testprojectname => $project,
173				notes => $notes,
174				active => $active,
175				public => $public
176				};
177
178				my $rpc = XMLRPC::Lite->proxy($self->apiurl);
179				my $result = $rpc->call('tl.createTestPlan',$input);
180				warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'};
181				return $result->result->[0]->{'id'} if $result->result->[0]->{'id'};
182				return 0;
183				}
184
185				=head2 B
186
187				Creates new 'Build' (test run in common parlance) from given test plan having given name and notes.
188
189				=over 4
190
191				=item INTEGER C - ID of test plan to base test run on.
192
193				=item STRING C - Desired name for test run.
194
195				=item STRING C (optional) - Additional description of run. Default value is 'res ipsa loquiter'.
196
197				=back
198
199				Returns true if case addition is successful, false otherwise.
200
201				$tl->createBuild(1234, "Bossin' up", 'Crushing our enemies, seeing them driven before us and hearing the lamentations of their support engineers.');
202
203				=cut
204
205				sub createBuild {
206				my ($self,$plan_id,$name,$notes) = @_;
207				confess("Object parameters must be called by an instance") unless ref($self);
208				confess("Plan ID must be integer") unless looks_like_number($plan_id);
209				confess("Build name is a required argument (1st)") if !$name;
210				$notes \|\|= 'res ipsa loquiter';
211
212				my $input = {
213				devKey => $self->apikey,
214				testplanid => $plan_id,
215				buildname => $name,
216				buildnotes => $notes
217				};
218
219				my $rpc = XMLRPC::Lite->proxy($self->apiurl);
220				my $result = $rpc->call('tl.createBuild',$input);
221				warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'};
222				return $result->result->[0]->{'id'} if $result->result->[0]->{'id'};
223				return 0;
224				}
225
226				=head2 B
227
228				Creates new TestSuite (folder of tests) in the database of test specifications under given project id having given name and details.
229				Optionally, can have a parent test suite (this is an analog to a hierarchical file tree after all) and what order to have this suite be amongst it's peers.
230
231				=over 4
232
233				=item INTEGER C - ID of project this test suite should be under.
234
235				=item STRING C - Desired name of test suite.
236
237				=item STRING C (optional) - Description of test suite. Default value is 'res ipsa loquiter'.
238
239				=item INTEGER C (optional) - Parent test suite ID. Defaults to top level of project.
240
241				=item INTEGER C (optional) - Desired order amongst peer testsuites. Defaults to last in list.
242
243				=back
244
245				Returns (integer) build ID on success, false otherwise.
246
247				$tl->createTestSuite(1, 'broken tests', 'Tests that should be reviewed', 2345, -1);
248
249				=cut
250
251				sub createTestSuite {
252				my ($self,$project_id,$name,$details,$parent_id,$order) = @_;
253				confess("Object parameters must be called by an instance") unless ref($self);
254				confess("Parent Project ID (arg 0) must be an integer") unless looks_like_number($project_id);
255				confess("Name (arg 1) cannot be undefined") unless $name;
256
257				$details \|\|= 'res ipsa loquiter';
258				$order \|\|= -1;
259
260				my $input = {
261				devKey => $self->apikey,
262				testprojectid => $project_id,
263				testsuitename => $name,
264				details => $details,
265				parentid => $parent_id,
266				order => $order
267				};
268
269				my $rpc = XMLRPC::Lite->proxy($self->apiurl);
270				my $result = $rpc->call('tl.createTestSuite',$input);
271				warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'};
272				$self->{'invalidate_cache'} = 1 if $result->result->[0]->{'id'};
273				return $result->result->[0]->{'id'} if $result->result->[0]->{'id'};
274				return 0;
275				}
276
277				=head2 B
278
279				Creates new Project (Database of testsuites/tests) with given name and case prefix.
280				Optionally, can have notes, options, set the project as active/inactive and public/private.
281
282				=over 4
283
284				=item STRING C - Desired name of project.
285
286				=item STRING C - Desired prefix of project's external test case IDs.
287
288				=item STRING C (optional) - Description of project. Default value is 'res ipsa loquiter'.
289
290				=item HASHREF{BOOLEAN} C (optional) - Hash with keys: requirementsEnabled,testPriorityEnabled,automationEnabled,inventoryEnabled.
291
292				=item BOOLEAN C (optional) - Whether to mark the project active or not. Default True.
293
294				=item BOOLEAN C (optional) - Whether the project is public or not. Default true.
295
296				=back
297
298				Returns (integer) project ID on success, false otherwise.
299
300				$tl->createTestProject('Widgetronic 4000', 'Tests for the whiz-bang new product', {'inventoryEnabled=>true}, true, true);
301
302				=cut
303
304				#XXX probably should not use
305				sub createTestProject {
306				my ($self,$name,$case_prefix,$notes,$options,$active,$public) = @_;
307				confess("Object parameters must be called by an instance") unless ref($self);
308				$notes //= 'res ipsa loquiter';
309				$options //= {};
310				$public //= 1;
311				$active //= 1;
312
313				my $input = {
314				devKey => $self->apikey,
315				testprojectname => $name,
316				testcaseprefix => $case_prefix,
317				notes => $notes,
318				options => $options,
319				active => $active,
320				public => $public
321				};
322
323				my $rpc = XMLRPC::Lite->proxy($self->apiurl);
324				my $result = $rpc->call('tl.createTestProject',$input);
325				#XXX i'm being very safe (haha), there's probably a better check
326				warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'};
327				$self->{'invalidate_cache'} = 1 if $result->result->[0]->{'id'};
328				return $result->result->[0]->{'id'} if $result->result->[0]->{'id'};
329				return 0;
330
331				}
332
333				=head2 B
334
335				Creates new test case with given test suite id and project id.
336				Author, Summary and Steps are mandatory for reasons that should be obvious to any experienced QA professional.
337				Execution type and Test order is optional.
338
339				=over 4
340
341				=item STRING C - Desired name of test case.
342
343				=item INTEGER C - ID of parent test suite.
344
345				=item INTEGER C - ID of parent project
346
347				=item STRING C - Author of test case.
348
349				=item STRING C - Summary of test case.
350
351				=item STRING C - Test steps.
352
353				=item STRING C - Prereqs for running the test, if any.
354
355				=item STRING C (optional) - Execution type. Defaults to 'manual'.
356
357				=item INTEGER C (optional) - Order of test amongst peers.
358
359				=back
360
361				Returns (HASHREF) with Test Case ID and Test Case External ID on success, false otherwise.
362
363				$tl->createTestCase('Verify Whatsit Throbs at correct frequency', 123, 456, 'Gnaeus Pompieus Maximus', 'Make sure throbber on Whatsit doesn't work out of harmony with other throbbers', '1. Connect measurement harness. 2. ??? 3. PROFIT!', 'automated', 2);
364
365				=cut
366
367				sub createTestCase {
368				my ($self,$test_name,$test_suite_id,$test_project_id,$author_name,$summary,$steps,$preconditions,$execution,$order) = @_;
369				confess("Object parameters must be called by an instance") unless ref($self);
370
371				my $input = {
372				devKey => $self->apikey,
373				testcasename => $test_name,
374				testsuiteid => $test_suite_id,
375				testprojectid => $test_project_id,
376				authorlogin => $author_name,
377				summary => $summary,
378				steps => $steps,
379				preconditions => $preconditions,
380				execution => $execution,
381				order => $order
382				};
383
384				my $rpc = XMLRPC::Lite->proxy($self->apiurl);
385				my $result = $rpc->call('tl.createTestCase',$input);
386				#XXX i'm being very safe (haha), there's probably a better check
387				warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'};
388				return $result->result->[0] if $result->result->[0]->{'id'};
389				return 0;
390
391				}
392
393				=head1 SETTER METHODS
394
395				=head2 B
396
397				Report results of a test case with a given ID, plan and build ID. Set case results to status given.
398				Platform is mandatory if available, otherwise optional.
399				Notes and Bug Ids for whatever tracker you use are optional.
400
401				=over 4
402
403				=item INTEGER C - Desired test case.
404
405				=item INTEGER C - ID of relevant test plan.
406
407				=item INTEGER C - ID of relevant build.
408
409				=item STRING C - Desired Test Status Code. Codes not documented anywhere but in your cfg/const.inc.php of the TestLink Install.
410
411				=item STRING C (semi-optional) - Relevant platform tested on. Accepts both platform name and ID, if it looks_like_number, uses platform_id
412
413				=item STRING C (optional) - Relevant information gleaned during testing process.
414
415				=item STRING C (optional) - Relevant bug ID for regression tests, or if you auto-open bugs based on failures.
416
417				=back
418
419				Returns project ID on success, false otherwise.
420
421				$tl->reportTCResult('T-1000', 7779311, 8675309, 'Tool Failure', 'Skynet Infiltration Model 1000', 'Catastrophic systems failure due to falling into vat of molten metal' 'TERMINATOR-2');
422
423				=cut
424
425				sub reportTCResult {
426				my ($self,$case_id,$plan_id,$build_id,$status,$platform,$notes,$bugid) = @_;
427				confess("Object parameters must be called by an instance") unless ref($self);
428
429				my $input = {
430				devKey => $self->apikey,
431				testcaseid => $case_id,
432				testplanid => $plan_id,
433				buildid => $build_id,
434				status => $status,
435				notes => $notes,
436				bugid => $bugid
437				};
438
439				if (defined($platform) && !ref $platform) {
440				if (looks_like_number($platform)) {
441				$input->{'platformid'} = $platform;
442				} else {
443				$input->{'platformname'} = $platform;
444				}
445				}
446
447				my $rpc = XMLRPC::Lite->proxy($self->apiurl);
448				my $result = $rpc->call('tl.reportTCResult',$input);
449				warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'};
450				return $result->result->[0] unless $result->result->[0]->{'code'};
451				return 0;
452				}
453
454				=head2 B
455
456				Creates new Test plan with given name in the given project.
457
458				=over 4
459
460				=item INTEGER C - Desired test plan.
461
462				=item STRING C - The 'external' name of some existing test in TestLink, e.g. TP-12.
463
464				=item INTEGER C - The ID of some project in testlink
465
466				=item INTEGER C - The desired version of the test to add.
467
468				=item STRING C (semi-optional) - The name of the desired platform to run on for this test (if any).
469
470				=item INTEGER C (optional) - The order in which to execute this test amongst it's peers.
471
472				=item INTEGER C (optional) - The priority of the case in the plan.
473
474				=back
475
476				Returns true if case addition is successful.
477
478				$tl->addTestCaseToTestPlan(666, 'cp-90210', 121, '3.11', 'OS2/WARP', 3, 1);
479
480				=cut
481
482				#XXX this should be able to be done in batch
483				sub addTestCaseToTestPlan {
484				my ($self,$plan_id,$case_id,$project_id,$version,$platform,$order,$urgency) = @_;
485				confess("Object parameters must be called by an instance") unless ref($self);
486
487				my $input = {
488				devKey => $self->apikey,
489				testplanid => $plan_id,
490				testcaseexternalid => $case_id,
491				testprojectid => $project_id,
492				version => $version,
493				platformid => $platform,
494				executionorder => $order,
495				urgency => $urgency
496				};
497
498				my $rpc = XMLRPC::Lite->proxy($self->apiurl);
499				my $result = $rpc->call('tl.addTestCaseToTestPlan',$input);
500				warn $result->result->{'message'} if $result->result->{'code'};
501				return 1 unless $result->result->{'code'};
502				return 0;
503				}
504
505				=head2 B
506
507				Uploads the provided file and associates it with the given execution.
508
509				=over 4
510
511				=item INTEGER C - ID of a successful execution, such as the id key from the hash that is returned by reportTCResult.
512
513				=item STRING C - The name you want this file to appear as.
514
515				=item INTEGER C - The mimetype of the file uploaded, so we can tell the browser what to do with it when downloaded
516
517				=item INTEGER C - The base64 encoded content of the file you want to upload.
518
519				=item STRING C (optional) - A title for this attachment. </td> </tr> <tr> <td class="h" > <a name="520">520</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="521">521</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item INTEGER C<DESCRIPTION> (optional) - A short description of who/what/why this was attached. </td> </tr> <tr> <td class="h" > <a name="522">522</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="523">523</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="524">524</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="525">525</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns true if attachment addition is successful. </td> </tr> <tr> <td class="h" > <a name="526">526</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="527">527</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $tl->uploadExecutionAttachment(1234, 'moo.txt', 'text/cow', APR::Base64::encode('MOO MOO MOOOOOO'), 'MOO', 'Test observed deranged bleatings of domestic ungulates, please investigate.'); </td> </tr> <tr> <td class="h" > <a name="528">528</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="529">529</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="530">530</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="531">531</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub uploadExecutionAttachment { </td> </tr> <tr> <td class="h" > <a name="532">532</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$execution_id,$filename,$filetype,$content,$title,$description) = @_; </td> </tr> <tr> <td class="h" > <a name="533">533</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="534">534</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="535">535</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $input = { </td> </tr> <tr> <td class="h" > <a name="536">536</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> devKey => $self->apikey, </td> </tr> <tr> <td class="h" > <a name="537">537</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> executionid => $execution_id, </td> </tr> <tr> <td class="h" > <a name="538">538</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> title => $title, </td> </tr> <tr> <td class="h" > <a name="539">539</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> description => $description, </td> </tr> <tr> <td class="h" > <a name="540">540</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> filename => $filename, </td> </tr> <tr> <td class="h" > <a name="541">541</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> filetype => $filetype, </td> </tr> <tr> <td class="h" > <a name="542">542</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> content => $content </td> </tr> <tr> <td class="h" > <a name="543">543</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="544">544</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="545">545</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </td> </tr> <tr> <td class="h" > <a name="546">546</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $result = $rpc->call('tl.uploadExecutionAttachment',$input); </td> </tr> <tr> <td class="h" > <a name="547">547</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> warn $result->result->{'message'} if $result->result->{'code'}; </td> </tr> <tr> <td class="h" > <a name="548">548</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 1 unless $result->result->{'code'}; </td> </tr> <tr> <td class="h" > <a name="549">549</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0; </td> </tr> <tr> <td class="h" > <a name="550">550</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="551">551</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="552">552</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<uploadTestCaseAttachment (case_id,filename,mimetype,content,[title,description])> </td> </tr> <tr> <td class="h" > <a name="553">553</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="554">554</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Uploads the provided file and associates it with the given execution. </td> </tr> <tr> <td class="h" > <a name="555">555</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="556">556</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="557">557</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="558">558</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item INTEGER C<CASE ID> - ID of desired test case </td> </tr> <tr> <td class="h" > <a name="559">559</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="560">560</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<FILENAME> - The name you want this file to appear as. </td> </tr> <tr> <td class="h" > <a name="561">561</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="562">562</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item INTEGER C<MIMETYPE> - The mimetype of the file uploaded, so we can tell the browser what to do with it when downloaded </td> </tr> <tr> <td class="h" > <a name="563">563</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="564">564</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item INTEGER C<CONTENT> - The base64 encoded content of the file you want to upload. </td> </tr> <tr> <td class="h" > <a name="565">565</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="566">566</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<TITLE> (optional) - A title for this attachment. </td> </tr> <tr> <td class="h" > <a name="567">567</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="568">568</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item INTEGER C<DESCRIPTION> (optional) - A short description of who/what/why this was attached. </td> </tr> <tr> <td class="h" > <a name="569">569</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="570">570</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="571">571</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="572">572</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns true if attachment addition is successful. </td> </tr> <tr> <td class="h" > <a name="573">573</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="574">574</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $tl->uploadTestCaseAttachment(1234, 'doStuff.t', 'text/perl', APR::Base64::encode($slurped_file_content), 'doStuff.t', 'Test File.'); </td> </tr> <tr> <td class="h" > <a name="575">575</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="576">576</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="577">577</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="578">578</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub uploadTestCaseAttachment { </td> </tr> <tr> <td class="h" > <a name="579">579</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$case_id,$filename,$filetype,$content,$title,$description) = @_; </td> </tr> <tr> <td class="h" > <a name="580">580</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="581">581</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="582">582</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $input = { </td> </tr> <tr> <td class="h" > <a name="583">583</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> devKey => $self->apikey, </td> </tr> <tr> <td class="h" > <a name="584">584</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testcaseid => $case_id, </td> </tr> <tr> <td class="h" > <a name="585">585</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> title => $title, </td> </tr> <tr> <td class="h" > <a name="586">586</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> description => $description, </td> </tr> <tr> <td class="h" > <a name="587">587</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> filename => $filename, </td> </tr> <tr> <td class="h" > <a name="588">588</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> filetype => $filetype, </td> </tr> <tr> <td class="h" > <a name="589">589</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> content => $content </td> </tr> <tr> <td class="h" > <a name="590">590</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="591">591</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="592">592</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </td> </tr> <tr> <td class="h" > <a name="593">593</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $result = $rpc->call('tl.uploadTestCaseAttachment',$input); </td> </tr> <tr> <td class="h" > <a name="594">594</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="595">595</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 1 unless $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="596">596</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0; </td> </tr> <tr> <td class="h" > <a name="597">597</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="598">598</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="599">599</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="600">600</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head1 GETTER METHODS </td> </tr> <tr> <td class="h" > <a name="601">601</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="602">602</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getProjects ()> </td> </tr> <tr> <td class="h" > <a name="603">603</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="604">604</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Get all available projects </td> </tr> <tr> <td class="h" > <a name="605">605</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="606">606</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns array of project definition hashes, false otherwise. </td> </tr> <tr> <td class="h" > <a name="607">607</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="608">608</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $projects = $tl->getProjects; </td> </tr> <tr> <td class="h" > <a name="609">609</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="610">610</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="611">611</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="612">612</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getProjects { </td> </tr> <tr> <td class="h" > <a name="613">613</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="614">614</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="615">615</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="616">616</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $input = { </td> </tr> <tr> <td class="h" > <a name="617">617</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> devKey => $self->apikey </td> </tr> <tr> <td class="h" > <a name="618">618</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="619">619</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="620">620</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </td> </tr> <tr> <td class="h" > <a name="621">621</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $result = $rpc->call('tl.getProjects',$input); </td> </tr> <tr> <td class="h" > <a name="622">622</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="623">623</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="624">624</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Save state for future use, if needed </td> </tr> <tr> <td class="h" > <a name="625">625</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> if (!scalar(@{$self->{'testtree'}})) { </td> </tr> <tr> <td class="h" > <a name="626">626</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $self->{'testtree'} = $result->result unless $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="627">627</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="628">628</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="629">629</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> if (!exists($result->result->[0]->{'code'})) { </td> </tr> <tr> <td class="h" > <a name="630">630</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Note that it's a project for future reference by recursive tree search </td> </tr> <tr> <td class="h" > <a name="631">631</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> for my $pj (@{$result->result}) { </td> </tr> <tr> <td class="h" > <a name="632">632</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $pj->{'type'} = 'project'; </td> </tr> <tr> <td class="h" > <a name="633">633</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="634">634</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $result->result; </td> </tr> <tr> <td class="h" > <a name="635">635</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="636">636</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="637">637</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0; </td> </tr> <tr> <td class="h" > <a name="638">638</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="639">639</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="640">640</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getProjectByName ($project)> </td> </tr> <tr> <td class="h" > <a name="641">641</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="642">642</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets some project definition hash by it's name </td> </tr> <tr> <td class="h" > <a name="643">643</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="644">644</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="645">645</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="646">646</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<PROJECT> - desired project </td> </tr> <tr> <td class="h" > <a name="647">647</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="648">648</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="649">649</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="650">650</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns desired project def hash, false otherwise. </td> </tr> <tr> <td class="h" > <a name="651">651</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="652">652</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $projects = $tl->getProjectByName('FunProject'); </td> </tr> <tr> <td class="h" > <a name="653">653</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="654">654</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="655">655</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="656">656</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getProjectByName { </td> </tr> <tr> <td class="h" > <a name="657">657</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$project) = @_; </td> </tr> <tr> <td class="h" > <a name="658">658</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="659">659</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess "No project provided." unless $project; </td> </tr> <tr> <td class="h" > <a name="660">660</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="661">661</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #See if we already have the project list... </td> </tr> <tr> <td class="h" > <a name="662">662</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $projects = $self->{'testtree'}; </td> </tr> <tr> <td class="h" > <a name="663">663</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $projects = $self->getProjects() unless scalar(@$projects); </td> </tr> <tr> <td class="h" > <a name="664">664</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="665">665</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Search project list for project </td> </tr> <tr> <td class="h" > <a name="666">666</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> for my $candidate (@$projects) { </td> </tr> <tr> <td class="h" > <a name="667">667</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $candidate if ($candidate->{'name'} eq $project); </td> </tr> <tr> <td class="h" > <a name="668">668</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="669">669</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="670">670</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0; </td> </tr> <tr> <td class="h" > <a name="671">671</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="672">672</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="673">673</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getProjectByID ($project)> </td> </tr> <tr> <td class="h" > <a name="674">674</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="675">675</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets some project definition hash by it's ID </td> </tr> <tr> <td class="h" > <a name="676">676</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="677">677</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="678">678</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="679">679</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item INTEGER C<PROJECT> - desired project </td> </tr> <tr> <td class="h" > <a name="680">680</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="681">681</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="682">682</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="683">683</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns desired project def hash, false otherwise. </td> </tr> <tr> <td class="h" > <a name="684">684</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="685">685</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $projects = $tl->getProjectByID(222); </td> </tr> <tr> <td class="h" > <a name="686">686</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="687">687</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="688">688</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="689">689</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getProjectByID { </td> </tr> <tr> <td class="h" > <a name="690">690</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$project) = @_; </td> </tr> <tr> <td class="h" > <a name="691">691</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="692">692</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess "No project provided." unless $project; </td> </tr> <tr> <td class="h" > <a name="693">693</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="694">694</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #See if we already have the project list... </td> </tr> <tr> <td class="h" > <a name="695">695</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $projects = $self->{'testtree'}; </td> </tr> <tr> <td class="h" > <a name="696">696</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $projects = $self->getProjects() unless scalar(@$projects); </td> </tr> <tr> <td class="h" > <a name="697">697</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="698">698</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Search project list for project </td> </tr> <tr> <td class="h" > <a name="699">699</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> for my $candidate (@$projects) { </td> </tr> <tr> <td class="h" > <a name="700">700</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $candidate if ($candidate->{'id'} eq $project); </td> </tr> <tr> <td class="h" > <a name="701">701</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="702">702</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="703">703</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0; </td> </tr> <tr> <td class="h" > <a name="704">704</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="705">705</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="706">706</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="707">707</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getTLDTestSuitesForProject (project_id,get_tests)> </td> </tr> <tr> <td class="h" > <a name="708">708</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="709">709</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets the testsuites in the top level of a project </td> </tr> <tr> <td class="h" > <a name="710">710</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="711">711</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="712">712</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="713">713</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<PROJECT ID> - desired project's ID </td> </tr> <tr> <td class="h" > <a name="714">714</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item BOOLEAN C<GET TESTS> - Get tests for suites returned, set them as 'tests' key in hash </td> </tr> <tr> <td class="h" > <a name="715">715</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="716">716</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="717">717</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="718">718</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns desired testsuites' definition hashes, 0 on error and -1 when there is no such project. </td> </tr> <tr> <td class="h" > <a name="719">719</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="720">720</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $projects = $tl->getTLDTestSuitesForProject(123); </td> </tr> <tr> <td class="h" > <a name="721">721</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="722">722</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="723">723</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="724">724</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getTLDTestSuitesForProject { </td> </tr> <tr> <td class="h" > <a name="725">725</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$project,$get_tests) = @_; </td> </tr> <tr> <td class="h" > <a name="726">726</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="727">727</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess "No project ID provided." unless $project; </td> </tr> <tr> <td class="h" > <a name="728">728</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="729">729</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $input = { </td> </tr> <tr> <td class="h" > <a name="730">730</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> devKey => $self->apikey, </td> </tr> <tr> <td class="h" > <a name="731">731</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testprojectid => $project </td> </tr> <tr> <td class="h" > <a name="732">732</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="733">733</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="734">734</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </td> </tr> <tr> <td class="h" > <a name="735">735</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $result = $rpc->call('tl.getFirstLevelTestSuitesForTestProject',$input); </td> </tr> <tr> <td class="h" > <a name="736">736</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="737">737</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Error condition, return right away </td> </tr> <tr> <td class="h" > <a name="738">738</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="739">739</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return [] if $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="740">740</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="741">741</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Handle bizarre output </td> </tr> <tr> <td class="h" > <a name="742">742</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> if ($result->result && !(reftype($result->result) eq 'HASH' \|\| reftype($result->result) eq 'ARRAY')) { </td> </tr> <tr> <td class="h" > <a name="743">743</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return []; </td> </tr> <tr> <td class="h" > <a name="744">744</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="745">745</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return [] if !$result->result; </td> </tr> <tr> <td class="h" > <a name="746">746</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="747">747</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Handle mixed return type for this function -- this POS will return arrayrefs, and 2 types of hashrefs. </td> </tr> <tr> <td class="h" > <a name="748">748</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $res = []; </td> </tr> <tr> <td class="h" > <a name="749">749</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $res = $result->result if reftype($result->result) eq 'ARRAY'; </td> </tr> <tr> <td class="h" > <a name="750">750</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> @$res = values(%{$result->result}) if reftype($result->result) eq 'HASH' && !defined($result->result->{'id'}); </td> </tr> <tr> <td class="h" > <a name="751">751</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $res = [$result->result] if reftype($result->result) eq 'HASH' && defined($result->result->{'id'}); </td> </tr> <tr> <td class="h" > <a name="752">752</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return [] if (!scalar(keys(%{$res->[0]}))); #Catch bizarre edge case of blank hash being only thing there </td> </tr> <tr> <td class="h" > <a name="753">753</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="754">754</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> if ($get_tests) { </td> </tr> <tr> <td class="h" > <a name="755">755</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> for (my $i=0; $i < scalar(@{$result->result}); $i++) { </td> </tr> <tr> <td class="h" > <a name="756">756</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $result->result->[$i]->{'tests'} = $self->getTestCasesForTestSuite($result->result->[$i]->{'id'},0,1); </td> </tr> <tr> <td class="h" > <a name="757">757</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="758">758</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="759">759</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="760">760</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $result->result; </td> </tr> <tr> <td class="h" > <a name="761">761</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="762">762</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="763">763</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getTestSuitesForTestSuite (testsuite_id,get_tests)> </td> </tr> <tr> <td class="h" > <a name="764">764</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="765">765</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets the testsuites that are children of the provided testsuite. </td> </tr> <tr> <td class="h" > <a name="766">766</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="767">767</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="768">768</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="769">769</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<TESTSUITE ID> - desired parent testsuite ID </td> </tr> <tr> <td class="h" > <a name="770">770</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<GET TESTS> - whether to get child tests as well </td> </tr> <tr> <td class="h" > <a name="771">771</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="772">772</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="773">773</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="774">774</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns desired testsuites' definition hashes, false otherwise. </td> </tr> <tr> <td class="h" > <a name="775">775</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="776">776</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $suites = $tl->getTestSuitesForTestSuite(123); </td> </tr> <tr> <td class="h" > <a name="777">777</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $suitesWithCases = $tl->getTestSuitesForTestSuite(123,1); </td> </tr> <tr> <td class="h" > <a name="778">778</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="779">779</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="780">780</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="781">781</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getTestSuitesForTestSuite { </td> </tr> <tr> <td class="h" > <a name="782">782</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$tsid,$get_tests) = @_; </td> </tr> <tr> <td class="h" > <a name="783">783</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="784">784</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess "No TestSuite ID provided." unless $tsid; </td> </tr> <tr> <td class="h" > <a name="785">785</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="786">786</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $input = { </td> </tr> <tr> <td class="h" > <a name="787">787</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> devKey => $self->apikey, </td> </tr> <tr> <td class="h" > <a name="788">788</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testsuiteid => $tsid </td> </tr> <tr> <td class="h" > <a name="789">789</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="790">790</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="791">791</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </td> </tr> <tr> <td class="h" > <a name="792">792</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $result = $rpc->call('tl.getTestSuitesForTestSuite',$input); </td> </tr> <tr> <td class="h" > <a name="793">793</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="794">794</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Handle bizarre output </td> </tr> <tr> <td class="h" > <a name="795">795</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> if ($result->result && !(reftype($result->result) eq 'HASH' \|\| reftype($result->result) eq 'ARRAY')) { </td> </tr> <tr> <td class="h" > <a name="796">796</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return []; </td> </tr> <tr> <td class="h" > <a name="797">797</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="798">798</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return [] if !$result->result; </td> </tr> <tr> <td class="h" > <a name="799">799</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="800">800</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Handle mixed return type for this function -- this POS will return arrayrefs, and 2 types of hashrefs. </td> </tr> <tr> <td class="h" > <a name="801">801</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $res = []; </td> </tr> <tr> <td class="h" > <a name="802">802</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $res = $result->result if reftype($result->result) eq 'ARRAY'; </td> </tr> <tr> <td class="h" > <a name="803">803</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> @$res = values(%{$result->result}) if reftype($result->result) eq 'HASH' && !defined($result->result->{'id'}); </td> </tr> <tr> <td class="h" > <a name="804">804</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $res = [$result->result] if reftype($result->result) eq 'HASH' && defined($result->result->{'id'}); </td> </tr> <tr> <td class="h" > <a name="805">805</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="806">806</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> if ($get_tests) { </td> </tr> <tr> <td class="h" > <a name="807">807</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> foreach my $row (@$res) { </td> </tr> <tr> <td class="h" > <a name="808">808</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $row->{'tests'} = $self->getTestCasesForTestSuite($row->{'id'},0,1); </td> </tr> <tr> <td class="h" > <a name="809">809</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="810">810</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="811">811</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="812">812</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Error condition, return false and don't bother searching arrays </td> </tr> <tr> <td class="h" > <a name="813">813</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> warn $res->{'message'} if $res->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="814">814</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return [] if $res->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="815">815</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $res; </td> </tr> <tr> <td class="h" > <a name="816">816</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="817">817</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="818">818</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="819">819</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getTestSuitesByName (project_id,testsuite_name,do_regex)> </td> </tr> <tr> <td class="h" > <a name="820">820</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="821">821</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets the testsuite(s) that match given name inside of given project name. </td> </tr> <tr> <td class="h" > <a name="822">822</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> WARNING: this will slurp the enitre testsuite tree. This can take a while on large projects, but the results are cached so that subsequent calls are not as onerous. </td> </tr> <tr> <td class="h" > <a name="823">823</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="824">824</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="825">825</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="826">826</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<PROJECT ID> - ID of project holding this testsuite </td> </tr> <tr> <td class="h" > <a name="827">827</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="828">828</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<TESTSUITE NAME> - desired parent testsuite name </td> </tr> <tr> <td class="h" > <a name="829">829</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="830">830</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item BOOLEAN C<DO REGEX> (optional) - whether or not PROJECT NAME is a regex (default false, uses 'eq' to compare). </td> </tr> <tr> <td class="h" > <a name="831">831</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="832">832</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="833">833</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="834">834</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns desired testsuites' definition hashes, false otherwise. </td> </tr> <tr> <td class="h" > <a name="835">835</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="836">836</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $suites = $tl->getTestSuitesByName(321, 'hugSuite'); </td> </tr> <tr> <td class="h" > <a name="837">837</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $suitesr = $tl->getTestSuitesByName(123, qr/^hug/, 1); </td> </tr> <tr> <td class="h" > <a name="838">838</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="839">839</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="840">840</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="841">841</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getTestSuitesByName { </td> </tr> <tr> <td class="h" > <a name="842">842</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$project_id,$testsuite_name,$do_regex) = @_; </td> </tr> <tr> <td class="h" > <a name="843">843</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="844">844</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0 if (!$project_id \|\| !$testsuite_name); #GIGO </td> </tr> <tr> <td class="h" > <a name="845">845</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="846">846</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #use caching methods here to speed up subsequent calls </td> </tr> <tr> <td class="h" > <a name="847">847</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $self->_cacheProjectTree($project_id,1,1,0) if $self->{'invalidate_cache'}; </td> </tr> <tr> <td class="h" > <a name="848">848</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="849">849</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #my $tld = $self->getTLDTestSuitesForProject($project_id); </td> </tr> <tr> <td class="h" > <a name="850">850</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $candidates = []; </td> </tr> <tr> <td class="h" > <a name="851">851</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="852">852</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Walk the whole tree. No other way to be sure. </td> </tr> <tr> <td class="h" > <a name="853">853</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> foreach my $ts (@{$self->{'flattree'}}) { </td> </tr> <tr> <td class="h" > <a name="854">854</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> if ($do_regex) { </td> </tr> <tr> <td class="h" > <a name="855">855</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> push(@$candidates,$ts) if $ts->{'name'} =~ $testsuite_name; </td> </tr> <tr> <td class="h" > <a name="856">856</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } else { </td> </tr> <tr> <td class="h" > <a name="857">857</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> push(@$candidates,$ts) if $ts->{'name'} eq $testsuite_name; </td> </tr> <tr> <td class="h" > <a name="858">858</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="859">859</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="860">860</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $candidates; </td> </tr> <tr> <td class="h" > <a name="861">861</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="862">862</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="863">863</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="864">864</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getTestSuiteByID (testsuite_id)> </td> </tr> <tr> <td class="h" > <a name="865">865</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="866">866</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets the testsuite with the given ID. </td> </tr> <tr> <td class="h" > <a name="867">867</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="868">868</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="869">869</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="870">870</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<TESTSUITE_ID> - Testsuite ID. </td> </tr> <tr> <td class="h" > <a name="871">871</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="872">872</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="873">873</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="874">874</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns desired testsuite definition hash, false otherwise. </td> </tr> <tr> <td class="h" > <a name="875">875</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="876">876</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $tests = $tl->getTestSuiteByID(123); </td> </tr> <tr> <td class="h" > <a name="877">877</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="878">878</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="879">879</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="880">880</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getTestSuiteByID { </td> </tr> <tr> <td class="h" > <a name="881">881</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$testsuite_id) = @_; </td> </tr> <tr> <td class="h" > <a name="882">882</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="883">883</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="884">884</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $input = { </td> </tr> <tr> <td class="h" > <a name="885">885</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> devKey => $self->apikey, </td> </tr> <tr> <td class="h" > <a name="886">886</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testsuiteid => $testsuite_id </td> </tr> <tr> <td class="h" > <a name="887">887</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="888">888</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="889">889</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </td> </tr> <tr> <td class="h" > <a name="890">890</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $result = $rpc->call('tl.getTestSuiteByID',$input); </td> </tr> <tr> <td class="h" > <a name="891">891</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> warn $result->result->{'message'} if $result->result->{'code'}; </td> </tr> <tr> <td class="h" > <a name="892">892</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $result->result unless $result->result->{'code'}; </td> </tr> <tr> <td class="h" > <a name="893">893</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0; </td> </tr> <tr> <td class="h" > <a name="894">894</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="895">895</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="896">896</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getTestCasesForTestSuite (testsuite_id,recurse,details)> </td> </tr> <tr> <td class="h" > <a name="897">897</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="898">898</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets the testsuites that match given name inside of given project name. </td> </tr> <tr> <td class="h" > <a name="899">899</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="900">900</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="901">901</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="902">902</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<TESTSUITE_ID> - Testsuite ID. </td> </tr> <tr> <td class="h" > <a name="903">903</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="904">904</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item BOOLEAN C<RECURSE> - Search testsuite tree recursively for tests below the provided testsuite </td> </tr> <tr> <td class="h" > <a name="905">905</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="906">906</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item BOOLEAN C<RETURNMODE> (optional) - whether or not to return more detailed test info (steps,summary,expected results). Defaults to false. </td> </tr> <tr> <td class="h" > <a name="907">907</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="908">908</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="909">909</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="910">910</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns desired case definition hashes, false otherwise. </td> </tr> <tr> <td class="h" > <a name="911">911</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="912">912</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $tests = $tl->getTestCasesForTestSuite(123,1,1); </td> </tr> <tr> <td class="h" > <a name="913">913</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="914">914</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="915">915</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="916">916</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getTestCasesForTestSuite { </td> </tr> <tr> <td class="h" > <a name="917">917</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$testsuite_id,$deep,$details) = @_; </td> </tr> <tr> <td class="h" > <a name="918">918</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="919">919</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="920">920</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $details = 'full' if $details; </td> </tr> <tr> <td class="h" > <a name="921">921</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="922">922</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $input = { </td> </tr> <tr> <td class="h" > <a name="923">923</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> devKey => $self->apikey, </td> </tr> <tr> <td class="h" > <a name="924">924</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testsuiteid => $testsuite_id, </td> </tr> <tr> <td class="h" > <a name="925">925</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> deep => $deep, </td> </tr> <tr> <td class="h" > <a name="926">926</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> details => $details </td> </tr> <tr> <td class="h" > <a name="927">927</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="928">928</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="929">929</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </td> </tr> <tr> <td class="h" > <a name="930">930</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $result = $rpc->call('tl.getTestCasesForTestSuite',$input); </td> </tr> <tr> <td class="h" > <a name="931">931</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return [] if !$result->result; </td> </tr> <tr> <td class="h" > <a name="932">932</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="933">933</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return [] if !scalar(keys(%{$result->result->[0]})); # No tests </td> </tr> <tr> <td class="h" > <a name="934">934</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="935">935</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="936">936</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $result->result unless $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="937">937</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return []; </td> </tr> <tr> <td class="h" > <a name="938">938</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="939">939</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="940">940</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getTestCaseByExternalId (case_id,version)> </td> </tr> <tr> <td class="h" > <a name="941">941</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="942">942</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets the test case with the given external ID (e.g. projprefix-123) at provided version. </td> </tr> <tr> <td class="h" > <a name="943">943</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="944">944</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="945">945</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="946">946</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<CASE ID> - desired external case ID </td> </tr> <tr> <td class="h" > <a name="947">947</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="948">948</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<VERSION> - desired test case version. Defaults to most recent version. </td> </tr> <tr> <td class="h" > <a name="949">949</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="950">950</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="951">951</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="952">952</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns desired case definition hash, false otherwise. </td> </tr> <tr> <td class="h" > <a name="953">953</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="954">954</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $case = $tl->getTestCaseByExternalId('eee-123'); </td> </tr> <tr> <td class="h" > <a name="955">955</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="956">956</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="957">957</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="958">958</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getTestCaseByExternalId { </td> </tr> <tr> <td class="h" > <a name="959">959</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$case_id,$version) = @_; </td> </tr> <tr> <td class="h" > <a name="960">960</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="961">961</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="962">962</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $input = { </td> </tr> <tr> <td class="h" > <a name="963">963</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> devKey => $self->apikey, </td> </tr> <tr> <td class="h" > <a name="964">964</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testcaseexternalid => $case_id, </td> </tr> <tr> <td class="h" > <a name="965">965</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> version => $version </td> </tr> <tr> <td class="h" > <a name="966">966</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="967">967</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="968">968</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </td> </tr> <tr> <td class="h" > <a name="969">969</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $result = $rpc->call('tl.getTestCase',$input); </td> </tr> <tr> <td class="h" > <a name="970">970</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="971">971</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $result->result->[0] unless $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="972">972</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0; </td> </tr> <tr> <td class="h" > <a name="973">973</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="974">974</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="975">975</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getTestCaseById (case_id,version)> </td> </tr> <tr> <td class="h" > <a name="976">976</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="977">977</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets the test case with the given internal ID at provided version. </td> </tr> <tr> <td class="h" > <a name="978">978</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="979">979</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="980">980</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="981">981</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<CASE ID> - desired internal case ID </td> </tr> <tr> <td class="h" > <a name="982">982</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="983">983</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<VERSION> - desired test case version. Defaults to most recent version. </td> </tr> <tr> <td class="h" > <a name="984">984</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="985">985</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="986">986</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="987">987</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns desired case definition hash, false otherwise. </td> </tr> <tr> <td class="h" > <a name="988">988</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="989">989</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $case = $tl->getTestCaseById(28474,5); </td> </tr> <tr> <td class="h" > <a name="990">990</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="991">991</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="992">992</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="993">993</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getTestCaseById { </td> </tr> <tr> <td class="h" > <a name="994">994</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$case_id,$version) = @_; </td> </tr> <tr> <td class="h" > <a name="995">995</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="996">996</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="997">997</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $input = { </td> </tr> <tr> <td class="h" > <a name="998">998</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> devKey => $self->apikey, </td> </tr> <tr> <td class="h" > <a name="999">999</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testcaseid => $case_id, </td> </tr> <tr> <td class="h" > <a name="1000">1000</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> version => $version </td> </tr> <tr> <td class="h" > <a name="1001">1001</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="1002">1002</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1003">1003</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </td> </tr> <tr> <td class="h" > <a name="1004">1004</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $result = $rpc->call('tl.getTestCase',$input); </td> </tr> <tr> <td class="h" > <a name="1005">1005</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1006">1006</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $result->result->[0] unless $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1007">1007</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0; </td> </tr> <tr> <td class="h" > <a name="1008">1008</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1009">1009</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1010">1010</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getTestCaseByName (case_name,suite_name,project_name,tc_path_nameversion)> </td> </tr> <tr> <td class="h" > <a name="1011">1011</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1012">1012</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets the test case with the given internal ID at provided version. </td> </tr> <tr> <td class="h" > <a name="1013">1013</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1014">1014</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="1015">1015</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1016">1016</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<CASE NAME> - desired internal case ID </td> </tr> <tr> <td class="h" > <a name="1017">1017</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1018">1018</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<SUITE NAME> - parent suite's name </td> </tr> <tr> <td class="h" > <a name="1019">1019</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1020">1020</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<PROJECT NAME> - parent project's name </td> </tr> <tr> <td class="h" > <a name="1021">1021</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1022">1022</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<TC_PATH_NAME> (optional)- Full path to TC. Please see documentation for more info: http://jetmore.org/john/misc/phpdoc-testlink193-api/TestlinkAPI/TestlinkXMLRPCServer.html#getTestCaseIDByName </td> </tr> <tr> <td class="h" > <a name="1023">1023</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1024">1024</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<VERSION> (optional)- desired test case version. Defaults to most recent version. </td> </tr> <tr> <td class="h" > <a name="1025">1025</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1026">1026</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="1027">1027</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1028">1028</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns desired case definition hash, false otherwise. </td> </tr> <tr> <td class="h" > <a name="1029">1029</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1030">1030</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $case = $tl->getTestCaseByName('nugCase','gravySuite','chickenProject'); </td> </tr> <tr> <td class="h" > <a name="1031">1031</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1032">1032</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="1033">1033</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1034">1034</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getTestCaseByName { </td> </tr> <tr> <td class="h" > <a name="1035">1035</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self, $casename, $suitename, $projectname, $testcasepathname, $version) = @_; </td> </tr> <tr> <td class="h" > <a name="1036">1036</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="1037">1037</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1038">1038</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $input = { </td> </tr> <tr> <td class="h" > <a name="1039">1039</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> devKey => $self->apikey, </td> </tr> <tr> <td class="h" > <a name="1040">1040</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testcasename => $casename, </td> </tr> <tr> <td class="h" > <a name="1041">1041</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testsuitename => $suitename, </td> </tr> <tr> <td class="h" > <a name="1042">1042</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testprojectname => $projectname, </td> </tr> <tr> <td class="h" > <a name="1043">1043</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testcasepathname => $testcasepathname </td> </tr> <tr> <td class="h" > <a name="1044">1044</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="1045">1045</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1046">1046</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </td> </tr> <tr> <td class="h" > <a name="1047">1047</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $result = $rpc->call('tl.getTestCaseIDByName',$input); </td> </tr> <tr> <td class="h" > <a name="1048">1048</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1049">1049</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $result->result->[0] unless $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1050">1050</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0; </td> </tr> <tr> <td class="h" > <a name="1051">1051</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1052">1052</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1053">1053</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getTestCaseAttachments (case_ext_id)> </td> </tr> <tr> <td class="h" > <a name="1054">1054</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1055">1055</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets the attachments for some case. </td> </tr> <tr> <td class="h" > <a name="1056">1056</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1057">1057</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="1058">1058</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1059">1059</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<CASE ID> - desired external case ID </td> </tr> <tr> <td class="h" > <a name="1060">1060</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1061">1061</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="1062">1062</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1063">1063</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns desired attachment definition hash, false otherwise. Content key is the file base64 encoded. </td> </tr> <tr> <td class="h" > <a name="1064">1064</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1065">1065</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $att = $tl->getTestCaseAttachments('CP-222'); </td> </tr> <tr> <td class="h" > <a name="1066">1066</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1067">1067</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="1068">1068</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1069">1069</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getTestCaseAttachments { </td> </tr> <tr> <td class="h" > <a name="1070">1070</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self, $case_ext_id) = @_; </td> </tr> <tr> <td class="h" > <a name="1071">1071</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="1072">1072</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1073">1073</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $input = { </td> </tr> <tr> <td class="h" > <a name="1074">1074</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> devKey => $self->apikey, </td> </tr> <tr> <td class="h" > <a name="1075">1075</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testcaseexternalid => $case_ext_id, </td> </tr> <tr> <td class="h" > <a name="1076">1076</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="1077">1077</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1078">1078</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </td> </tr> <tr> <td class="h" > <a name="1079">1079</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $result = $rpc->call('tl.getTestCaseAttachments',$input); </td> </tr> <tr> <td class="h" > <a name="1080">1080</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0 if (!$result->result); </td> </tr> <tr> <td class="h" > <a name="1081">1081</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1082">1082</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $result->result->[0] unless $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1083">1083</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0; </td> </tr> <tr> <td class="h" > <a name="1084">1084</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1085">1085</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1086">1086</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getTestPlansForProject (project_id)> </td> </tr> <tr> <td class="h" > <a name="1087">1087</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1088">1088</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets the test plans within given project id </td> </tr> <tr> <td class="h" > <a name="1089">1089</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1090">1090</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="1091">1091</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1092">1092</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<PROJECT ID> - project ID </td> </tr> <tr> <td class="h" > <a name="1093">1093</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1094">1094</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="1095">1095</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1096">1096</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns desired test plan definition hashes, false otherwise. </td> </tr> <tr> <td class="h" > <a name="1097">1097</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1098">1098</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $plans = $tl->getTestPlansForProject(23); </td> </tr> <tr> <td class="h" > <a name="1099">1099</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1100">1100</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="1101">1101</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1102">1102</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getTestPlansForProject { </td> </tr> <tr> <td class="h" > <a name="1103">1103</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$project_id) = @_; </td> </tr> <tr> <td class="h" > <a name="1104">1104</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="1105">1105</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1106">1106</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $input = { </td> </tr> <tr> <td class="h" > <a name="1107">1107</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> devKey => $self->apikey, </td> </tr> <tr> <td class="h" > <a name="1108">1108</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testprojectid => $project_id </td> </tr> <tr> <td class="h" > <a name="1109">1109</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="1110">1110</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1111">1111</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </td> </tr> <tr> <td class="h" > <a name="1112">1112</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $result = $rpc->call('tl.getProjectTestPlans',$input); </td> </tr> <tr> <td class="h" > <a name="1113">1113</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1114">1114</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $result->result unless $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1115">1115</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0; </td> </tr> <tr> <td class="h" > <a name="1116">1116</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1117">1117</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1118">1118</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getTestPlanByName (plan_name,project_name)> </td> </tr> <tr> <td class="h" > <a name="1119">1119</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1120">1120</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets the test plan within given project name </td> </tr> <tr> <td class="h" > <a name="1121">1121</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1122">1122</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="1123">1123</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1124">1124</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<PLAN NAME> - desired test plan name </td> </tr> <tr> <td class="h" > <a name="1125">1125</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1126">1126</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<PROJECT NAME> - project name </td> </tr> <tr> <td class="h" > <a name="1127">1127</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1128">1128</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="1129">1129</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1130">1130</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns desired test plan definition hash, false otherwise. </td> </tr> <tr> <td class="h" > <a name="1131">1131</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1132">1132</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $suites = $tl->getTestPlanByName('nugs','gravy'); </td> </tr> <tr> <td class="h" > <a name="1133">1133</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1134">1134</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="1135">1135</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1136">1136</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> # I find it highly bizarre that the only 'by name' method exists for test plans, and it's the only test plan getter. </td> </tr> <tr> <td class="h" > <a name="1137">1137</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getTestPlanByName { </td> </tr> <tr> <td class="h" > <a name="1138">1138</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$plan_name,$project_name) = @_; </td> </tr> <tr> <td class="h" > <a name="1139">1139</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="1140">1140</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1141">1141</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $input = { </td> </tr> <tr> <td class="h" > <a name="1142">1142</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> devKey => $self->apikey, </td> </tr> <tr> <td class="h" > <a name="1143">1143</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testplanname => $plan_name, </td> </tr> <tr> <td class="h" > <a name="1144">1144</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testprojectname => $project_name </td> </tr> <tr> <td class="h" > <a name="1145">1145</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="1146">1146</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1147">1147</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </td> </tr> <tr> <td class="h" > <a name="1148">1148</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $result = $rpc->call('tl.getTestPlanByName',$input); </td> </tr> <tr> <td class="h" > <a name="1149">1149</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1150">1150</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $result->result->[0] unless $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1151">1151</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0; </td> </tr> <tr> <td class="h" > <a name="1152">1152</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1153">1153</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1154">1154</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getBuildsForTestPlan (plan_id)> </td> </tr> <tr> <td class="h" > <a name="1155">1155</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1156">1156</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets the builds for given test plan </td> </tr> <tr> <td class="h" > <a name="1157">1157</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1158">1158</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="1159">1159</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1160">1160</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<PLAN ID> - desired test plan ID </td> </tr> <tr> <td class="h" > <a name="1161">1161</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1162">1162</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="1163">1163</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1164">1164</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns desired builds' definition hashes, false otherwise. </td> </tr> <tr> <td class="h" > <a name="1165">1165</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1166">1166</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $builds = $tl->getBuildsForTestPlan(1234); </td> </tr> <tr> <td class="h" > <a name="1167">1167</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1168">1168</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="1169">1169</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1170">1170</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getBuildsForTestPlan { </td> </tr> <tr> <td class="h" > <a name="1171">1171</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$plan_id) = @_; </td> </tr> <tr> <td class="h" > <a name="1172">1172</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="1173">1173</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1174">1174</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $input = { </td> </tr> <tr> <td class="h" > <a name="1175">1175</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> devKey => $self->apikey, </td> </tr> <tr> <td class="h" > <a name="1176">1176</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testplanid => $plan_id </td> </tr> <tr> <td class="h" > <a name="1177">1177</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="1178">1178</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1179">1179</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </td> </tr> <tr> <td class="h" > <a name="1180">1180</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $result = $rpc->call('tl.getBuildsForTestPlan',$input); </td> </tr> <tr> <td class="h" > <a name="1181">1181</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1182">1182</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $result->result unless $result->result->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1183">1183</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0; </td> </tr> <tr> <td class="h" > <a name="1184">1184</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1185">1185</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1186">1186</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getTestCasesForTestPlan (plan_id)> </td> </tr> <tr> <td class="h" > <a name="1187">1187</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1188">1188</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets the cases in provided test plan </td> </tr> <tr> <td class="h" > <a name="1189">1189</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1190">1190</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="1191">1191</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1192">1192</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<PLAN ID> - desired test plan ID </td> </tr> <tr> <td class="h" > <a name="1193">1193</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1194">1194</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="1195">1195</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1196">1196</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns desired tests' definition hashes sorted by parent test plan ID, false otherwise. </td> </tr> <tr> <td class="h" > <a name="1197">1197</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1198">1198</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Example output: </td> </tr> <tr> <td class="h" > <a name="1199">1199</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> { 1234 => [{case1},{case2},...], 33212 => [cases...]} </td> </tr> <tr> <td class="h" > <a name="1200">1200</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1201">1201</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Example usage: </td> </tr> <tr> <td class="h" > <a name="1202">1202</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $builds = $tl->getTestCasesForTestPlan(1234); </td> </tr> <tr> <td class="h" > <a name="1203">1203</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1204">1204</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="1205">1205</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1206">1206</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getTestCasesForTestPlan { </td> </tr> <tr> <td class="h" > <a name="1207">1207</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$plan_id) = @_; </td> </tr> <tr> <td class="h" > <a name="1208">1208</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="1209">1209</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1210">1210</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $input = { </td> </tr> <tr> <td class="h" > <a name="1211">1211</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> devKey => $self->apikey, </td> </tr> <tr> <td class="h" > <a name="1212">1212</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testplanid => $plan_id </td> </tr> <tr> <td class="h" > <a name="1213">1213</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="1214">1214</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1215">1215</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </td> </tr> <tr> <td class="h" > <a name="1216">1216</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $result = $rpc->call('tl.getTestCasesForTestPlan',$input); </td> </tr> <tr> <td class="h" > <a name="1217">1217</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> warn $result->result->{'message'} if $result->result->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1218">1218</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $result->result unless $result->result->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1219">1219</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0; </td> </tr> <tr> <td class="h" > <a name="1220">1220</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1221">1221</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1222">1222</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getLatestBuildForTestPlan (plan_id)> </td> </tr> <tr> <td class="h" > <a name="1223">1223</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1224">1224</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets the latest build for the provided test plan </td> </tr> <tr> <td class="h" > <a name="1225">1225</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1226">1226</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="1227">1227</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1228">1228</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<PLAN ID> - desired test plan ID </td> </tr> <tr> <td class="h" > <a name="1229">1229</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1230">1230</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="1231">1231</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1232">1232</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns desired build definition hash, false otherwise. </td> </tr> <tr> <td class="h" > <a name="1233">1233</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1234">1234</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $build = $tl->getLatestBuildForTestPlan(1234); </td> </tr> <tr> <td class="h" > <a name="1235">1235</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1236">1236</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="1237">1237</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1238">1238</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getLatestBuildForTestPlan { </td> </tr> <tr> <td class="h" > <a name="1239">1239</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$plan_id) = @_; </td> </tr> <tr> <td class="h" > <a name="1240">1240</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="1241">1241</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1242">1242</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $input = { </td> </tr> <tr> <td class="h" > <a name="1243">1243</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> devKey => $self->apikey, </td> </tr> <tr> <td class="h" > <a name="1244">1244</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> tplanid => $plan_id, #documented arg, but that's LIES, apparently it wants the next one </td> </tr> <tr> <td class="h" > <a name="1245">1245</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testplanid => $plan_id </td> </tr> <tr> <td class="h" > <a name="1246">1246</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="1247">1247</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1248">1248</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </td> </tr> <tr> <td class="h" > <a name="1249">1249</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $result = $rpc->call('tl.getLatestBuildForTestPlan',$input); </td> </tr> <tr> <td class="h" > <a name="1250">1250</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1251">1251</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Handle mixed return type </td> </tr> <tr> <td class="h" > <a name="1252">1252</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $res = $result->result; </td> </tr> <tr> <td class="h" > <a name="1253">1253</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $res = [$res] if reftype($res) eq 'HASH'; </td> </tr> <tr> <td class="h" > <a name="1254">1254</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1255">1255</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> warn $res->[0]->{'message'} if $res->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1256">1256</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $res->[0] unless $res->[0]->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1257">1257</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0; </td> </tr> <tr> <td class="h" > <a name="1258">1258</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1259">1259</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1260">1260</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getBuildByName (build_name,project_id)> </td> </tr> <tr> <td class="h" > <a name="1261">1261</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1262">1262</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets the desired build in project id by name </td> </tr> <tr> <td class="h" > <a name="1263">1263</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1264">1264</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="1265">1265</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1266">1266</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item STRING C<BUILD NAME> - desired build's name </td> </tr> <tr> <td class="h" > <a name="1267">1267</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1268">1268</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item INTEGER C<PROJECT ID> - desired test project ID </td> </tr> <tr> <td class="h" > <a name="1269">1269</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1270">1270</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="1271">1271</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1272">1272</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns desired build definition hash, false otherwise. </td> </tr> <tr> <td class="h" > <a name="1273">1273</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1274">1274</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $build = $tl->getBuildByName('foo',1234); </td> </tr> <tr> <td class="h" > <a name="1275">1275</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1276">1276</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="1277">1277</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1278">1278</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #TODO cache stuff, don't require proj id? </td> </tr> <tr> <td class="h" > <a name="1279">1279</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getBuildByName { </td> </tr> <tr> <td class="h" > <a name="1280">1280</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$build_name,$project_id) = @_; </td> </tr> <tr> <td class="h" > <a name="1281">1281</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="1282">1282</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1283">1283</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $plans = $self->getTestPlansForProject($project_id); </td> </tr> <tr> <td class="h" > <a name="1284">1284</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> for my $plan (@$plans) { </td> </tr> <tr> <td class="h" > <a name="1285">1285</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $builds = $self->getBuildsForTestPlan($plan->{'id'}); </td> </tr> <tr> <td class="h" > <a name="1286">1286</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> for my $build (@$builds) { </td> </tr> <tr> <td class="h" > <a name="1287">1287</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $build if $build->{'name'} eq $build_name; </td> </tr> <tr> <td class="h" > <a name="1288">1288</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1289">1289</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1290">1290</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0; </td> </tr> <tr> <td class="h" > <a name="1291">1291</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1292">1292</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1293">1293</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head1 REPORTING METHODS </td> </tr> <tr> <td class="h" > <a name="1294">1294</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1295">1295</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<getTotalsForTestPlan (plan_id)> </td> </tr> <tr> <td class="h" > <a name="1296">1296</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1297">1297</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Gets the results summary for a test plan, even though what you really want is results by build/platform </td> </tr> <tr> <td class="h" > <a name="1298">1298</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1299">1299</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="1300">1300</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1301">1301</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item INTEGER C<PLAN ID> - desired test plan </td> </tr> <tr> <td class="h" > <a name="1302">1302</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1303">1303</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="1304">1304</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1305">1305</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns Hash describing test results. </td> </tr> <tr> <td class="h" > <a name="1306">1306</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1307">1307</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $res = $tl->getTotalsForTestPlan(2322); </td> </tr> <tr> <td class="h" > <a name="1308">1308</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1309">1309</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="1310">1310</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1311">1311</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub getTotalsForTestPlan { </td> </tr> <tr> <td class="h" > <a name="1312">1312</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$plan_id) = @_; </td> </tr> <tr> <td class="h" > <a name="1313">1313</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="1314">1314</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1315">1315</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $input = { </td> </tr> <tr> <td class="h" > <a name="1316">1316</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> devKey => $self->apikey, </td> </tr> <tr> <td class="h" > <a name="1317">1317</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> tplanid => $plan_id, #documented arg, but that's LIES, apparently it wants the next one </td> </tr> <tr> <td class="h" > <a name="1318">1318</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> testplanid => $plan_id </td> </tr> <tr> <td class="h" > <a name="1319">1319</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="1320">1320</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1321">1321</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </td> </tr> <tr> <td class="h" > <a name="1322">1322</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $result = $rpc->call('tl.getTotalsForTestPlan',$input); </td> </tr> <tr> <td class="h" > <a name="1323">1323</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1324">1324</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> warn $result->result->{'message'} if $result->result->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1325">1325</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $result->result unless $result->result->{'code'}; </td> </tr> <tr> <td class="h" > <a name="1326">1326</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return 0; </td> </tr> <tr> <td class="h" > <a name="1327">1327</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1328">1328</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1329">1329</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head1 EXPORT/IMPORT METHODS </td> </tr> <tr> <td class="h" > <a name="1330">1330</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1331">1331</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =head2 B<dump([project,get_attachments,flatten])> </td> </tr> <tr> <td class="h" > <a name="1332">1332</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1333">1333</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Return all info for all (or only the specified) projects. </td> </tr> <tr> <td class="h" > <a name="1334">1334</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> It will have the entire testsuite hierarchy and it's tests/attachments in an array of HASHREFs. </td> </tr> <tr> <td class="h" > <a name="1335">1335</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> The idea would be that you then could encode as JSON/XML as a backup, or to facilitate migration to other systems. </td> </tr> <tr> <td class="h" > <a name="1336">1336</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1337">1337</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> The project hashes will be what you would expect from getProjectByName calls. </td> </tr> <tr> <td class="h" > <a name="1338">1338</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Those will have a key 'testsuites' with a list of it's child testsuites. </td> </tr> <tr> <td class="h" > <a name="1339">1339</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> These testsuites will themselves have 'testsuites' and 'test' keys describing their children. </td> </tr> <tr> <td class="h" > <a name="1340">1340</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Both the test and testsuite hashes will have an 'attachment' parameter with the base64 encoded attachment as a string if the get_attachments option is passed. </td> </tr> <tr> <td class="h" > <a name="1341">1341</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1342">1342</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> WARNING: I have observed some locking related issues with cases/suites etc. </td> </tr> <tr> <td class="h" > <a name="1343">1343</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Sometimes calls to get tests/suites during dumps fails, sometimes subsequent calls to getTestSuites/getTestCasesForTestSuite fail. </td> </tr> <tr> <td class="h" > <a name="1344">1344</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> If you are experiencing issues, try to put some wait() in there until it starts behaving right. </td> </tr> <tr> <td class="h" > <a name="1345">1345</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Alternatively, just XML dump the whole project and use XML::Simple or somesuch to get the project tree. </td> </tr> <tr> <td class="h" > <a name="1346">1346</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1347">1347</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> ALSO: Attachment getting is not enabled due to the underlying XMLRPC calls appearing not to work. This option will be ignored until a workaround can be found. </td> </tr> <tr> <td class="h" > <a name="1348">1348</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1349">1349</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =over 4 </td> </tr> <tr> <td class="h" > <a name="1350">1350</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1351">1351</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item INTEGER C<PROJECT NAME> (optional) - desired project </td> </tr> <tr> <td class="h" > <a name="1352">1352</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item BOOLEAN C<GET ATTACHMENTS> (optional) - whether or not to get attachments. Default false. </td> </tr> <tr> <td class="h" > <a name="1353">1353</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =item BOOLEAN C<FLATTEN> (optional) - Whether to return a flattened structure (you will need to corellate parent to child yourself, but this is faster due to not walking the tree). Preferred output for those not comfortable with doing tail recursion. </td> </tr> <tr> <td class="h" > <a name="1354">1354</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1355">1355</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =back </td> </tr> <tr> <td class="h" > <a name="1356">1356</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1357">1357</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> Returns ARRAYREF describing everything. </td> </tr> <tr> <td class="h" > <a name="1358">1358</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1359">1359</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $ultradump = $tl->dump(); </td> </tr> <tr> <td class="h" > <a name="1360">1360</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $dumpWithAtts = $tl->dump('TestProject',1); </td> </tr> <tr> <td class="h" > <a name="1361">1361</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $flatDump = $tl->dump('testProj',0,1); </td> </tr> <tr> <td class="h" > <a name="1362">1362</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1363">1363</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> =cut </td> </tr> <tr> <td class="h" > <a name="1364">1364</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1365">1365</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub dump { </td> </tr> <tr> <td class="h" > <a name="1366">1366</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$project,$attachment,$flat) = @_; </td> </tr> <tr> <td class="h" > <a name="1367">1367</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="1368">1368</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1369">1369</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $res = $self->_cacheProjectTree($project,$flat); </td> </tr> <tr> <td class="h" > <a name="1370">1370</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return [] if !$res; </td> </tr> <tr> <td class="h" > <a name="1371">1371</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1372">1372</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $res if !$project \|\| $flat; </td> </tr> <tr> <td class="h" > <a name="1373">1373</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> foreach my $pj (@{$res}) { </td> </tr> <tr> <td class="h" > <a name="1374">1374</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $pj if $pj->{'name'} eq $project; </td> </tr> <tr> <td class="h" > <a name="1375">1375</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1376">1376</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> croak "COULD NOT DUMP, SOMETHING HORRIBLY WRONG"; </td> </tr> <tr> <td class="h" > <a name="1377">1377</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1378">1378</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1379">1379</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub _cacheProjectTree { </td> </tr> <tr> <td class="h" > <a name="1380">1380</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($self,$project,$flat,$use_project_id,$get_tests) = @_; </td> </tr> <tr> <td class="h" > <a name="1381">1381</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="1382">1382</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1383">1383</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $flat //= 0; </td> </tr> <tr> <td class="h" > <a name="1384">1384</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $use_project_id //= 0; </td> </tr> <tr> <td class="h" > <a name="1385">1385</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $get_tests //= 1; </td> </tr> <tr> <td class="h" > <a name="1386">1386</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1387">1387</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Cache Projects </td> </tr> <tr> <td class="h" > <a name="1388">1388</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> if (!scalar(@{$self->{'testtree'}})) { </td> </tr> <tr> <td class="h" > <a name="1389">1389</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $self->getProjects(); </td> </tr> <tr> <td class="h" > <a name="1390">1390</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1391">1391</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1392">1392</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my @flattener = @{$self->{'testtree'}}; </td> </tr> <tr> <td class="h" > <a name="1393">1393</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1394">1394</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> for my $projhash (@flattener) { </td> </tr> <tr> <td class="h" > <a name="1395">1395</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> if ($use_project_id) { </td> </tr> <tr> <td class="h" > <a name="1396">1396</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> next if $project && $project ne $projhash->{'id'} && (defined($projhash->{'type'}) && $projhash->{'type'} eq 'project'); </td> </tr> <tr> <td class="h" > <a name="1397">1397</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } else { </td> </tr> <tr> <td class="h" > <a name="1398">1398</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> next if $project && $project ne $projhash->{'name'} && (defined($projhash->{'type'}) && $projhash->{'type'} eq 'project'); </td> </tr> <tr> <td class="h" > <a name="1399">1399</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1400">1400</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1401">1401</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #If Testsuites are not defined, this must be a TS which we have not traversed yet, so go and get it </td> </tr> <tr> <td class="h" > <a name="1402">1402</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> if (exists($projhash->{'type'}) && $projhash->{'type'} eq 'project') { </td> </tr> <tr> <td class="h" > <a name="1403">1403</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $projhash->{'testsuites'} = $self->getTLDTestSuitesForProject($projhash->{'id'},$get_tests); </td> </tr> <tr> <td class="h" > <a name="1404">1404</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } else { </td> </tr> <tr> <td class="h" > <a name="1405">1405</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $projhash->{'testsuites'} = $self->getTestSuitesForTestSuite($projhash->{'id'},$get_tests); </td> </tr> <tr> <td class="h" > <a name="1406">1406</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1407">1407</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1408">1408</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $projhash->{'testsuites'} = [] if !$projhash->{'testsuites'}; </td> </tr> <tr> <td class="h" > <a name="1409">1409</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> for my $tshash (@{$projhash->{'testsuites'}}) { </td> </tr> <tr> <td class="h" > <a name="1410">1410</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Otherwise, push it's children to the end of our array so we can recurse as needed. </td> </tr> <tr> <td class="h" > <a name="1411">1411</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #I hope the designers of TL's schema were smart enough to not allow self-referential or circular suites.. </td> </tr> <tr> <td class="h" > <a name="1412">1412</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> push(@flattener,clone $tshash); </td> </tr> <tr> <td class="h" > <a name="1413">1413</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1414">1414</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1415">1415</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1416">1416</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1417">1417</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Keep this for simple searches in the future. </td> </tr> <tr> <td class="h" > <a name="1418">1418</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $self->{'flattree'} = clone \@flattener; </td> </tr> <tr> <td class="h" > <a name="1419">1419</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my @debuglist = map {$_->{'tests'}} @flattener; </td> </tr> <tr> <td class="h" > <a name="1420">1420</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $self->{'flattree'} if $flat; </td> </tr> <tr> <td class="h" > <a name="1421">1421</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $self->_expandTree($project,@flattener); </td> </tr> <tr> <td class="h" > <a name="1422">1422</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1423">1423</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1424">1424</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> sub _expandTree { </td> </tr> <tr> <td class="h" > <a name="1425">1425</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $self = shift; </td> </tr> <tr> <td class="h" > <a name="1426">1426</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> confess("Object parameters must be called by an instance") unless ref($self); </td> </tr> <tr> <td class="h" > <a name="1427">1427</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $project = shift; </td> </tr> <tr> <td class="h" > <a name="1428">1428</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my @flattener = @_; </td> </tr> <tr> <td class="h" > <a name="1429">1429</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #The following algorithm relies implicitly on pass-by-reference. </td> </tr> <tr> <td class="h" > <a name="1430">1430</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #So we have a flat array of testsuites we want to map into parent-child relationships. </td> </tr> <tr> <td class="h" > <a name="1431">1431</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($i,$j); </td> </tr> <tr> <td class="h" > <a name="1432">1432</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> foreach my $suite (@flattener) { </td> </tr> <tr> <td class="h" > <a name="1433">1433</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> if (defined($suite->{'type'}) && $suite->{'type'} eq 'project') { </td> </tr> <tr> <td class="h" > <a name="1434">1434</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Then skip it, since it's not a suite. </td> </tr> <tr> <td class="h" > <a name="1435">1435</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> shift @flattener; </td> </tr> <tr> <td class="h" > <a name="1436">1436</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> next; </td> </tr> <tr> <td class="h" > <a name="1437">1437</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1438">1438</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1439">1439</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #This means we need to walk the hierarchy of every project, or just the one we passed </td> </tr> <tr> <td class="h" > <a name="1440">1440</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> for ($j=0; $j < scalar(@{$self->{'testtree'}}); $j++) { </td> </tr> <tr> <td class="h" > <a name="1441">1441</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #If we have a project, skip the other ones </td> </tr> <tr> <td class="h" > <a name="1442">1442</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> next unless $project && $self->{'testtree'}->[$j]->{'name'} eq $project; </td> </tr> <tr> <td class="h" > <a name="1443">1443</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1444">1444</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Get the ball rolling if we have to </td> </tr> <tr> <td class="h" > <a name="1445">1445</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $self->{'testtree'}->[$j]->{'testsuites'} = $self->getTLDTestSuitesForProject($self->{'testtree'}->[$j]->{'id'},1) if !defined($self->{'testtree'}->[$j]->{'testsuites'}); </td> </tr> <tr> <td class="h" > <a name="1446">1446</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1447">1447</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #So, let's tail recurse over the testsuites. </td> </tr> <tr> <td class="h" > <a name="1448">1448</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> for ($i=0; $i < scalar(@{$self->{'testtree'}->[$j]->{'testsuites'}}); $i++) { </td> </tr> <tr> <td class="h" > <a name="1449">1449</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my $tailRecurseTSWalker = sub { </td> </tr> <tr> <td class="h" > <a name="1450">1450</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> my ($ts,$desired_ts) = @_; </td> </tr> <tr> <td class="h" > <a name="1451">1451</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1452">1452</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Mark it down if we found it </td> </tr> <tr> <td class="h" > <a name="1453">1453</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> if ($ts->{'id'} eq $desired_ts->{'parent_id'}) { </td> </tr> <tr> <td class="h" > <a name="1454">1454</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1455">1455</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #Set the REF's 'testsuites' param, and quit searching </td> </tr> <tr> <td class="h" > <a name="1456">1456</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $ts->{'testsuites'} = [] if !defined($ts->{'testsuites'}); </td> </tr> <tr> <td class="h" > <a name="1457">1457</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> push(@{$ts->{'testsuites'}},$desired_ts); </td> </tr> <tr> <td class="h" > <a name="1458">1458</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> $desired_ts->{'found'} = 1; </td> </tr> <tr> <td class="h" > <a name="1459">1459</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return; </td> </tr> <tr> <td class="h" > <a name="1460">1460</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1461">1461</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1462">1462</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #If there's already (nonblank) hierarchy in the passed TS, then WE HAVE TO GO DEEPER </td> </tr> <tr> <td class="h" > <a name="1463">1463</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> if (defined($ts->{'testsuites'}) && scalar(@{$desired_ts->{'testsuites'}})) { </td> </tr> <tr> <td class="h" > <a name="1464">1464</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> for (my $i=0; $i < scalar(@{$ts->{'testsuites'}}); $i++) { </td> </tr> <tr> <td class="h" > <a name="1465">1465</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> _tailRecurseTSWalker($ts->{'testsuites'}->[$i],$desired_ts); </td> </tr> <tr> <td class="h" > <a name="1466">1466</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1467">1467</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1468">1468</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1469">1469</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return; </td> </tr> <tr> <td class="h" > <a name="1470">1470</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> }; </td> </tr> <tr> <td class="h" > <a name="1471">1471</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1472">1472</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> &$tailRecurseTSWalker($self->{'testtree'}->[$j]->{'testsuites'}->[$i],$suite); </td> </tr> <tr> <td class="h" > <a name="1473">1473</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #OPTIMIZE: break out if we found it already </td> </tr> <tr> <td class="h" > <a name="1474">1474</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> last if $suite->{'found'}; </td> </tr> <tr> <td class="h" > <a name="1475">1475</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1476">1476</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> last if $suite->{'found'}; </td> </tr> <tr> <td class="h" > <a name="1477">1477</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1478">1478</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1479">1479</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> #If we didn't find this one yet, as the hierarchy build is progressive, add it to the end until it gets picked up. </td> </tr> <tr> <td class="h" > <a name="1480">1480</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> if (!$suite->{'found'}) { </td> </tr> <tr> <td class="h" > <a name="1481">1481</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> push(@flattener,shift @flattener); # If it wasn't found, push it on to the end of the array so the walk might find it next time. </td> </tr> <tr> <td class="h" > <a name="1482">1482</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } else { </td> </tr> <tr> <td class="h" > <a name="1483">1483</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> shift @flattener; </td> </tr> <tr> <td class="h" > <a name="1484">1484</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1485">1485</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1486">1486</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> return $self->{'testtree'}; </td> </tr> <tr> <td class="h" > <a name="1487">1487</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </td> </tr> <tr> <td class="h" > <a name="1488">1488</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1489">1489</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> 1; </td> </tr> <tr> <td class="h" > <a name="1490">1490</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </td> </tr> <tr> <td class="h" > <a name="1491">1491</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> __END__ </td> </tr> </table> </body> </html>