forked from tSQLt-org/tSQLt
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathtSQLt_test_ResultSetFilter.class.sql
More file actions
335 lines (287 loc) · 13.9 KB
/
Copy pathtSQLt_test_ResultSetFilter.class.sql
File metadata and controls
335 lines (287 loc) · 13.9 KB
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
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
EXEC tSQLt.NewTestClass 'tSQLt_test_ResultSetFilter';
GO
CREATE PROC tSQLt_test_ResultSetFilter.[test ResultSetFilter returns specified result set]
AS
BEGIN
CREATE TABLE #Actual (val INT);
INSERT INTO #Actual (val)
EXEC tSQLt.ResultSetFilter 3, 'SELECT 1 AS val; SELECT 2 AS val; SELECT 3 AS val UNION ALL SELECT 4 UNION ALL SELECT 5;';
CREATE TABLE #Expected (val INT);
INSERT INTO #Expected
SELECT 3 AS val UNION ALL SELECT 4 UNION ALL SELECT 5;
EXEC tSQLt.AssertEqualsTable '#Actual', '#Expected';
END;
GO
CREATE PROC tSQLt_test_ResultSetFilter.[test ResultSetFilter returns specified result set with multiple columns]
AS
BEGIN
CREATE TABLE #Actual (val1 INT, val2 VARCHAR(3));
INSERT INTO #Actual (val1, val2)
EXEC tSQLt.ResultSetFilter 2, 'SELECT 1 AS val; SELECT 3 AS val1, ''ABC'' AS val2 UNION ALL SELECT 4, ''DEF'' UNION ALL SELECT 5, ''GHI''; SELECT 2 AS val;';
CREATE TABLE #Expected (val1 INT, val2 VARCHAR(3));
INSERT INTO #Expected
SELECT 3 AS val1, 'ABC' AS val2 UNION ALL SELECT 4, 'DEF' UNION ALL SELECT 5, 'GHI';
EXEC tSQLt.AssertEqualsTable '#Actual', '#Expected';
END;
GO
CREATE PROC tSQLt_test_ResultSetFilter.[test ResultSetFilter throws error if specified result set is 1 greater than number of result sets returned]
AS
BEGIN
DECLARE @err NVARCHAR(MAX); SET @err = '--NO Error Thrown!--';
BEGIN TRY
EXEC tSQLt.ResultSetFilter 4, 'SELECT 1 AS val; SELECT 2 AS val; SELECT 3 AS val;';
END TRY
BEGIN CATCH
SET @err = ERROR_MESSAGE();
END CATCH
IF @err NOT LIKE '%Execution returned only 3 ResultSets. ResultSet [[]4] does not exist.%'
BEGIN
EXEC tSQLt.Fail 'Unexpected error message was: ', @err;
END;
END;
GO
CREATE PROC tSQLt_test_ResultSetFilter.[test ResultSetFilter throws error if specified result set is more than 1 greater than number of result sets returned]
AS
BEGIN
DECLARE @err NVARCHAR(MAX); SET @err = '--NO Error Thrown!--';
BEGIN TRY
EXEC tSQLt.ResultSetFilter 9, 'SELECT 1 AS val; SELECT 2 AS val; SELECT 3 AS val; SELECT 4 AS val; SELECT 5 AS val;';
END TRY
BEGIN CATCH
SET @err = ERROR_MESSAGE();
END CATCH
IF @err NOT LIKE '%Execution returned only 5 ResultSets. ResultSet [[]9] does not exist.%'
BEGIN
EXEC tSQLt.Fail 'Unexpected error message was: ', @err;
END;
END;
GO
CREATE PROC tSQLt_test_ResultSetFilter.[test ResultSetFilter retrieves no records and throws no error if 0 is specified]
AS
BEGIN
CREATE TABLE #Actual (val INT);
INSERT INTO #Actual
EXEC tSQLt.ResultSetFilter 0, 'SELECT 1 AS val; SELECT 2 AS val; SELECT 3 AS val;';
CREATE TABLE #Expected (val INT);
EXEC tSQLt.AssertEqualsTable '#Actual', '#Expected';
END;
GO
CREATE PROC tSQLt_test_ResultSetFilter.[test ResultSetFilter retrieves no result set if 0 is specified]
AS
BEGIN
DECLARE @err NVARCHAR(MAX); SET @err = '--NO Error Thrown!--';
BEGIN TRY
EXEC tSQLt.ResultSetFilter 1,'EXEC tSQLt.ResultSetFilter 0, ''SELECT 1 AS val; SELECT 2 AS val; SELECT 3 AS val;'';';
END TRY
BEGIN CATCH
SET @err = ERROR_MESSAGE();
END CATCH
IF @err NOT LIKE '%Execution returned only 0 ResultSets. ResultSet [[]1] does not exist.%'
BEGIN
EXEC tSQLt.Fail 'Unexpected error message was: ', @err;
END;
END;
GO
CREATE PROC tSQLt_test_ResultSetFilter.[test ResultSetFilter handles code not returning a result set]
AS
BEGIN
DECLARE @err NVARCHAR(MAX); SET @err = '--NO Error Thrown!--';
BEGIN TRY
EXEC tSQLt.ResultSetFilter 1,'DECLARE @NoOp INT;';
END TRY
BEGIN CATCH
SET @err = ERROR_MESSAGE();
END CATCH
IF @err NOT LIKE '%Execution returned only 0 ResultSets. ResultSet [[]1] does not exist.%'
BEGIN
EXEC tSQLt.Fail 'Unexpected error message was: ', @err;
END;
END;
GO
CREATE PROC tSQLt_test_ResultSetFilter.[test ResultSetFilter throws no error if code is not returning a result set and 0 is passed in]
AS
BEGIN
EXEC tSQLt.ResultSetFilter 0,'DECLARE @NoOp INT;';
END;
GO
CREATE PROC tSQLt_test_ResultSetFilter.[test ResultSetFilter throws error if result set number NULL specified]
AS
BEGIN
DECLARE @err NVARCHAR(MAX); SET @err = '--NO Error Thrown!--';
BEGIN TRY
EXEC tSQLt.ResultSetFilter NULL, 'SELECT 1 AS val; SELECT 2 AS val; SELECT 3 AS val;';
END TRY
BEGIN CATCH
SET @err = ERROR_MESSAGE();
END CATCH
IF @err NOT LIKE '%ResultSet index begins at 1. ResultSet index [[]Null] is invalid.%'
BEGIN
EXEC tSQLt.Fail 'Unexpected error message was: ', @err;
END;
END;
GO
CREATE PROC tSQLt_test_ResultSetFilter.[test ResultSetFilter throws error if result set number of less than 0 specified]
AS
BEGIN
DECLARE @err NVARCHAR(MAX); SET @err = '';
BEGIN TRY
EXEC tSQLt.ResultSetFilter -1, 'SELECT 1 AS val; SELECT 2 AS val; SELECT 3 AS val;';
END TRY
BEGIN CATCH
SET @err = ERROR_MESSAGE();
END CATCH
IF @err NOT LIKE '%ResultSet index begins at 1. ResultSet index %-1% is invalid.%'
BEGIN
EXEC tSQLt.Fail 'Unexpected error message was: ', @err;
END;
END;
GO
CREATE PROC tSQLt_test_ResultSetFilter.[test ResultSetFilter can handle each datatype]
AS
BEGIN
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''76456376'' AS BIGINT) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''76456376'''' AS BIGINT) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''0x432643'' AS BINARY(15)) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''0x432643'''' AS BINARY(15)) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''1'' AS BIT) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''1'''' AS BIT) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''ABCDEF'' AS CHAR(15)) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''ABCDEF'''' AS CHAR(15)) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''12/27/2010 11:54:12.003'' AS DATETIME) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''12/27/2010 11:54:12.003'''' AS DATETIME) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''234.567'' AS DECIMAL(7,4)) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''234.567'''' AS DECIMAL(7,4)) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''12345.6789'' AS FLOAT) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''12345.6789'''' AS FLOAT) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''XYZ'' AS IMAGE) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''XYZ'''' AS IMAGE) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''13'' AS INT) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''13'''' AS INT) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''12.95'' AS MONEY) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''12.95'''' AS MONEY) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''ABCDEF'' AS NCHAR(15)) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''ABCDEF'''' AS NCHAR(15)) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''ABCDEF'' AS NTEXT) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''ABCDEF'''' AS NTEXT) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''345.67'' AS NUMERIC(7,4)) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''345.67'''' AS NUMERIC(7,4)) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''ABCDEF'' AS NVARCHAR(15)) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''ABCDEF'''' AS NVARCHAR(15)) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''ABCDEF'' AS NVARCHAR(MAX)) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''ABCDEF'''' AS NVARCHAR(MAX)) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''12345.6789'' AS REAL) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''12345.6789'''' AS REAL) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''12/27/2010 09:35'' AS SMALLDATETIME) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''12/27/2010 09:35'''' AS SMALLDATETIME) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''13'' AS SMALLINT) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''13'''' AS SMALLINT) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''13.95'' AS SMALLMONEY) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''13.95'''' AS SMALLMONEY) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''ABCDEF'' AS SQL_VARIANT) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''ABCDEF'''' AS SQL_VARIANT) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''ABCDEF'' AS sysname) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''ABCDEF'''' AS sysname) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''ABCDEF'' AS TEXT) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''ABCDEF'''' AS TEXT) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''0x1234'' AS TIMESTAMP) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''0x1234'''' AS TIMESTAMP) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''7'' AS TINYINT) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''7'''' AS TINYINT) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''F12AF25F-E043-4475-ADD1-96B8BBC6F16E'' AS UNIQUEIDENTIFIER) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''F12AF25F-E043-4475-ADD1-96B8BBC6F16E'''' AS UNIQUEIDENTIFIER) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''ABCDEF'' AS VARBINARY(15)) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''ABCDEF'''' AS VARBINARY(15)) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''ABCDEF'' AS VARBINARY(MAX)) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''ABCDEF'''' AS VARBINARY(MAX)) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''ABCDEF'' AS VARCHAR(15)) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''ABCDEF'''' AS VARCHAR(15)) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''ABCDEF'' AS VARCHAR(MAX)) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''ABCDEF'''' AS VARCHAR(MAX)) AS val;''';
EXEC tSQLt.AssertResultSetsHaveSameMetaData
'SELECT CAST(''<xml>hi</xml>'' AS XML) AS val;',
'EXEC tSQLt.ResultSetFilter 1, ''SELECT CAST(''''<xml>hi</xml>'''' AS XML) AS val;''';
END;
GO
CREATE PROC tSQLt_test_ResultSetFilter.[test ResultSetFilter produces only requested columns when underlying table contains primary key]
AS
BEGIN
CREATE TABLE BaseTable (i INT PRIMARY KEY, v VARCHAR(15));
INSERT INTO BaseTable (i, v) VALUES (1, 'hello');
CREATE TABLE #Actual (v VARCHAR(15));
INSERT INTO #Actual
EXEC tSQLt.ResultSetFilter 1, 'SELECT v FROM BaseTable';
CREATE TABLE #Expected (v VARCHAR(15));
INSERT INTO #Expected (v) VALUES ('hello');
EXEC tSQLt.AssertEqualsTable '#Expected', '#Actual';
END;
GO
CREATE PROC tSQLt_test_ResultSetFilter.[test ResultSetFilter produces only requested columns when a join on foreign keys is performed]
AS
BEGIN
CREATE TABLE BaseTable1 (i1 INT PRIMARY KEY, v1 VARCHAR(15));
INSERT INTO BaseTable1 (i1, v1) VALUES (1, 'hello');
CREATE TABLE BaseTable2 (i2 INT PRIMARY KEY, i1 INT FOREIGN KEY REFERENCES BaseTable1(i1), v2 VARCHAR(15));
INSERT INTO BaseTable2 (i2, i1, v2) VALUES (1, 1, 'goodbye');
CREATE TABLE #Actual (v1 VARCHAR(15), v2 VARCHAR(15));
INSERT INTO #Actual
EXEC tSQLt.ResultSetFilter 1, 'SELECT v1, v2 FROM BaseTable1 JOIN BaseTable2 ON BaseTable1.i1 = BaseTable2.i1';
CREATE TABLE #Expected (v1 VARCHAR(15), v2 VARCHAR(15));
INSERT INTO #Expected (v1, v2) VALUES ('hello', 'goodbye');
EXEC tSQLt.AssertEqualsTable '#Expected', '#Actual';
END;
GO
CREATE PROC tSQLt_test_ResultSetFilter.[test ResultSetFilter produces only requested columns when a unique column exists]
AS
BEGIN
CREATE TABLE BaseTable1 (i1 INT UNIQUE, v1 VARCHAR(15));
INSERT INTO BaseTable1 (i1, v1) VALUES (1, 'hello');
CREATE TABLE #Actual (v1 VARCHAR(15));
INSERT INTO #Actual
EXEC tSQLt.ResultSetFilter 1, 'SELECT v1 FROM BaseTable1';
CREATE TABLE #Expected (v1 VARCHAR(15));
INSERT INTO #Expected (v1) VALUES ('hello');
EXEC tSQLt.AssertEqualsTable '#Expected', '#Actual';
END;
GO
CREATE PROC tSQLt_test_ResultSetFilter.[test ResultSetFilter produces only requested columns when a check constraint exists]
AS
BEGIN
CREATE TABLE BaseTable1 (i1 INT CHECK(i1 = 1), v1 VARCHAR(15));
INSERT INTO BaseTable1 (i1, v1) VALUES (1, 'hello');
CREATE TABLE #Actual (v1 VARCHAR(15));
INSERT INTO #Actual
EXEC tSQLt.ResultSetFilter 1, 'SELECT v1 FROM BaseTable1';
CREATE TABLE #Expected (v1 VARCHAR(15));
INSERT INTO #Expected (v1) VALUES ('hello');
EXEC tSQLt.AssertEqualsTable '#Expected', '#Actual';
END;
GO