| 221 |
vnguyen |
1 |
CREATE PROCEDURE "RELEASE_MANAGER"."NEW_UNIT_TEST" ( nPv_id IN NUMBER,
|
|
|
2 |
nTestTypeId IN UNIT_TESTS.TEST_TYPES_FK%TYPE,
|
|
|
3 |
sTest_summary IN UNIT_TESTS.TEST_SUMMARY%TYPE,
|
|
|
4 |
sNumOfTest IN UNIT_TESTS.NUMOF_TEST%TYPE,
|
|
|
5 |
sDpkg_path IN VARCHAR2,
|
|
|
6 |
sResults IN VARCHAR2,
|
|
|
7 |
sCompletion_date IN VARCHAR2,
|
|
|
8 |
nCompleted_by IN NUMBER,
|
|
|
9 |
enumTEST_TYPE_AUTOMATIC IN NUMBER,
|
|
|
10 |
enumTEST_TYPE_NOT_DONE IN NUMBER,
|
|
|
11 |
outFileName OUT VARCHAR2
|
|
|
12 |
) IS
|
|
|
13 |
/* ---------------------------------------------------------------------------
|
|
|
14 |
Version: 3.2.0
|
|
|
15 |
--------------------------------------------------------------------------- */
|
|
|
16 |
|
|
|
17 |
FILENAME_PREFIX CONSTANT VARCHAR2(50) := 'RM_UNIT_TEST';
|
|
|
18 |
|
|
|
19 |
newID NUMBER;
|
|
|
20 |
ResultsURL UNIT_TESTS.RESULTS_URL%TYPE DEFAULT NULL;
|
|
|
21 |
ResultsAttachment UNIT_TESTS.RESULTS_ATTACHMENT_NAME%TYPE DEFAULT NULL;
|
|
|
22 |
|
|
|
23 |
BEGIN
|
|
|
24 |
|
|
|
25 |
-- Get new ID --
|
|
|
26 |
SELECT SEQ_UNIT_TESTS.NEXTVAL INTO newID FROM DUAL;
|
|
|
27 |
|
|
|
28 |
IF nTestTypeId = enumTEST_TYPE_AUTOMATIC THEN
|
|
|
29 |
ResultsURL := sResults;
|
|
|
30 |
ELSE
|
|
|
31 |
IF (sResults <> '') OR ( NOT sResults IS NULL ) THEN
|
|
|
32 |
outFileName := FILENAME_PREFIX || newID ||'_'|| sResults;
|
|
|
33 |
ResultsAttachment := sDpkg_path || '/' || outFileName;
|
|
|
34 |
END IF;
|
|
|
35 |
END IF;
|
|
|
36 |
|
|
|
37 |
-- Remove NOT_DONE entry if exists
|
|
|
38 |
DELETE FROM UNIT_TESTS
|
|
|
39 |
WHERE pv_id = nPv_id
|
|
|
40 |
AND test_types_fk = enumTEST_TYPE_NOT_DONE;
|
|
|
41 |
|
|
|
42 |
--- Add Additional Note ---
|
|
|
43 |
INSERT INTO UNIT_TESTS ( TEST_ID,
|
|
|
44 |
PV_ID,
|
|
|
45 |
TEST_TYPES_FK,
|
|
|
46 |
TEST_SUMMARY,
|
|
|
47 |
COMPLETION_DATE,
|
|
|
48 |
COMPLETED_BY,
|
|
|
49 |
RESULTS_URL,
|
|
|
50 |
RESULTS_ATTACHMENT_NAME,
|
|
|
51 |
NUMOF_TEST )
|
|
|
52 |
VALUES (
|
|
|
53 |
newID,
|
|
|
54 |
nPv_id,
|
|
|
55 |
nTestTypeId,
|
|
|
56 |
sTest_summary,
|
|
|
57 |
TO_DATE( sCompletion_date,'DD/MM/YYYY' ),
|
|
|
58 |
nCompleted_by,
|
|
|
59 |
ResultsURL,
|
|
|
60 |
ResultsAttachment,
|
|
|
61 |
sNumOfTest );
|
|
|
62 |
|
|
|
63 |
END New_Unit_Test;
|
|
|
64 |
/
|