File Coverage

blib/lib/TestLink/API.pm

Criterion	Covered	Total	%
statement	19	21	90.4
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	26	28	92.8

line	stmt	sub	time	code
1				package TestLink::API;
2				{
3				$TestLink::API::VERSION = '0.009';
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	75395	use strict;
	2		5
	2		85
46	2	2	12	use warnings;
	2		4
	2		62
47	2	2	10	use Carp;
	2		8
	2		172
48	2	2	12	use Scalar::Util qw{reftype looks_like_number}; #boo, some functions return hashes and arrays depending on # of results (1 or many)
	2		3
	2		225
49	2	2	1416	use Data::Validate::URI 'is_uri';
	2		100600
	2		123
50
51	2	2	944	use Clone 'clone';
	2		1046
	2		96
52
53	2	2	1769	use XMLRPC::Lite;
	0
	0
54
55				=head1 CONSTRUCTOR
56
57				=head2 B
58
59				Creates new C object.
60
61				=over 4
62
63				=item C - URL to your testlink API endpoint.
64
65				=item C - TestLink API key.
66
67				=back
68
69				Returns C object if login is successful.
70
71				my $tl = TestLink::API->new('http://tl.test/testlink/lib/api/xmlrpc/v1/xmlrpc.php', 'gobbledygook123');
72
73				=cut
74
75				sub new {
76				my ($class,$apiurl,$apikey) = @_;
77				confess("Constructor must be called statically, not by an instance") if ref($class);
78				$apiurl \|\|= $ENV{'TESTLINK_SERVER_ADDR'};
79				$apikey \|\|= $ENV{'TESTLINK_API_KEY'};
80
81				confess("No API key provided.") if !$apiurl;
82				confess("No API URL provided.") if !$apikey;
83				confess("API URL provided not valid.") unless is_uri($apiurl);
84
85				my $self = {
86				apiurl => $apiurl,
87				apikey => $apikey,
88				testtree => [],
89				flattree => [],
90				invalidate_cache => 1 #since we don't have a cache right now... #TODO this should be granular down to project rather than global
91				};
92
93				bless $self, $class;
94				return $self;
95				}
96
97				=head1 PROPERTIES
98
99				=over 4
100
101				apiurl and apikey can be accessed/set:
102
103				$url = $tl->apiurl;
104				$tl = $tl->apiurl('http//some.new.url/foo.php');
105
106				=back
107
108				=cut
109
110				#EZ get/set of obj vars
111				sub AUTOLOAD {
112				my %public_elements = map {$_,1} qw{apiurl apikey}; #Public element access
113				our $AUTOLOAD;
114
115				if ($AUTOLOAD =~ /::(\w+)$/ and exists $public_elements{$1} ) {
116				my $field = $1;
117				{
118				no strict 'refs';
119				*{$AUTOLOAD} = sub {
120				confess("Object parameters must be called by an instance") unless ref($_[0]);
121				return $_[0]->{$field} unless defined $_[1];
122				$_[0]->{$field} = $_[1];
123				return $_[0];
124				};
125				}
126				goto &{$AUTOLOAD};
127				}
128				confess("$AUTOLOAD not accessible property") unless $AUTOLOAD =~ /DESTROY$/;
129				}
130
131				=head1 CREATE METHODS
132
133				=head2 B
134
135				Creates new Test plan with given name in the given project.
136
137				=over 4
138
139				=item STRING C - Desired test plan name.
140
141				=item STRING C - The name of some project existing in TestLink.
142
143				=item STRING C (optional) - Additional description of test plan. Default value is 'res ipsa loquiter'
144
145				=item BOOLEAN C (optional) - Whether or not the test plan is active. Default value is true.
146
147				=item BOOLEAN C (optional) - Whether or not the test plan is public. Default is true.
148
149				=back
150
151				Returns (integer) test plan ID if creation is successful.
152
153				my $tpid = $tl->createTestPlan('shock&awe', 'enduringfreedom');
154
155				=cut
156
157				sub createTestPlan {
158				my ($self,$name,$project,$notes,$active,$public) = @_;
159				confess("Object parameters must be called by an instance") unless ref($self);
160
161				confess("Desired Test Plan Name is a required argument (0th).") if !$name;
162				confess("Parent Project Name is a required argument (1st).") if !$project;
163
164				$notes \|\|= 'res ipsa loquiter';
165				$active \|\|= 1;
166				$public \|\|= 1;
167
168				my $input = {
169				devKey => $self->apikey,
170				testplanname => $name,
171				testprojectname => $project,
172				notes => $notes,
173				active => $active,
174				public => $public
175				};
176
177				my $rpc = XMLRPC::Lite->proxy($self->apiurl);
178				my $result = $rpc->call('tl.createTestPlan',$input);
179				warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'};
180				return $result->result->[0]->{'id'} if $result->result->[0]->{'id'};
181				return 0;
182				}
183
184				=head2 B
185
186				Creates new 'Build' (test run in common parlance) from given test plan having given name and notes.
187
188				=over 4
189
190				=item INTEGER C - ID of test plan to base test run on.
191
192				=item STRING C - Desired name for test run.
193
194				=item STRING C (optional) - Additional description of run. Default value is 'res ipsa loquiter'.
195
196				=back
197
198				Returns true if case addition is successful, false otherwise.
199
200				$tl->createBuild(1234, "Bossin' up", 'Crushing our enemies, seeing them driven before us and hearing the lamentations of their support engineers.');
201
202				=cut
203
204				sub createBuild {
205				my ($self,$plan_id,$name,$notes) = @_;
206				confess("Object parameters must be called by an instance") unless ref($self);
207				confess("Plan ID must be integer") unless looks_like_number($plan_id);
208				confess("Build name is a required argument (1st)") if !$name;
209				$notes \|\|= 'res ipsa loquiter';
210
211				my $input = {
212				devKey => $self->apikey,
213				testplanid => $plan_id,
214				buildname => $name,
215				buildnotes => $notes
216				};
217
218				my $rpc = XMLRPC::Lite->proxy($self->apiurl);
219				my $result = $rpc->call('tl.createBuild',$input);
220				warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'};
221				return $result->result->[0]->{'id'} if $result->result->[0]->{'id'};
222				return 0;
223				}
224
225				=head2 B
226
227				Creates new TestSuite (folder of tests) in the database of test specifications under given project id having given name and details.
228				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.
229
230				=over 4
231
232				=item INTEGER C - ID of project this test suite should be under.
233
234				=item STRING C - Desired name of test suite.
235
236				=item STRING C (optional) - Description of test suite. Default value is 'res ipsa loquiter'.
237
238				=item INTEGER C (optional) - Parent test suite ID. Defaults to top level of project.
239
240				=item INTEGER C (optional) - Desired order amongst peer testsuites. Defaults to last in list.
241
242				=back
243
244				Returns (integer) build ID on success, false otherwise.
245
246				$tl->createTestSuite(1, 'broken tests', 'Tests that should be reviewed', 2345, -1);
247
248				=cut
249
250				sub createTestSuite {
251				my ($self,$project_id,$name,$details,$parent_id,$order) = @_;
252				confess("Object parameters must be called by an instance") unless ref($self);
253				confess("Parent Project ID (arg 0) must be an integer") unless looks_like_number($project_id);
254				confess("Name (arg 1) cannot be undefined") unless $name;
255
256				$details \|\|= 'res ipsa loquiter';
257				$order \|\|= -1;
258
259				my $input = {
260				devKey => $self->apikey,
261				testprojectid => $project_id,
262				testsuitename => $name,
263				details => $details,
264				parentid => $parent_id,
265				order => $order
266				};
267
268				my $rpc = XMLRPC::Lite->proxy($self->apiurl);
269				my $result = $rpc->call('tl.createTestSuite',$input);
270				warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'};
271				$self->{'invalidate_cache'} = 1 if $result->result->[0]->{'id'};
272				return $result->result->[0]->{'id'} if $result->result->[0]->{'id'};
273				return 0;
274				}
275
276				=head2 B
277
278				Creates new Project (Database of testsuites/tests) with given name and case prefix.
279				Optionally, can have notes, options, set the project as active/inactive and public/private.
280
281				=over 4
282
283				=item STRING C - Desired name of project.
284
285				=item STRING C - Desired prefix of project's external test case IDs.
286
287				=item STRING C (optional) - Description of project. Default value is 'res ipsa loquiter'.
288
289				=item HASHREF{BOOLEAN} C (optional) - Hash with keys: requirementsEnabled,testPriorityEnabled,automationEnabled,inventoryEnabled.
290
291				=item BOOLEAN C (optional) - Whether to mark the project active or not. Default True.
292
293				=item BOOLEAN C (optional) - Whether the project is public or not. Default true.
294
295				=back
296
297				Returns (integer) project ID on success, false otherwise.
298
299				$tl->createTestProject('Widgetronic 4000', 'Tests for the whiz-bang new product', {'inventoryEnabled=>true}, true, true);
300
301				=cut
302
303				#XXX probably should not use
304				sub createTestProject {
305				my ($self,$name,$case_prefix,$notes,$options,$active,$public) = @_;
306				confess("Object parameters must be called by an instance") unless ref($self);
307				$notes //= 'res ipsa loquiter';
308				$options //= {};
309				$public //= 1;
310				$active //= 1;
311
312				my $input = {
313				devKey => $self->apikey,
314				testprojectname => $name,
315				testcaseprefix => $case_prefix,
316				notes => $notes,
317				options => $options,
318				active => $active,
319				public => $public
320				};
321
322				my $rpc = XMLRPC::Lite->proxy($self->apiurl);
323				my $result = $rpc->call('tl.createTestProject',$input);
324				#XXX i'm being very safe (haha), there's probably a better check
325				warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'};
326				$self->{'invalidate_cache'} = 1 if $result->result->[0]->{'id'};
327				return $result->result->[0]->{'id'} if $result->result->[0]->{'id'};
328				return 0;
329
330				}
331
332				=head2 B
333
334				Creates new test case with given test suite id and project id.
335				Author, Summary and Steps are mandatory for reasons that should be obvious to any experienced QA professional.
336				Execution type and Test order is optional.
337
338				=over 4
339
340				=item STRING C - Desired name of test case.
341
342				=item INTEGER C - ID of parent test suite.
343
344				=item INTEGER C - ID of parent project
345
346				=item STRING C - Author of test case.
347
348				=item STRING C - Summary of test case.
349
350				=item STRING C - Test steps.
351
352				=item STRING C - Prereqs for running the test, if any.
353
354				=item STRING C (optional) - Execution type. Defaults to 'manual'.
355
356				=item INTEGER C (optional) - Order of test amongst peers.
357
358				=back
359
360				Returns (HASHREF) with Test Case ID and Test Case External ID on success, false otherwise.
361
362				$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);
363
364				=cut
365
366				sub createTestCase {
367				my ($self,$test_name,$test_suite_id,$test_project_id,$author_name,$summary,$steps,$preconditions,$execution,$order) = @_;
368				confess("Object parameters must be called by an instance") unless ref($self);
369
370				my $input = {
371				devKey => $self->apikey,
372				testcasename => $test_name,
373				testsuiteid => $test_suite_id,
374				testprojectid => $test_project_id,
375				authorlogin => $author_name,
376				summary => $summary,
377				steps => $steps,
378				preconditions => $preconditions,
379				execution => $execution,
380				order => $order
381				};
382
383				my $rpc = XMLRPC::Lite->proxy($self->apiurl);
384				my $result = $rpc->call('tl.createTestCase',$input);
385				#XXX i'm being very safe (haha), there's probably a better check
386				warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'};
387				return $result->result->[0] if $result->result->[0]->{'id'};
388				return 0;
389
390				}
391
392				=head1 SETTER METHODS
393
394				=head2 B
395
396				Report results of a test case with a given ID, plan and build ID. Set case results to status given.
397				Platform is mandatory if available, otherwise optional.
398				Notes and Bug Ids for whatever tracker you use are optional.
399
400				=over 4
401
402				=item INTEGER C - Desired test case.
403
404				=item INTEGER C - ID of relevant test plan.
405
406				=item INTEGER C - ID of relevant build.
407
408				=item STRING C - Desired Test Status Code. Codes not documented anywhere but in your cfg/const.inc.php of the TestLink Install.
409
410				=item STRING C (semi-optional) - Relevant platform tested on. Accepts both platform name and ID, if it looks_like_number, uses platform_id
411
412				=item STRING C (optional) - Relevant information gleaned during testing process.
413
414				=item STRING C (optional) - Relevant bug ID for regression tests, or if you auto-open bugs based on failures.
415
416				=back
417
418				Returns project ID on success, false otherwise.
419
420				$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');
421
422				=cut
423
424				sub reportTCResult {
425				my ($self,$case_id,$plan_id,$build_id,$status,$platform,$notes,$bugid) = @_;
426				confess("Object parameters must be called by an instance") unless ref($self);
427
428				my $input = {
429				devKey => $self->apikey,
430				testcaseid => $case_id,
431				testplanid => $plan_id,
432				buildid => $build_id,
433				status => $status,
434				notes => $notes,
435				bugid => $bugid
436				};
437
438				if (defined($platform) && !ref $platform) {
439				if (looks_like_number($platform)) {
440				$input->{'platformid'} = $platform;
441				} else {
442				$input->{'platformname'} = $platform;
443				}
444				}
445
446				my $rpc = XMLRPC::Lite->proxy($self->apiurl);
447				my $result = $rpc->call('tl.reportTCResult',$input);
448				warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'};
449				return $result->result->[0] unless $result->result->[0]->{'code'};
450				return 0;
451				}
452
453				=head2 B
454
455				Creates new Test plan with given name in the given project.
456
457				=over 4
458
459				=item INTEGER C - Desired test plan.
460
461				=item STRING C - The 'external' name of some existing test in TestLink, e.g. TP-12.
462
463				=item INTEGER C - The ID of some project in testlink
464
465				=item INTEGER C - The desired version of the test to add.
466
467				=item STRING C (semi-optional) - The name of the desired platform to run on for this test (if any).
468
469				=item INTEGER C (optional) - The order in which to execute this test amongst it's peers.
470
471				=item INTEGER C (optional) - The priority of the case in the plan.
472
473				=back
474
475				Returns true if case addition is successful.
476
477				$tl->addTestCaseToTestPlan(666, 'cp-90210', 121, '3.11', 'OS2/WARP', 3, 1);
478
479				=cut
480
481				#XXX this should be able to be done in batch
482				sub addTestCaseToTestPlan {
483				my ($self,$plan_id,$case_id,$project_id,$version,$platform,$order,$urgency) = @_;
484				confess("Object parameters must be called by an instance") unless ref($self);
485
486				my $input = {
487				devKey => $self->apikey,
488				testplanid => $plan_id,
489				testcaseexternalid => $case_id,
490				testprojectid => $project_id,
491				version => $version,
492				platformid => $platform,
493				executionorder => $order,
494				urgency => $urgency
495				};
496
497				my $rpc = XMLRPC::Lite->proxy($self->apiurl);
498				my $result = $rpc->call('tl.addTestCaseToTestPlan',$input);
499				warn $result->result->{'message'} if $result->result->{'code'};
500				return 1 unless $result->result->{'code'};
501				return 0;
502				}
503
504				=head2 B
505
506				Uploads the provided file and associates it with the given execution.
507
508				=over 4
509
510				=item INTEGER C - ID of a successful execution, such as the id key from the hash that is returned by reportTCResult.
511
512				=item STRING C - The name you want this file to appear as.
513
514				=item INTEGER C - The mimetype of the file uploaded, so we can tell the browser what to do with it when downloaded
515
516				=item INTEGER C - The base64 encoded content of the file you want to upload.
517
518				=item STRING C (optional) - A title for this attachment. </td> </tr> <tr> <td class="h" > <a name="519">519</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> =item INTEGER C<DESCRIPTION> (optional) - A short description of who/what/why this was attached. </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"> </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"> =back </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"> </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"> Returns true if attachment addition is successful. </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"> </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"> $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="527">527</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> =cut </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"> </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"> sub uploadExecutionAttachment { </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"> my ($self,$execution_id,$filename,$filetype,$content,$title,$description) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> </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"> my $input = { </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"> devKey => $self->apikey, </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"> executionid => $execution_id, </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"> title => $title, </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"> description => $description, </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"> filename => $filename, </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"> filetype => $filetype, </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"> content => $content </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"> }; </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"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </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 $result = $rpc->call('tl.uploadExecutionAttachment',$input); </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"> warn $result->result->{'message'} if $result->result->{'code'}; </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"> return 1 unless $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 0; </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"> } </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"> =head2 B<uploadTestCaseAttachment (case_id,filename,mimetype,content,[title,description])> </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"> </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"> Uploads the provided file and associates it with the given execution. </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"> </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"> =over 4 </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"> </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"> =item INTEGER C<CASE ID> - ID of desired test case </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"> </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"> =item STRING C<FILENAME> - The name you want this file to appear as. </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"> </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"> =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="562">562</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> =item INTEGER C<CONTENT> - The base64 encoded content of the file you want to upload. </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"> </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"> =item STRING C<TITLE> (optional) - A title for this attachment. </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"> </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"> =item INTEGER C<DESCRIPTION> (optional) - A short description of who/what/why this was attached. </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"> </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"> =back </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"> </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"> Returns true if attachment addition is successful. </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"> </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"> $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="574">574</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> =cut </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"> </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"> sub uploadTestCaseAttachment { </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"> my ($self,$case_id,$filename,$filetype,$content,$title,$description) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> </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"> my $input = { </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"> devKey => $self->apikey, </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"> testcaseid => $case_id, </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"> title => $title, </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"> description => $description, </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"> filename => $filename, </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"> filetype => $filetype, </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"> content => $content </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"> }; </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"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </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 $result = $rpc->call('tl.uploadTestCaseAttachment',$input); </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"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </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"> return 1 unless $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 0; </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"> } </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"> =head1 GETTER METHODS </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"> </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"> =head2 B<getProjects ()> </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"> </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"> Get all available projects </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"> </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"> Returns array of project definition hashes, false otherwise. </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"> </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"> $projects = $tl->getProjects; </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"> </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"> =cut </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"> </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"> sub getProjects { </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"> my $self = shift; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> </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"> my $input = { </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"> devKey => $self->apikey </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"> }; </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"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </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 $result = $rpc->call('tl.getProjects',$input); </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"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </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"> </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"> #Save state for future use, if needed </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"> if (!scalar(@{$self->{'testtree'}})) { </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"> $self->{'testtree'} = $result->result unless $result->result->[0]->{'code'}; </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"> } </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"> if (!exists($result->result->[0]->{'code'})) { </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"> #Note that it's a project for future reference by recursive tree search </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"> for my $pj (@{$result->result}) { </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"> $pj->{'type'} = 'project'; </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"> } </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"> return $result->result; </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"> } </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"> return 0; </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"> } </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"> =head2 B<getProjectByName ($project)> </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"> </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"> Gets some project definition hash by it's name </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"> </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"> =over 4 </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"> </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"> =item STRING C<PROJECT> - desired project </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"> </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"> =back </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"> </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"> Returns desired project def hash, false otherwise. </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"> </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"> $projects = $tl->getProjectByName('FunProject'); </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"> </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"> =cut </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"> </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"> sub getProjectByName { </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"> my ($self,$project) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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 "No project provided." unless $project; </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"> </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"> #See if we already have the project list... </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"> my $projects = $self->{'testtree'}; </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"> $projects = $self->getProjects() unless scalar(@$projects); </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"> </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"> #Search project list for project </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"> for my $candidate (@$projects) { </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"> return $candidate if ($candidate->{'name'} eq $project); </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"> } </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"> return 0; </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"> } </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"> =head2 B<getProjectByID ($project)> </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"> </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"> Gets some project definition hash by it's ID </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"> </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"> =over 4 </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"> </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"> =item INTEGER C<PROJECT> - desired project </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"> </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"> =back </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"> </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"> Returns desired project def hash, false otherwise. </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"> </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"> $projects = $tl->getProjectByID(222); </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"> </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"> =cut </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"> </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"> sub getProjectByID { </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"> my ($self,$project) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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 "No project provided." unless $project; </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"> </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"> #See if we already have the project list... </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"> my $projects = $self->{'testtree'}; </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"> $projects = $self->getProjects() unless scalar(@$projects); </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"> </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"> #Search project list for project </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"> for my $candidate (@$projects) { </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"> return $candidate if ($candidate->{'id'} eq $project); </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"> } </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"> return 0; </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"> } </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"> =head2 B<getTLDTestSuitesForProject (project_id,get_tests)> </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"> </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"> Gets the testsuites in the top level of a project </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"> </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"> =over 4 </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"> </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"> =item STRING C<PROJECT ID> - desired project's ID </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 BOOLEAN C<GET TESTS> - Get tests for suites returned, set them as 'tests' key in hash </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"> </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"> =back </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"> </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"> Returns desired testsuites' definition hashes, 0 on error and -1 when there is no such project. </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"> </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"> $projects = $tl->getTLDTestSuitesForProject(123); </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"> </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"> =cut </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"> </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"> sub getTLDTestSuitesForProject { </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"> my ($self,$project,$get_tests) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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 "No project ID provided." unless $project; </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"> </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"> my $input = { </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"> devKey => $self->apikey, </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"> testprojectid => $project </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"> }; </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"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </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 $result = $rpc->call('tl.getFirstLevelTestSuitesForTestProject',$input); </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"> </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"> #Error condition, return right away </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"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </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"> return [] 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"> </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"> #Handle bizarre output </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"> if ($result->result && !(reftype($result->result) eq 'HASH' \|\| reftype($result->result) eq 'ARRAY')) { </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"> return []; </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"> } </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"> return [] if !$result->result; </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"> </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"> #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="747">747</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="748">748</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="749">749</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="750">750</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="751">751</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="752">752</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> if ($get_tests) { </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"> for (my $i=0; $i < scalar(@{$result->result}); $i++) { </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"> $result->result->[$i]->{'tests'} = $self->getTestCasesForTestSuite($result->result->[$i]->{'id'},0,1); </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"> } </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"> return $result->result; </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"> } </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"> =head2 B<getTestSuitesForTestSuite (testsuite_id,get_tests)> </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"> </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"> Gets the testsuites that are children of the provided testsuite. </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"> </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"> =over 4 </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"> </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"> =item STRING C<TESTSUITE ID> - desired parent testsuite ID </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<GET TESTS> - whether to get child tests as well </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"> </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"> =back </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"> </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"> Returns desired testsuites' definition hashes, false otherwise. </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"> </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"> $suites = $tl->getTestSuitesForTestSuite(123); </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"> $suitesWithCases = $tl->getTestSuitesForTestSuite(123,1); </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"> </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"> =cut </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"> </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"> sub getTestSuitesForTestSuite { </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"> my ($self,$tsid,$get_tests) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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 "No TestSuite ID provided." unless $tsid; </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"> </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"> my $input = { </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"> devKey => $self->apikey, </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"> testsuiteid => $tsid </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"> }; </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"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </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 $result = $rpc->call('tl.getTestSuitesForTestSuite',$input); </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"> </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"> #Handle bizarre output </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"> if ($result->result && !(reftype($result->result) eq 'HASH' \|\| reftype($result->result) eq 'ARRAY')) { </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"> return []; </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"> } </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"> return [] if !$result->result; </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"> </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"> #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="800">800</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="801">801</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="802">802</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="803">803</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="804">804</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> if ($get_tests) { </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"> foreach my $row (@$res) { </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"> $row->{'tests'} = $self->getTestCasesForTestSuite($row->{'id'},0,1); </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"> } </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"> #Error condition, return false and don't bother searching arrays </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"> warn $res->{'message'} if $res->[0]->{'code'}; </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"> return [] 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 $res; </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"> } </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"> =head2 B<getTestSuitesByName (project_id,testsuite_name,do_regex)> </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"> </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"> Gets the testsuite(s) that match given name inside of given project name. </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"> 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="822">822</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> =over 4 </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"> </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"> =item STRING C<PROJECT ID> - ID of project holding this testsuite </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"> </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"> =item STRING C<TESTSUITE NAME> - desired parent testsuite name </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"> </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"> =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="830">830</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> =back </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"> </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"> Returns desired testsuites' definition hashes, false otherwise. </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"> </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"> $suites = $tl->getTestSuitesByName(321, 'hugSuite'); </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"> $suitesr = $tl->getTestSuitesByName(123, qr/^hug/, 1); </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"> </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"> =cut </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"> </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"> sub getTestSuitesByName { </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"> my ($self,$project_id,$testsuite_name,$do_regex) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> return 0 if (!$project_id \|\| !$testsuite_name); #GIGO </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"> </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"> #use caching methods here to speed up subsequent calls </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"> $self->_cacheProjectTree($project_id,1,1,0) if $self->{'invalidate_cache'}; </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"> </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"> #my $tld = $self->getTLDTestSuitesForProject($project_id); </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 $candidates = []; </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"> </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"> #Walk the whole tree. No other way to be sure. </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"> foreach my $ts (@{$self->{'flattree'}}) { </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"> if ($do_regex) { </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"> push(@$candidates,$ts) if $ts->{'name'} =~ $testsuite_name; </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"> } else { </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"> push(@$candidates,$ts) if $ts->{'name'} eq $testsuite_name; </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"> } </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"> return $candidates; </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"> </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"> =head2 B<getTestSuiteByID (testsuite_id)> </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"> </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"> Gets the testsuite with the given ID. </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"> </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"> =over 4 </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"> </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"> =item STRING C<TESTSUITE_ID> - Testsuite ID. </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"> </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"> =back </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"> </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"> Returns desired testsuite definition hash, false otherwise. </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"> </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"> $tests = $tl->getTestSuiteByID(123); </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"> </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"> =cut </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"> </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"> sub getTestSuiteByID { </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"> my ($self,$testsuite_id) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> </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"> my $input = { </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"> devKey => $self->apikey, </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"> testsuiteid => $testsuite_id </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"> }; </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"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </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 $result = $rpc->call('tl.getTestSuiteByID',$input); </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"> warn $result->result->{'message'} if $result->result->{'code'}; </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"> return $result->result unless $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 0; </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"> } </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"> =head2 B<getTestCasesForTestSuite (testsuite_id,recurse,details)> </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"> </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"> Gets the testsuites that match given name inside of given project name. </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"> </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"> =over 4 </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"> </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"> =item STRING C<TESTSUITE_ID> - Testsuite ID. </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"> </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"> =item BOOLEAN C<RECURSE> - Search testsuite tree recursively for tests below the provided testsuite </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"> </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"> =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="906">906</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> =back </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"> </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"> Returns desired case definition hashes, false otherwise. </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"> </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"> $tests = $tl->getTestCasesForTestSuite(123,1,1); </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"> </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"> =cut </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"> </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"> sub getTestCasesForTestSuite { </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"> my ($self,$testsuite_id,$deep,$details) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> </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"> $details = 'full' if $details; </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"> </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"> my $input = { </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"> devKey => $self->apikey, </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"> testsuiteid => $testsuite_id, </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"> deep => $deep, </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"> details => $details </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"> }; </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"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </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 $result = $rpc->call('tl.getTestCasesForTestSuite',$input); </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"> return [] if !$result->result; </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"> </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"> return [] if !scalar(keys(%{$result->result->[0]})); # No tests </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"> </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"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </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"> return $result->result unless $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 []; </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"> } </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"> =head2 B<getTestCaseByExternalId (case_id,version)> </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"> </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"> Gets the test case with the given external ID (e.g. projprefix-123) at provided version. </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"> </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"> =over 4 </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"> </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"> =item STRING C<CASE ID> - desired external case ID </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"> </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"> =item STRING C<VERSION> - desired test case version. Defaults to most recent version. </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"> </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"> =back </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"> </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"> Returns desired case definition hash, false otherwise. </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"> </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"> $case = $tl->getTestCaseByExternalId('eee-123'); </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"> </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"> =cut </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"> </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"> sub getTestCaseByExternalId { </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"> my ($self,$case_id,$version) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> </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"> my $input = { </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"> devKey => $self->apikey, </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"> testcaseexternalid => $case_id, </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"> version => $version </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"> }; </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"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </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 $result = $rpc->call('tl.getTestCase',$input); </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"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </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"> return $result->result->[0] unless $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 0; </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"> } </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"> =head2 B<getTestCaseById (case_id,version)> </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"> </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"> Gets the test case with the given internal ID at provided version. </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"> </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"> =over 4 </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"> </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"> =item STRING C<CASE ID> - desired internal case ID </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"> </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"> =item STRING C<VERSION> - desired test case version. Defaults to most recent version. </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"> </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"> =back </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"> </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"> Returns desired case definition hash, false otherwise. </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"> </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"> $case = $tl->getTestCaseById(28474,5); </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"> </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"> =cut </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"> </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"> sub getTestCaseById { </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"> my ($self,$case_id,$version) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> </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"> my $input = { </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"> devKey => $self->apikey, </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"> testcaseid => $case_id, </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"> version => $version </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"> }; </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"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </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 $result = $rpc->call('tl.getTestCase',$input); </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"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </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"> return $result->result->[0] unless $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 0; </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"> } </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"> =head2 B<getTestCaseByName (case_name,suite_name,project_name,tc_path_nameversion)> </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"> </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"> Gets the test case with the given internal ID at provided version. </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"> </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"> =over 4 </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"> </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"> =item STRING C<CASE NAME> - desired internal case ID </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"> </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"> =item STRING C<SUITE NAME> - parent suite's name </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"> </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"> =item STRING C<PROJECT NAME> - parent project's name </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"> </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"> =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="1022">1022</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> =item STRING C<VERSION> (optional)- desired test case version. Defaults to most recent version. </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"> </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"> =back </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"> </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"> Returns desired case definition hash, false otherwise. </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"> </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"> $case = $tl->getTestCaseByName('nugCase','gravySuite','chickenProject'); </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"> </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"> =cut </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"> </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"> sub getTestCaseByName { </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"> my ($self, $casename, $suitename, $projectname, $testcasepathname, $version) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> </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"> my $input = { </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"> devKey => $self->apikey, </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"> testcasename => $casename, </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"> testsuitename => $suitename, </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"> testprojectname => $projectname, </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"> testcasepathname => $testcasepathname </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"> }; </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"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </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 $result = $rpc->call('tl.getTestCaseIDByName',$input); </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"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </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"> return $result->result->[0] unless $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 0; </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"> } </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"> =head2 B<getTestCaseAttachments (case_ext_id)> </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"> </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"> Gets the attachments for some case. </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"> </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"> =over 4 </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"> </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"> =item STRING C<CASE ID> - desired external case ID </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"> </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"> =back </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"> </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"> Returns desired attachment definition hash, false otherwise. Content key is the file base64 encoded. </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"> </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"> $att = $tl->getTestCaseAttachments('CP-222'); </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"> </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"> =cut </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"> </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"> sub getTestCaseAttachments { </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"> my ($self, $case_ext_id) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> </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"> my $input = { </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"> devKey => $self->apikey, </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"> testcaseexternalid => $case_ext_id, </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"> }; </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"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </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 $result = $rpc->call('tl.getTestCaseAttachments',$input); </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"> return 0 if (!$result->result); </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"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </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"> return $result->result->[0] unless $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 0; </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"> } </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"> =head2 B<getTestPlansForProject (project_id)> </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"> </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"> Gets the test plans within given project id </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"> </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"> =over 4 </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"> </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"> =item STRING C<PROJECT ID> - project ID </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"> </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"> =back </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"> </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"> Returns desired test plan definition hashes, false otherwise. </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"> </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"> $plans = $tl->getTestPlansForProject(23); </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"> </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"> =cut </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"> </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"> sub getTestPlansForProject { </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"> my ($self,$project_id) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> </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"> my $input = { </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"> devKey => $self->apikey, </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"> testprojectid => $project_id </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"> }; </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"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </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 $result = $rpc->call('tl.getProjectTestPlans',$input); </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"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </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"> return $result->result unless $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 0; </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"> } </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"> =head2 B<getTestPlanByName (plan_name,project_name)> </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"> </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"> Gets the test plan within given project name </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"> </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"> =over 4 </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"> </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"> =item STRING C<PLAN NAME> - desired test plan name </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"> </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"> =item STRING C<PROJECT NAME> - project name </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"> </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"> =back </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"> </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"> Returns desired test plan definition hash, false otherwise. </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"> </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"> $suites = $tl->getTestPlanByName('nugs','gravy'); </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"> </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"> =cut </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"> </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"> # 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="1136">1136</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="1137">1137</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="1138">1138</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="1139">1139</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> my $input = { </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"> devKey => $self->apikey, </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"> testplanname => $plan_name, </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"> testprojectname => $project_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"> }; </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"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </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 $result = $rpc->call('tl.getTestPlanByName',$input); </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"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </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"> return $result->result->[0] unless $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 0; </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"> } </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"> =head2 B<getBuildsForTestPlan (plan_id)> </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"> </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"> Gets the builds for given test plan </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"> </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"> =over 4 </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"> </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"> =item STRING C<PLAN ID> - desired test plan ID </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"> </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"> =back </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"> </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"> Returns desired builds' definition hashes, false otherwise. </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"> </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"> $builds = $tl->getBuildsForTestPlan(1234); </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"> </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"> =cut </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"> </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"> sub getBuildsForTestPlan { </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"> my ($self,$plan_id) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> </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"> my $input = { </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"> devKey => $self->apikey, </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"> testplanid => $plan_id </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"> }; </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"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </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 $result = $rpc->call('tl.getBuildsForTestPlan',$input); </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"> warn $result->result->[0]->{'message'} if $result->result->[0]->{'code'}; </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"> return $result->result unless $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 0; </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"> } </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"> =head2 B<getTestCasesForTestPlan (plan_id)> </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"> </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"> Gets the cases in provided test plan </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"> </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"> =over 4 </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"> </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"> =item STRING C<PLAN ID> - desired test plan ID </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"> </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"> =back </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"> </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"> Returns desired tests' definition hashes sorted by parent test plan ID, false otherwise. </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"> </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"> Example output: </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"> { 1234 => [{case1},{case2},...], 33212 => [cases...]} </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"> </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"> Example usage: </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"> $builds = $tl->getTestCasesForTestPlan(1234); </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"> </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"> =cut </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"> </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"> sub getTestCasesForTestPlan { </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"> my ($self,$plan_id) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> </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"> my $input = { </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"> devKey => $self->apikey, </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"> testplanid => $plan_id </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"> }; </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"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </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 $result = $rpc->call('tl.getTestCasesForTestPlan',$input); </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"> warn $result->result->{'message'} if $result->result->{'code'}; </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"> return $result->result unless $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 0; </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"> } </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"> =head2 B<getLatestBuildForTestPlan (plan_id)> </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"> </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"> Gets the latest build for the provided test plan </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"> </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"> =over 4 </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"> </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"> =item STRING C<PLAN ID> - desired test plan ID </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"> </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"> =back </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"> </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"> Returns desired build definition hash, false otherwise. </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"> </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"> $build = $tl->getLatestBuildForTestPlan(1234); </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"> </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"> =cut </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"> </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"> sub getLatestBuildForTestPlan { </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"> my ($self,$plan_id) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> </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"> my $input = { </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"> devKey => $self->apikey, </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"> tplanid => $plan_id, #documented arg, but that's LIES, apparently it wants the next one </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"> testplanid => $plan_id </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"> }; </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"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </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 $result = $rpc->call('tl.getLatestBuildForTestPlan',$input); </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"> </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"> #Handle mixed return type </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"> my $res = $result->result; </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"> $res = [$res] if reftype($res) eq 'HASH'; </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"> </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"> warn $res->[0]->{'message'} if $res->[0]->{'code'}; </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"> return $res->[0] unless $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 0; </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"> } </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"> =head2 B<getBuildByName (build_name,project_id)> </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"> </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"> Gets the desired build in project id by name </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"> </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"> =over 4 </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"> </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"> =item STRING C<BUILD NAME> - desired build's name </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"> </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"> =item INTEGER C<PROJECT ID> - desired test project ID </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"> </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"> =back </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"> </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"> Returns desired build definition hash, false otherwise. </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"> </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"> $build = $tl->getBuildByName('foo',1234); </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"> </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"> =cut </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"> </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"> #TODO cache stuff, don't require proj id? </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"> sub getBuildByName { </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"> my ($self,$build_name,$project_id) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> </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"> my $plans = $self->getTestPlansForProject($project_id); </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"> for my $plan (@$plans) { </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"> my $builds = $self->getBuildsForTestPlan($plan->{'id'}); </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"> for my $build (@$builds) { </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"> return $build if $build->{'name'} eq $build_name; </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"> } </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"> return 0; </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"> } </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"> =head1 REPORTING METHODS </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"> </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"> =head2 B<getTotalsForTestPlan (plan_id)> </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"> </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"> 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="1297">1297</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> =over 4 </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"> </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"> =item INTEGER C<PLAN ID> - desired test plan </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"> </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"> =back </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"> </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"> Returns Hash describing test results. </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"> </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"> $res = $tl->getTotalsForTestPlan(2322); </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"> </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"> =cut </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"> </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"> sub getTotalsForTestPlan { </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"> my ($self,$plan_id) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> </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"> my $input = { </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"> devKey => $self->apikey, </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"> tplanid => $plan_id, #documented arg, but that's LIES, apparently it wants the next one </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"> testplanid => $plan_id </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"> }; </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"> my $rpc = XMLRPC::Lite->proxy($self->apiurl); </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 $result = $rpc->call('tl.getTotalsForTestPlan',$input); </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"> </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"> warn $result->result->{'message'} if $result->result->{'code'}; </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"> return $result->result unless $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 0; </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"> } </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"> =head1 EXPORT/IMPORT METHODS </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"> </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"> =head2 B<dump([project,get_attachments,flatten])> </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"> </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"> Return all info for all (or only the specified) projects. </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"> 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="1334">1334</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="1335">1335</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> The project hashes will be what you would expect from getProjectByName calls. </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"> Those will have a key 'testsuites' with a list of it's child testsuites. </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"> These testsuites will themselves have 'testsuites' and 'test' keys describing their children. </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"> 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="1340">1340</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> WARNING: I have observed some locking related issues with cases/suites etc. </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"> Sometimes calls to get tests/suites during dumps fails, sometimes subsequent calls to getTestSuites/getTestCasesForTestSuite fail. </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"> 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="1344">1344</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="1345">1345</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> 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="1347">1347</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> =over 4 </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"> </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"> =item INTEGER C<PROJECT NAME> (optional) - desired project </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 BOOLEAN C<GET ATTACHMENTS> (optional) - whether or not to get attachments. Default false. </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<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="1353">1353</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> =back </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"> </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"> Returns ARRAYREF describing everything. </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"> </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"> $ultradump = $tl->dump(); </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"> $dumpWithAtts = $tl->dump('TestProject',1); </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"> $flatDump = $tl->dump('testProj',0,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"> </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"> =cut </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"> </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"> sub dump { </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"> my ($self,$project,$attachment,$flat) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> </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"> my $res = $self->_cacheProjectTree($project,$flat); </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"> return [] if !$res; </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"> </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"> return $res if !$project \|\| $flat; </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"> foreach my $pj (@{$res}) { </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"> return $pj if $pj->{'name'} eq $project; </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"> } </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"> croak "COULD NOT DUMP, SOMETHING HORRIBLY WRONG"; </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"> } </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"> sub _cacheProjectTree { </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"> my ($self,$project,$flat,$use_project_id,$get_tests) = @_; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> </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"> $flat //= 0; </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"> $use_project_id //= 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"> $get_tests //= 1; </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"> </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"> #Cache Projects </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"> if (!scalar(@{$self->{'testtree'}})) { </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"> $self->getProjects(); </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"> } </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"> my @flattener = @{$self->{'testtree'}}; </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"> </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"> for my $projhash (@flattener) { </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"> if ($use_project_id) { </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"> next if $project && $project ne $projhash->{'id'} && (defined($projhash->{'type'}) && $projhash->{'type'} eq 'project'); </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"> } else { </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"> next if $project && $project ne $projhash->{'name'} && (defined($projhash->{'type'}) && $projhash->{'type'} eq 'project'); </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"> } </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"> #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="1401">1401</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="1402">1402</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="1403">1403</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="1404">1404</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="1405">1405</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </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"> $projhash->{'testsuites'} = [] if !$projhash->{'testsuites'}; </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"> for my $tshash (@{$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"> #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="1410">1410</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="1411">1411</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="1412">1412</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </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"> #Keep this for simple searches in the future. </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"> $self->{'flattree'} = clone \@flattener; </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"> my @debuglist = map {$_->{'tests'}} @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"> return $self->{'flattree'} if $flat; </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->_expandTree($project,@flattener); </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"> } </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"> sub _expandTree { </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"> my $self = shift; </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"> confess("Object parameters must be called by an instance") unless ref($self); </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"> my $project = shift; </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 @flattener = @_; </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"> #The following algorithm relies implicitly on pass-by-reference. </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"> #So we have a flat array of testsuites we want to map into parent-child relationships. </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"> my ($i,$j); </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"> foreach my $suite (@flattener) { </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"> if (defined($suite->{'type'}) && $suite->{'type'} eq 'project') { </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"> #Then skip it, since it's not a suite. </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"> shift @flattener; </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"> next; </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"> } </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"> #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="1439">1439</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="1440">1440</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="1441">1441</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="1442">1442</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> #Get the ball rolling if we have to </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"> $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="1445">1445</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> </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"> #So, let's tail recurse over the testsuites. </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"> for ($i=0; $i < scalar(@{$self->{'testtree'}->[$j]->{'testsuites'}}); $i++) { </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"> my $tailRecurseTSWalker = sub { </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 ($ts,$desired_ts) = @_; </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"> </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"> #Mark it down if we found it </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"> if ($ts->{'id'} eq $desired_ts->{'parent_id'}) { </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"> </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"> #Set the REF's 'testsuites' param, and quit searching </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"> $ts->{'testsuites'} = [] if !defined($ts->{'testsuites'}); </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"> push(@{$ts->{'testsuites'}},$desired_ts); </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"> $desired_ts->{'found'} = 1; </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"> return; </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"> } </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"> #If there's already (nonblank) hierarchy in the passed TS, then WE HAVE TO GO DEEPER </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 (defined($ts->{'testsuites'}) && scalar(@{$desired_ts->{'testsuites'}})) { </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"> for (my $i=0; $i < scalar(@{$ts->{'testsuites'}}); $i++) { </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"> _tailRecurseTSWalker($ts->{'testsuites'}->[$i],$desired_ts); </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"> } </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"> return; </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"> }; </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"> &$tailRecurseTSWalker($self->{'testtree'}->[$j]->{'testsuites'}->[$i],$suite); </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"> #OPTIMIZE: break out if we found it already </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"> last if $suite->{'found'}; </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"> } </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"> last if $suite->{'found'}; </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"> } </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"> #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="1479">1479</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="1480">1480</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="1481">1481</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="1482">1482</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="1483">1483</a> </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td > </td> <td class="s"> } </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"> return $self->{'testtree'}; </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"> } </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"> 1; </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"> </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"> __END__ </td> </tr> </table> </body> </html>