|
1 | 1 | Imports NUnit.Framework |
| 2 | +Imports NUnit.Framework.Legacy |
2 | 3 | Imports System |
3 | 4 | Imports System.Collections.Generic |
4 | 5 | Imports System.Diagnostics |
@@ -44,64 +45,64 @@ Namespace CompuMaster.Test.Data.DataQuery |
44 | 45 | For Each MyProvider As CompuMaster.Data.DataQuery.DataProvider In providers |
45 | 46 | Console.WriteLine(MyProvider.Title & " - " & MyProvider.ConnectionType.FullName & " - " & MyProvider.Assembly.FullName) |
46 | 47 | Next |
47 | | - Assert.GreaterOrEqual(providers.Count, 3) |
| 48 | + ClassicAssert.GreaterOrEqual(providers.Count, 3) |
48 | 49 | End Sub |
49 | 50 |
|
50 | 51 | <Test> Public Sub LookupDataProviderTest() |
51 | 52 | Dim provider As CompuMaster.Data.DataQuery.DataProvider |
52 | 53 |
|
53 | 54 | provider = CompuMaster.Data.DataQuery.DataProvider.LookupDataProvider("gibt es nicht") |
54 | | - Assert.IsNull(provider) |
| 55 | + ClassicAssert.IsNull(provider) |
55 | 56 |
|
56 | 57 | provider = CompuMaster.Data.DataQuery.DataProvider.LookupDataProvider("ODBC") |
57 | | - Assert.IsNotNull(provider) |
58 | | - Assert.AreEqual(GetType(System.Data.Odbc.OdbcConnection), provider.CreateConnection.GetType) |
59 | | - Assert.AreEqual(GetType(System.Data.Odbc.OdbcCommand), provider.CreateCommand.GetType) |
60 | | - Assert.IsNotNull(provider.CreateCommandBuilder) |
61 | | - Assert.AreEqual(GetType(System.Data.Odbc.OdbcCommandBuilder), provider.CreateCommandBuilder.GetType) |
62 | | - Assert.IsNotNull(provider.CreateDataAdapter) |
63 | | - Assert.AreEqual(GetType(System.Data.Odbc.OdbcDataAdapter), provider.CreateDataAdapter.GetType) |
| 58 | + ClassicAssert.IsNotNull(provider) |
| 59 | + ClassicAssert.AreEqual(GetType(System.Data.Odbc.OdbcConnection), provider.CreateConnection.GetType) |
| 60 | + ClassicAssert.AreEqual(GetType(System.Data.Odbc.OdbcCommand), provider.CreateCommand.GetType) |
| 61 | + ClassicAssert.IsNotNull(provider.CreateCommandBuilder) |
| 62 | + ClassicAssert.AreEqual(GetType(System.Data.Odbc.OdbcCommandBuilder), provider.CreateCommandBuilder.GetType) |
| 63 | + ClassicAssert.IsNotNull(provider.CreateDataAdapter) |
| 64 | + ClassicAssert.AreEqual(GetType(System.Data.Odbc.OdbcDataAdapter), provider.CreateDataAdapter.GetType) |
64 | 65 | Console.WriteLine("ODBC WORKING") |
65 | 66 |
|
66 | 67 | provider = CompuMaster.Data.DataQuery.DataProvider.LookupDataProvider("OleDb") |
67 | 68 | Dim IsMonoRuntime As Boolean = Type.GetType("Mono.Runtime") IsNot Nothing |
68 | 69 | If IsMonoRuntime AndAlso System.Environment.OSVersion.Platform <> PlatformID.Win32NT Then |
69 | | - Assert.IsNull(provider) |
| 70 | + ClassicAssert.IsNull(provider) |
70 | 71 | Console.WriteLine("OleDb NOT SUPPORTED at Mono/" & System.Environment.OSVersion.Platform.ToString) |
71 | 72 | ElseIf Not IsMonoRuntime AndAlso System.Environment.OSVersion.Platform <> PlatformID.Win32NT Then |
72 | | - Assert.IsTrue(provider.Title = "OleDb") |
| 73 | + ClassicAssert.IsTrue(provider.Title = "OleDb") |
73 | 74 | Try |
74 | 75 | provider.CreateConnection() |
75 | | - Assert.Fail("Expected exception") |
| 76 | + ClassicAssert.Fail("Expected exception") |
76 | 77 | Catch ex As Exception |
77 | 78 | If ex.GetType Is GetType(PlatformNotSupportedException) OrElse ( |
78 | 79 | ex.InnerException IsNot Nothing AndAlso ex.InnerException.GetType Is GetType(PlatformNotSupportedException) |
79 | 80 | ) Then |
80 | 81 | 'test passed :-) |
81 | 82 | Console.WriteLine("OleDb NOT SUPPORTED at Non-Windows-Platform " & System.Environment.OSVersion.Platform.ToString) |
82 | 83 | Else |
83 | | - Assert.Fail("Unexpected exception type " & ex.GetType.FullName) |
| 84 | + ClassicAssert.Fail("Unexpected exception type " & ex.GetType.FullName) |
84 | 85 | End If |
85 | 86 | End Try |
86 | 87 | Else |
87 | | - Assert.IsNotNull(provider) |
88 | | - Assert.AreEqual(GetType(System.Data.OleDb.OleDbConnection), provider.CreateConnection.GetType) |
89 | | - Assert.AreEqual(GetType(System.Data.OleDb.OleDbCommand), provider.CreateCommand.GetType) |
90 | | - Assert.IsNotNull(provider.CreateCommandBuilder) |
91 | | - Assert.AreEqual(GetType(System.Data.OleDb.OleDbCommandBuilder), provider.CreateCommandBuilder.GetType) |
92 | | - Assert.IsNotNull(provider.CreateDataAdapter) |
93 | | - Assert.AreEqual(GetType(System.Data.OleDb.OleDbDataAdapter), provider.CreateDataAdapter.GetType) |
| 88 | + ClassicAssert.IsNotNull(provider) |
| 89 | + ClassicAssert.AreEqual(GetType(System.Data.OleDb.OleDbConnection), provider.CreateConnection.GetType) |
| 90 | + ClassicAssert.AreEqual(GetType(System.Data.OleDb.OleDbCommand), provider.CreateCommand.GetType) |
| 91 | + ClassicAssert.IsNotNull(provider.CreateCommandBuilder) |
| 92 | + ClassicAssert.AreEqual(GetType(System.Data.OleDb.OleDbCommandBuilder), provider.CreateCommandBuilder.GetType) |
| 93 | + ClassicAssert.IsNotNull(provider.CreateDataAdapter) |
| 94 | + ClassicAssert.AreEqual(GetType(System.Data.OleDb.OleDbDataAdapter), provider.CreateDataAdapter.GetType) |
94 | 95 | Console.WriteLine("OleDb WORKING") |
95 | 96 | End If |
96 | 97 |
|
97 | 98 | provider = CompuMaster.Data.DataQuery.DataProvider.LookupDataProvider("SqlClient") |
98 | | - Assert.IsNotNull(provider) |
99 | | - Assert.AreEqual(GetType(System.Data.SqlClient.SqlConnection), provider.CreateConnection.GetType) |
100 | | - Assert.AreEqual(GetType(System.Data.SqlClient.SqlCommand), provider.CreateCommand.GetType) |
101 | | - Assert.IsNotNull(provider.CreateCommandBuilder) |
102 | | - Assert.AreEqual(GetType(System.Data.SqlClient.SqlCommandBuilder), provider.CreateCommandBuilder.GetType) |
103 | | - Assert.IsNotNull(provider.CreateDataAdapter) |
104 | | - Assert.AreEqual(GetType(System.Data.SqlClient.SqlDataAdapter), provider.CreateDataAdapter.GetType) |
| 99 | + ClassicAssert.IsNotNull(provider) |
| 100 | + ClassicAssert.AreEqual(GetType(System.Data.SqlClient.SqlConnection), provider.CreateConnection.GetType) |
| 101 | + ClassicAssert.AreEqual(GetType(System.Data.SqlClient.SqlCommand), provider.CreateCommand.GetType) |
| 102 | + ClassicAssert.IsNotNull(provider.CreateCommandBuilder) |
| 103 | + ClassicAssert.AreEqual(GetType(System.Data.SqlClient.SqlCommandBuilder), provider.CreateCommandBuilder.GetType) |
| 104 | + ClassicAssert.IsNotNull(provider.CreateDataAdapter) |
| 105 | + ClassicAssert.AreEqual(GetType(System.Data.SqlClient.SqlDataAdapter), provider.CreateDataAdapter.GetType) |
105 | 106 | Console.WriteLine("SqlClient WORKING") |
106 | 107 | End Sub |
107 | 108 |
|
|
0 commit comments