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
|
AUTOCOMMIT OFF;
-- MODULE DML034
-- SQL Test Suite, V6.0, Interactive SQL, dml034.sql
-- 59-byte ID
-- TEd Version #
-- AUTHORIZATION HU
set schema HU;
--O SELECT USER FROM HU.ECCO;
VALUES USER;
-- RERUN if USER value does not match preceding AUTHORIZATION comment
-- date_time print
-- TEST:0088 Data type REAL!
-- setup
INSERT INTO GG
VALUES(123.4567E-2);
-- PASS:0088 If 1 row is inserted?
SELECT REALTEST
FROM GG;
-- PASS:0088 If REALTEST = 1.234567 ?
-- PASS:0088 OR is between 1.234562 and 1.234572 ?
SELECT *
FROM GG
WHERE REALTEST > 1.234561 and REALTEST < 1.234573;
-- PASS:0088 If 1 row selected?
-- restore
ROLLBACK WORK;
-- END TEST >>> 0088 <<< END TEST
-- ****************************************************************
-- TEST:0090 Data type DOUBLE PRECISION!
-- setup
INSERT INTO II
VALUES(0.123456123456E6);
-- PASS:0090 If 1 row is inserted?
SELECT DOUBLETEST
FROM II;
-- PASS:0090 If DOUBLETEST = 123456.123456 ?
-- PASS:0090 OR is between 123456.123451 and 123456.123461 ?
SELECT *
FROM II
WHERE DOUBLETEST > 123456.123450 and DOUBLETEST < 123456.123462;
-- PASS:0090 If 1 row selected?
-- restore
ROLLBACK WORK;
-- END TEST >>> 0090 <<< END TEST
-- ***********************************************************
-- TEST:0091 Data type FLOAT!
-- setup
INSERT INTO JJ
VALUES(12.345678);
-- PASS:0091 If 1 row is inserted?
SELECT FLOATTEST
FROM JJ;
-- PASS:0091 If FLOATTEST = 12.345678 ?
-- PASS:0091 OR is between 12.345673 and 12.345683 ?
SELECT *
FROM JJ
WHERE FLOATTEST > 12.345672 and FLOATTEST < 12.345684;
-- PASS:0091 If 1 row selected?
-- restore
ROLLBACK WORK;
-- END TEST >>> 0091 <<< END TEST
-- **********************************************************
-- TEST:0092 Data type FLOAT(32)!
-- setup
INSERT INTO KK
VALUES(123.456123456E+3);
-- PASS:0092 If 1 row is inserted?
SELECT FLOATTEST
FROM KK;
-- PASS:0092 If FLOATTEST = 123456.123456 ?
-- PASS:0092 OR is between 123456.1233 and 123456.1236 ?
SELECT *
FROM KK
WHERE FLOATTEST > 123456.123450 and FLOATTEST < 123456.123462;
-- PASS:0092 If 1 row selected?
-- restore
ROLLBACK WORK;
-- END TEST >>> 0092 <<< END TEST
-- *************************************************************
-- TEST:0093 Data type NUMERIC(13,6)!
-- setup
INSERT INTO LL
VALUES(123456.123456);
-- PASS:0093 If 1 row is inserted?
SELECT *
FROM LL;
-- PASS:0093 If NUMTEST = 123456.123456 ?
-- PASS:0093 OR is between 123456.123451 and 123456.123461 ?
SELECT *
FROM LL
WHERE NUMTEST > 123456.123450 and NUMTEST < 123456.123462;
-- PASS:0093 If 1 row selected?
-- restore
ROLLBACK WORK;
-- END TEST >>> 0093 <<< END TEST
-- *************************************************************
-- TEST:0094 Data type DECIMAL(13,6)!
-- setup
INSERT INTO PP
VALUES(123456.123456);
-- PASS:0094 If 1 row is inserted?
SELECT *
FROM PP;
-- PASS:0094 If NUMTEST = 123456.123456 ?
-- PASS:0094 OR is between 123456.123451 and 123456.123461 ?
-- restore
ROLLBACK WORK;
-- END TEST >>> 0094 <<< END TEST
-- **************************************************************
-- TEST:0095 Data type DEC(13,6)!
-- setup
INSERT INTO SS
VALUES(123456.123456);
-- PASS:0095 If 1 row is inserted?
SELECT *
FROM SS;
-- PASS:0095 If NUMTEST = 123456.123456 ?
-- PASS:0095 OR is between 123456.123451 and 123456.123461 ?
-- restore
ROLLBACK WORK;
-- END TEST >>> 0095 <<< END TEST
-- *************************************************////END-OF-MODULE
|
