[Home] [Help]
PACKAGE BODY: APPS.FND_TM_TESTER
Source
1 package body FND_TM_TESTER as
2 /* $Header: AFCPTMXB.pls 115.2 99/07/16 23:15:54 porting ship $ */
3
4 PROCEDURE EXECUTE_TEST(
5 timeout in number,
6 program in varchar2,
7 outcome out varchar2,
8 outmesg out varchar2,
9 outstat out number,
10 valstat out number,
11 errmsg1 out varchar2,
12 errmsg2 out varchar2,
13 p1 in out varchar2,
14 p2 in out varchar2,
15 p3 in out varchar2,
16 p4 in out varchar2,
17 p5 in out varchar2,
18 p6 in out varchar2,
19 p7 in out varchar2,
20 p8 in out varchar2,
21 p9 in out varchar2,
22 p10 in out varchar2,
23 p11 in out varchar2,
24 p12 in out varchar2,
25 p13 in out varchar2,
26 p14 in out varchar2,
27 p15 in out varchar2,
28 p16 in out varchar2,
29 p17 in out varchar2,
30 p18 in out varchar2,
31 p19 in out varchar2,
32 p20 in out varchar2)
33
34 as
35
36 respid number;
37 appid number;
38 userid number;
39
40 begin
41
42 SELECT -1, fr.application_id, fr.responsibility_id
43 into userid, appid, respid
44 from fnd_concurrent_queues fcq,
45 fnd_conc_processor_programs fcpp,
46 fnd_concurrent_programs fcp,
47 fnd_responsibility fr
48 where fcq.processor_application_id = fcpp.processor_application_id
49 and fcq.concurrent_processor_id = fcpp.concurrent_processor_id
50 and fcpp.concurrent_program_id = fcp.concurrent_program_id
51 and fcpp.program_application_id = fcp.application_id
52 and fcp.concurrent_program_name = 'FNDTMSUCCEED'
53 and fr.data_group_id = fcq.data_group_id
54 and fcq.manager_type = '3'
55 and rownum < 2;
56
57 FND_GLOBAL.APPS_INITIALIZE(userid,respid,appid);
58
59 outstat := FND_TRANSACTION.synchronous(timeout,outcome,outmesg,'FND', program,
60 p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20);
61 errmsg1 := fnd_message.get;
62 valstat := FND_TRANSACTION.get_values(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,
63 p11,p12,p13,p14,p15,p16,p17,p18,p19,p20);
64 errmsg2 := fnd_message.get;
65 end;
66
67
68 function run_succeed return varchar2 as
69
70 outcome varchar2(250);
71 outmesg varchar2(250);
72 outstat number;
73 valstat number;
74 errmsg1 varchar2(250);
75 errmsg2 varchar2(250);
76 p1 varchar2(250);
77 p2 varchar2(250);
78 p3 varchar2(250);
79 p4 varchar2(250);
80 p5 varchar2(250);
81 p6 varchar2(250);
82 p7 varchar2(250);
83 p8 varchar2(250);
84 p9 varchar2(250);
85 p10 varchar2(250);
86 p11 varchar2(250);
87 p12 varchar2(250);
88 p13 varchar2(250);
89 p14 varchar2(250);
90 p15 varchar2(250);
91 p16 varchar2(250);
92 p17 varchar2(250);
93 p18 varchar2(250);
94 p19 varchar2(250);
95 p20 varchar2(250);
96
97 begin
98 p1 := chr(0);
99
100 EXECUTE_TEST(30, 'FNDTMSUCCEED', outcome, outmesg,
101 outstat, valstat, errmsg1, errmsg2,
102 p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20);
103
104 if ((outcome = 'SUCCESS') AND (outmesg = 'SUCCESS') AND
105 (outstat = 0) AND (valstat = 0) AND (errmsg1 is null)
106 AND (errmsg2 is null)) then
107 return ('FNDTMSUCCEED ran correctly.');
108 else
109 Return('FNDTMSUCCEED failed: Outcome = ''' || outcome ||
110 ''', Outmesg = ''' || outmesg ||
111 ''', Outstat = ''' || to_char(outstat) ||
112 ''', Valstat = ''' || to_char(valstat) ||
113 ''', Errmsg1 = ''' || errmsg1 ||
114 ''', Errmsg2 = ''' || errmsg2 || '''.');
115 end if;
116
117 end;
118
119
120 function run_prenv(lognam in varchar2) return varchar2 as
121
122 outcome varchar2(250);
123 outmesg varchar2(250);
124 outstat number;
125 valstat number;
126 errmsg1 varchar2(250);
127 errmsg2 varchar2(250);
128 p1 varchar2(250);
129 p2 varchar2(250);
130 p3 varchar2(250);
131 p4 varchar2(250);
132 p5 varchar2(250);
133 p6 varchar2(250);
134 p7 varchar2(250);
135 p8 varchar2(250);
136 p9 varchar2(250);
137 p10 varchar2(250);
138 p11 varchar2(250);
139 p12 varchar2(250);
140 p13 varchar2(250);
141 p14 varchar2(250);
142 p15 varchar2(250);
143 p16 varchar2(250);
144 p17 varchar2(250);
145 p18 varchar2(250);
146 p19 varchar2(250);
147 p20 varchar2(250);
148
149 begin
150 p1 := lognam;
151 p2 := chr(0);
152
153 EXECUTE_TEST(30, 'FNDTMPRENV', outcome, outmesg,
154 outstat, valstat, errmsg1, errmsg2,
155 p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20);
156
157 if ((outcome = 'SUCCESS') AND (outmesg = 'SUCCESS') AND
158 (outstat = 0) AND (valstat = 0) AND (errmsg1 is null)
159 AND (errmsg2 is null)) then
160 return ('FNDTMPRENV ran correctly: ''' || lognam || ''' => '''
161 || p1 || '''.');
162 else
163 Return('FNDTMPRENV failed: Outcome = ''' || outcome ||
164 ''', Logname = ''' || lognam ||
165 ''', Value = ''' || p1 ||
166 ''', Outmesg = ''' || outmesg ||
167 ''', Outstat = ''' || to_char(outstat) ||
168 ''', Valstat = ''' || to_char(valstat) ||
169 ''', Errmsg1 = ''' || errmsg1 ||
170 ''', Errmsg2 = ''' || errmsg2 || '''.');
171 end if;
172
173 end;
174
175
176 function run_clock return varchar2 as
177
178 outcome varchar2(250);
179 outmesg varchar2(250);
180 outstat number;
181 valstat number;
182 errmsg1 varchar2(250);
183 errmsg2 varchar2(250);
184 p1 varchar2(250);
185 p2 varchar2(250);
186 p3 varchar2(250);
187 p4 varchar2(250);
188 p5 varchar2(250);
189 p6 varchar2(250);
190 p7 varchar2(250);
191 p8 varchar2(250);
192 p9 varchar2(250);
193 p10 varchar2(250);
194 p11 varchar2(250);
195 p12 varchar2(250);
196 p13 varchar2(250);
197 p14 varchar2(250);
198 p15 varchar2(250);
199 p16 varchar2(250);
200 p17 varchar2(250);
201 p18 varchar2(250);
202 p19 varchar2(250);
203 p20 varchar2(250);
204
205 begin
206 p1 := chr(0);
207
208 EXECUTE_TEST(30, 'FNDTMCLOCK', outcome, outmesg,
209 outstat, valstat, errmsg1, errmsg2,
210 p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20);
211
212 if ((outcome = 'SUCCESS') AND (outmesg = 'SUCCESS') AND
213 (outstat = 0) AND (valstat = 0) AND (errmsg1 is null)
214 AND (errmsg2 is null)) then
215 return ('FNDTMCLOCK ran correctly: OS Time = ''' || p2 ||
216 ''', DB Time = ''' || p1 || '''.');
217 else
218 Return('FNDTMCLOCK failed: Outcome = ''' || outcome ||
219 ''', OS Time = ''' || p2 ||
220 ''', DB Time = ''' || p1 ||
221 ''', Outmesg = ''' || outmesg ||
222 ''', Outstat = ''' || to_char(outstat) ||
223 ''', Valstat = ''' || to_char(valstat) ||
224 ''', Errmsg1 = ''' || errmsg1 ||
225 ''', Errmsg2 = ''' || errmsg2 || '''.');
226 end if;
227
228 end;
229
230 function run_flip return varchar2 as
231
232 outcome varchar2(250);
233 outmesg varchar2(250);
234 outstat number;
235 valstat number;
236 errmsg1 varchar2(250);
237 errmsg2 varchar2(250);
238 p1 varchar2(250) := 'A';
239 p2 varchar2(250) := 'B';
240 p3 varchar2(250) := 'C';
241 p4 varchar2(250) := 'D';
242 p5 varchar2(250) := 'E';
243 p6 varchar2(250) := 'F';
244 p7 varchar2(250) := 'G';
245 p8 varchar2(250) := 'H';
246 p9 varchar2(250) := 'I';
247 p10 varchar2(250) := 'J';
248 p11 varchar2(250) := 'K';
249 p12 varchar2(250) := 'L';
250 p13 varchar2(250) := 'M';
251 p14 varchar2(250) := 'N';
252 p15 varchar2(250) := 'O';
253 p16 varchar2(250) := 'P';
254 p17 varchar2(250) := 'Q';
255 p18 varchar2(250) := 'R';
256 p19 varchar2(250) := 'S';
257 p20 varchar2(250) := 'T';
258
259 begin
260
261 EXECUTE_TEST(30, 'FNDTMFLIP', outcome, outmesg,
262 outstat, valstat, errmsg1, errmsg2,
263 p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20);
264
265 if ((outcome = 'SUCCESS') AND (outmesg = 'SUCCESS') AND
266 (outstat = 0) AND (valstat = 0) AND (errmsg1 is null)
267 AND (errmsg2 is null))
268 AND (p20 = 'A') AND (p19 = 'B') AND (p18 = 'C') AND (p17 = 'D')
269 AND (p16 = 'E') AND (p15 = 'F') AND (p14 = 'G') AND (p13 = 'H')
270 AND (p12 = 'I') AND (p11 = 'J') AND (p10 = 'K') AND (p9 = 'L')
271 AND (p8 = 'M') AND (p7 = 'N') AND (p6 = 'O') AND (p5 = 'P')
272 AND (p4 = 'Q') AND (p3 = 'R') AND (p2 = 'S') AND (p1 = 'T') then
273 return ('FNDTMFLIP ran correctly.' );
274 else
275 Return('FNDTMFLIP failed: Outcome = ''' || outcome ||
276 ''', P1 = ''' || p1 || ''', P2 = ''' || p2 ||
277 ''', P3 = ''' || p3 || ''', P4 = ''' || p4 ||
278 ''', P5 = ''' || p5 || ''', P6 = ''' || p6 ||
279 ''', P7 = ''' || p7 || ''', P8 = ''' || p8 ||
280 ''', P9 = ''' || p9 || ''', P10 = ''' || p10 ||
281 ''', P11 = ''' || p11 || ''', P12 = ''' || p12 ||
282 ''', P13 = ''' || p13 || ''', P14 = ''' || p14 ||
283 ''', P15 = ''' || p15 || ''', P16 = ''' || p16 ||
284 ''', P17 = ''' || p17 || ''', P18 = ''' || p18 ||
285 ''', P19 = ''' || p19 || ''', P20 = ''' || p20 ||
286 ''', Outmesg = ''' || outmesg ||
287 ''', Outstat = ''' || to_char(outstat) ||
288 ''', Valstat = ''' || to_char(valstat) ||
289 ''', Errmsg1 = ''' || errmsg1 ||
290 ''', Errmsg2 = ''' || errmsg2 || '''.');
291 end if;
292
293 end;
294
295
296 function run_short_sleep return varchar2 as
297
298 outcome varchar2(250);
299 outmesg varchar2(250);
300 outstat number;
301 valstat number;
302 errmsg1 varchar2(250);
303 errmsg2 varchar2(250);
304 p1 varchar2(250);
305 p2 varchar2(250);
306 p3 varchar2(250);
307 p4 varchar2(250);
308 p5 varchar2(250);
309 p6 varchar2(250);
310 p7 varchar2(250);
311 p8 varchar2(250);
312 p9 varchar2(250);
313 p10 varchar2(250);
314 p11 varchar2(250);
315 p12 varchar2(250);
316 p13 varchar2(250);
317 p14 varchar2(250);
318 p15 varchar2(250);
319 p16 varchar2(250);
320 p17 varchar2(250);
321 p18 varchar2(250);
322 p19 varchar2(250);
323 p20 varchar2(250);
324
325 begin
326 p2 := chr(0);
327 p1 := '5';
328
329 EXECUTE_TEST(30, 'FNDTMSLEEP', outcome, outmesg,
330 outstat, valstat, errmsg1, errmsg2,
331 p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20);
332
333 if ((outcome = 'SUCCESS') AND (outmesg = 'SUCCESS') AND
334 (outstat = 0) AND (valstat = 0) AND (errmsg1 is null)
335 AND (errmsg2 is null)) then
336 return ('FNDTMSLEEP (short) ran correctly.');
337 else
338 Return('FNDTMSSLEEP (short) failed: Outcome = ''' || outcome ||
339 ''', Outmesg = ''' || outmesg ||
340 ''', Outstat = ''' || to_char(outstat) ||
341 ''', Valstat = ''' || to_char(valstat) ||
342 ''', Errmsg1 = ''' || errmsg1 ||
343 ''', Errmsg2 = ''' || errmsg2 || '''.');
344 end if;
345
346 end;
347
348
349 function run_long_sleep return varchar2 as
350
351 outcome varchar2(250);
352 outmesg varchar2(250);
353 outstat number;
354 valstat number;
355 errmsg1 varchar2(250);
356 errmsg2 varchar2(250);
357 p1 varchar2(250);
358 p2 varchar2(250);
359 p3 varchar2(250);
360 p4 varchar2(250);
361 p5 varchar2(250);
362 p6 varchar2(250);
363 p7 varchar2(250);
364 p8 varchar2(250);
365 p9 varchar2(250);
366 p10 varchar2(250);
367 p11 varchar2(250);
368 p12 varchar2(250);
369 p13 varchar2(250);
370 p14 varchar2(250);
371 p15 varchar2(250);
372 p16 varchar2(250);
373 p17 varchar2(250);
374 p18 varchar2(250);
375 p19 varchar2(250);
376 p20 varchar2(250);
377
378 begin
379 p2 := chr(0);
380 p1 := '11';
381
382 EXECUTE_TEST(10, 'FNDTMSLEEP', outcome, outmesg,
383 outstat, valstat, errmsg1, errmsg2,
384 p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20);
385
386 if (outstat = 1) then
387 return ('FNDTMSLEEP (long) ran correctly.');
388 else
389 Return('FNDTMSLEEP (long) failed: Outcome = ''' || outcome ||
390 ''', Outmesg = ''' || outmesg ||
391 ''', Outstat = ''' || to_char(outstat) ||
392 ''', Valstat = ''' || to_char(valstat) ||
393 ''', Errmsg1 = ''' || errmsg1 ||
394 ''', Errmsg2 = ''' || errmsg2 || '''.');
395 end if;
396
397 end;
398
399
400 function run_fail return varchar2 as
401
402 outcome varchar2(250);
403 outmesg varchar2(250);
404 outstat number;
405 valstat number;
406 errmsg1 varchar2(250);
407 errmsg2 varchar2(250);
408 p1 varchar2(250);
409 p2 varchar2(250);
410 p3 varchar2(250);
411 p4 varchar2(250);
412 p5 varchar2(250);
413 p6 varchar2(250);
414 p7 varchar2(250);
415 p8 varchar2(250);
416 p9 varchar2(250);
417 p10 varchar2(250);
418 p11 varchar2(250);
419 p12 varchar2(250);
420 p13 varchar2(250);
421 p14 varchar2(250);
422 p15 varchar2(250);
423 p16 varchar2(250);
424 p17 varchar2(250);
425 p18 varchar2(250);
426 p19 varchar2(250);
427 p20 varchar2(250);
428
429 begin
430 p1 := chr(0);
431
432 EXECUTE_TEST(30, 'FNDTMFAIL', outcome, outmesg,
433 outstat, valstat, errmsg1, errmsg2,
434 p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20);
435
436 if ((outcome = 'ERROR') AND (outmesg = 'FAILURE') AND
437 (outstat = 0) AND (valstat = 0) AND (errmsg1 is null)
438 AND (errmsg2 is null)) then
439 return ('FNDTMFAIL ran correctly.');
440 else
441 Return('FNDTMFAIL failed: Outcome = ''' || outcome ||
442 ''', Outmesg = ''' || outmesg ||
443 ''', Outstat = ''' || to_char(outstat) ||
444 ''', Valstat = ''' || to_char(valstat) ||
445 ''', Errmsg1 = ''' || errmsg1 ||
446 ''', Errmsg2 = ''' || errmsg2 || '''.');
447 end if;
448
449 end;
450
451
452 function run_crash return varchar2 as
453
454 outcome varchar2(250);
455 outmesg varchar2(250);
456 outstat number;
457 valstat number;
458 errmsg1 varchar2(250);
459 errmsg2 varchar2(250);
460 p1 varchar2(250);
461 p2 varchar2(250);
462 p3 varchar2(250);
463 p4 varchar2(250);
464 p5 varchar2(250);
465 p6 varchar2(250);
466 p7 varchar2(250);
467 p8 varchar2(250);
468 p9 varchar2(250);
469 p10 varchar2(250);
470 p11 varchar2(250);
471 p12 varchar2(250);
472 p13 varchar2(250);
473 p14 varchar2(250);
474 p15 varchar2(250);
475 p16 varchar2(250);
476 p17 varchar2(250);
477 p18 varchar2(250);
478 p19 varchar2(250);
479 p20 varchar2(250);
480
481 begin
482 p1 := chr(0);
483
484 EXECUTE_TEST(30, 'FNDTMCRASH', outcome, outmesg,
485 outstat, valstat, errmsg1, errmsg2,
486 p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16,p17,p18,p19,p20);
487
488 if (outstat = 1) then
489 return ('FNDTMCRASH ran correctly.');
490 else
491 Return('FNDTMFAIL failed: Outcome = ''' || outcome ||
492 ''', Outmesg = ''' || outmesg ||
493 ''', Outstat = ''' || to_char(outstat) ||
494 ''', Valstat = ''' || to_char(valstat) ||
495 ''', Errmsg1 = ''' || errmsg1 ||
496 ''', Errmsg2 = ''' || errmsg2 || '''.');
497 end if;
498
499 end;
500
501 function run_suite return varchar2 is
502
503 Total_msg varchar2(4000);
504 Prog_msg varchar2(4000);
505
506 begin
507 Total_msg := null;
508
509 Prog_msg := run_succeed;
510 if (INSTR(Prog_msg,'correctly') = 0) then
511 Total_msg := Total_msg || Prog_msg || ' ';
512 end if;
513
514 Prog_msg := run_fail;
515 if (INSTR(Prog_msg,'correctly') = 0) then
516 Total_msg := Total_msg || Prog_msg || ' ';
517 end if;
518
519 Prog_msg := run_flip;
520 if (INSTR(Prog_msg,'correctly') = 0) then
521 Total_msg := Total_msg || Prog_msg || ' ';
522 end if;
523
524 Prog_msg := run_clock;
525 if (INSTR(Prog_msg,'correctly') = 0) then
526 Total_msg := Total_msg || Prog_msg || ' ';
527 end if;
528
529 Prog_msg := run_prenv('APPLOUT');
530 if (INSTR(Prog_msg,'correctly') = 0) then
531 Total_msg := Total_msg || Prog_msg || ' ';
532 end if;
533
534 Prog_msg := run_short_sleep;
535 if (INSTR(Prog_msg,'correctly') = 0) then
536 Total_msg := Total_msg || Prog_msg || ' ';
537 end if;
538
539 Prog_msg := run_long_sleep;
540 if (INSTR(Prog_msg,'correctly') = 0) then
541 Total_msg := Total_msg || Prog_msg || ' ';
542 end if;
543
544 if (Total_msg is null) then return('FNDTMTST Suite ran correctly.');
545 else return(Total_msg);
546 end if;
547
548 end;
549
550 end;