|
1 | 1 | Attribute VB_Name = "SQLUnitTests" |
2 | 2 | Public Function SQLlib_RunAllTests() |
3 | | - SQLlib_RunAllTests = True |
| 3 | + Result = True |
4 | 4 |
|
5 | | - SQLlib_RunAllTests = SQLlib_RunAllTests And RunAllModuleTests("SQLlib_SQLDatabase") |
| 5 | + Result = Result And RunAllModuleTests("SQLlib_SQLDatabase") |
6 | 6 |
|
7 | | - SQLlib_RunAllTests = SQLlib_RunAllTests And RunAllModuleTests("SQLlib_SQLInsert") |
| 7 | + Result = Result And RunAllModuleTests("SQLlib_SQLInsert") |
8 | 8 |
|
9 | | - SQLlib_RunAllTests = SQLlib_RunAllTests And RunAllModuleTests("SQLlib_SQLSelect") |
| 9 | + Result = Result And RunAllModuleTests("SQLlib_SQLSelect") |
10 | 10 |
|
11 | | - SQLlib_RunAllTests = SQLlib_RunAllTests And RunAllModuleTests("SQLlib_SQLStatic") |
| 11 | + Result = Result And RunAllModuleTests("SQLlib_SQLStatic") |
12 | 12 |
|
13 | | - Dim Interfaced As iSQLQuery |
14 | | - '******************************Check Delete******************************** |
15 | | - Dim MyDelete As SQLDelete |
16 | | - Set MyDelete = Create_SQLDelete() |
17 | | - MyDelete.Table = "users" |
18 | | - |
19 | | - Set Interfaced = MyDelete |
20 | | - AssertObjectStringEquals Interfaced, "DELETE FROM users" |
21 | | - |
22 | | - MyDelete.AddWhere "age", ":age", "<" |
23 | | - MyDelete.AddArgument ":age", 13 |
24 | | - AssertObjectStringEquals Interfaced, "DELETE FROM users WHERE age<13" |
| 13 | + Result = Result And RunAllModuleTests("SQLlib_SQLDelete") |
25 | 14 |
|
26 | | - '******************************Check Update******************************** |
27 | | - Dim MyUpdate As SQLUpdate |
28 | | - Set MyUpdate = Create_SQLUpdate |
29 | | - With MyUpdate |
30 | | - .Table = "users" |
31 | | - .Fields = Array("username") |
32 | | - .Values = Array(str("admin' WHERE id=1;DROP TABLE users;")) |
33 | | - .AddWhere "id", 1 |
34 | | - End With |
35 | | - Set Interfaced = MyUpdate |
36 | | - AssertObjectStringEquals Interfaced, "UPDATE users SET username='admin'' WHERE id=1;DROP TABLE users;' WHERE id=1" |
| 15 | + Result = Result And RunAllModuleTests("SQLlib_SQLUpdate") |
37 | 16 |
|
38 | 17 | '*****************Check Create***************** |
39 | 18 | 'Dim MyCreate As SQLCreate |
@@ -69,4 +48,6 @@ Public Function SQLlib_RunAllTests() |
69 | 48 | 'MyOtherWhereGroup.SetGroup MyWhere, MyThirdWhere, "OR" |
70 | 49 | 'MyWhereGroup.AddWhere MyOtherWhereGroup, "AND" |
71 | 50 | 'CheckSQLValue MyWhereGroup, "((id=2 AND type='toys') OR color='pink') AND (id=2 OR color='pink')" |
| 51 | + |
| 52 | + SQLlib_RunAllTests = Result |
72 | 53 | End Function |
0 commit comments