-
Notifications
You must be signed in to change notification settings - Fork 188
Expand file tree
/
Copy pathtemp.sql
More file actions
53 lines (47 loc) · 810 Bytes
/
temp.sql
File metadata and controls
53 lines (47 loc) · 810 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
CREATE OR REPLACE FUNCTION betwnStr (
string_in IN VARCHAR2,
start_in IN INTEGER,
end_in IN INTEGER
)
RETURN VARCHAR2
IS
BEGIN
raise value_Error;
RETURN (
SUBSTR (
string_in,
start_in,
end_in - start_in + 1
)
);
END;
/
CREATE OR REPLACE PACKAGE BODY ut_betwnstr
IS
PROCEDURE ut_setup
IS
BEGIN
NULL;
END;
PROCEDURE ut_teardown
IS
BEGIN
NULL;
END;
-- For each program to test...
PROCEDURE ut_BETWNSTR IS
BEGIN
utAssert.throws (
'NDF',
BETWNSTR(
STRING_IN => 'abcdefg'
,
START_IN => 3
,
END_IN => 5
),
-6502
);
END ut_BETWNSTR;
END ut_betwnstr;
/