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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
|
AUTOCOMMIT OFF;
-- MODULE DML149
-- SQL Test Suite, V6.0, Interactive SQL, dml149.sql
-- 59-byte ID
-- TEd Version #
-- AUTHORIZATION FLATER
set schema FLATER;
--O SELECT USER FROM HU.ECCO;
VALUES USER;
-- RERUN if USER value does not match preceding AUTHORIZATION comment
--O ROLLBACK WORK;
-- date_time print
-- TEST:0561 Double SET TRANSACTION!
ROLLBACK WORK;
-- PASS:0561 If successful completion?
--O SET TRANSACTION READ ONLY;
-- PASS:0561 If successful completion?
--O SET TRANSACTION READ WRITE;
-- PASS:0561 If successful completion?
--O INSERT INTO USIG VALUES (10, 20);
-- PASS:0561 If 1 row is inserted?
--O ROLLBACK WORK;
-- PASS:0561 If successful completion?
--O SET TRANSACTION READ WRITE;
-- PASS:0561 If successful completion?
--O SET TRANSACTION READ ONLY;
-- PASS:0561 If successful completion?
--O INSERT INTO USIG VALUES (10, 20);
-- PASS:0561 If ERROR, invalid transaction state, 0 rows inserted?
--O ROLLBACK WORK;
-- PASS:0561 If successful completion?
-- END TEST >>> 0561 <<< END TEST
-- *********************************************
-- TEST:0846 Feature 20, CAST functions (static) nits!
CREATE TABLE NO_DUCK (
GOOSE NUMERIC (4, 2),
ALBATROSS FLOAT,
SEAGULL INT,
OSPREY CHAR (10));
-- PASS:0846 If table is created?
COMMIT WORK;
-- NOTE:0846 CAST (100 AS NUMERIC (2)) loses the leading significant digit
SELECT CAST (100 AS NUMERIC (2))
FROM HU.ECCO;
-- PASS:0846 If ERROR, numeric value out of range, 0 rows selected?
SELECT CAST (100.5 AS DECIMAL (3))
FROM HU.ECCO;
-- PASS:0846 If 1 row selected and value is 100 or 101?
INSERT INTO NO_DUCK VALUES (
CAST (' 23.23 ' AS NUMERIC (4, 2)), 1.57E-1, -9, 'QUACK');
-- PASS:0846 If 1 row is inserted?
SELECT COUNT(*)
FROM NO_DUCK WHERE GOOSE = 23.23;
-- PASS:0846 If count = 1?
-- No cast from CHAR to FLOAT allowed
-- DELETE FROM NO_DUCK
-- WHERE ALBATROSS - CAST (' 15.5E0 ' AS FLOAT) < 3E-1;
-- PASS:0846 If 1 row is deleted?
-- Instead to keep the rest of the test in sync we will:
DELETE FROM NO_DUCK
WHERE ALBATROSS - CAST (15.5E0 AS FLOAT) < 3E-1;
SELECT COUNT(*) FROM NO_DUCK;
-- PASS:0846 If count = 0?
INSERT INTO NO_DUCK
--O SELECT 22.22, CAST (C1 AS FLOAT), 0, C1 FROM HU.ECCO;
SELECT 22.22, CAST (C1 AS FLOAT), 0, C1 FROM ECCO;
-- PASS:0846 If ERROR, invalid character value for cast, 0 rows inserted?
INSERT INTO NO_DUCK
SELECT 22.22, 2.222E1, CAST (C1 AS INT), 'QUACK!' FROM HU.ECCO;
-- PASS:0846 If ERROR, invalid character value for cast, 0 rows inserted?
SELECT CAST (CAST (3 AS DEC (5, 3)) AS CHAR (5))
FROM HU.ECCO;
-- PASS:0846 If 1 row selected and value is '3.000'?
INSERT INTO NO_DUCK VALUES (
12.00, -10.5E0, 12, 'QUACK!');
-- PASS:0846 If 1 row is inserted?
UPDATE NO_DUCK
SET OSPREY = CAST (GOOSE AS CHAR (10))
WHERE SEAGULL = CAST (GOOSE AS DEC);
-- PASS:0846 If 1 row is updated?
SELECT OSPREY
FROM NO_DUCK;
-- PASS:0846 If 1 row selected and OSPREY = '12.00 '?
SELECT OSPREY
FROM NO_DUCK
WHERE OSPREY < CAST (SEAGULL + 1 AS CHAR (10))
AND OSPREY = CAST (GOOSE * 1 AS CHAR (10));
-- PASS:0846 If 1 row selected and OSPREY = '12.00 '?
UPDATE NO_DUCK
SET OSPREY = CAST (-SEAGULL AS CHAR (10));
-- PASS:0846 If 1 row is updated?
SELECT OSPREY
FROM NO_DUCK;
-- PASS:0846 If 1 row selected and OSPREY = '-12 '?
-- NOTE:0846 Expected value -12.00 is too long for CHAR (5) cast
SELECT CAST (-GOOSE AS CHAR (5))
FROM NO_DUCK;
-- PASS:0846 If ERROR, string data, right truncation, 0 rows selected?
UPDATE NO_DUCK
SET ALBATROSS = 0.0;
-- PASS:0846 If 1 row is updated?
SELECT CAST (-ALBATROSS AS CHAR (5))
FROM NO_DUCK;
-- PASS:0846 If 1 row selected and value is '0E0 '?
SELECT CAST (0230E-1 AS CHAR (10))
FROM HU.ECCO;
-- PASS:0846 If 1 row selected and value is '2.3E1 '?
SELECT CAST (0230E+1 AS CHAR (10))
FROM HU.ECCO;
-- PASS:0846 If 1 row selected and value is '2.3E3 '?
DELETE FROM NO_DUCK;
INSERT INTO NO_DUCK VALUES (
0.00, -10.5E0, -0, 'QUACK!');
-- PASS:0846 If 1 row is inserted?
UPDATE NO_DUCK
SET OSPREY = CAST (ALBATROSS AS CHAR (10))
WHERE GOOSE = CAST (SEAGULL AS NUMERIC (2));
-- PASS:0846 If 1 row is updated?
SELECT OSPREY
FROM NO_DUCK;
-- PASS:0846 If 1 row selected and OSPREY = '-1.05E1 '?
UPDATE NO_DUCK SET ALBATROSS = -0.5;
-- PASS:0846 If 1 row is updated?
UPDATE NO_DUCK
SET OSPREY = CAST (ALBATROSS AS CHAR (10));
-- PASS:0846 If 1 row is updated?
SELECT OSPREY
FROM NO_DUCK;
-- PASS:0846 If 1 row selected and OSPREY = '-5E-1 '?
UPDATE NO_DUCK
SET OSPREY = CAST (-ALBATROSS AS CHAR (10));
-- PASS:0846 If 1 row is updated?
SELECT OSPREY
FROM NO_DUCK;
-- PASS:0846 If 1 row selected and OSPREY = '5E-1 '?
-- NOTE:0846 Expected value -5E-1 is too long for CHAR (4) cast
SELECT CAST (ALBATROSS AS CHAR (4))
FROM NO_DUCK;
-- PASS:0846 If ERROR, string data, right truncation, 0 rows selected?
SELECT CAST (NULL AS CHAR (10)), GOOSE FROM NO_DUCK
WHERE SEAGULL = 0
UNION
SELECT OSPREY, CAST (SEAGULL AS NUMERIC (4, 2)) FROM NO_DUCK
WHERE GOOSE > 10000;
-- PASS:0846 If 1 row selected and first value is NULL?
UPDATE NO_DUCK SET GOOSE =
CAST (NULL AS NUMERIC (2, 2));
-- PASS:0846 If 1 row is updated?
SELECT COUNT(*)
FROM NO_DUCK WHERE GOOSE IS NULL;
-- PASS:0846 If count = 1?
SELECT CAST (GOOSE AS INT)
FROM NO_DUCK;
-- PASS:0846 If 1 row selected and value is NULL?
ROLLBACK WORK;
--O DROP TABLE NO_DUCK CASCADE;
DROP TABLE NO_DUCK ;
COMMIT WORK;
-- END TEST >>> 0846 <<< END TEST
-- *************************************************////END-OF-MODULE
|
