Imports System.IO
Imports System.Collections.ObjectModel
Imports System.Text
Imports System.Globalization
Imports Microsoft.VisualBasic.FileIO
Imports NUnit.Framework
Imports ChrisLaco.Data
<TestFixture(Description:="CsvDataReader Tests")> _
Public Class CsvDataReaderTests
#Region "Constructor Tests"
<TestFixtureSetUp()> _
Public Sub TestFixtureSetupUp()
log4net.Config.XmlConfigurator.Configure()
End Sub
<Test(Description:="New throws exception for bogus file")> _
<ExpectedException(GetType(FileNotFoundException))> _
Public Sub NewBadFileName()
Using reader As New CsvDataReader("crapfile")
End Using
End Sub
#End Region
#Region "Comma Seperated Values Tests"
<Test(Description:="Test Cav file with header")> _
Public Sub CsvWithHeader()
Using reader As IDataReader = New CsvDataReader("data\header.csv")
ValidateHeaderedReader(reader)
Assert.AreEqual(Encoding.UTF8, DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Sub
<Test(Description:="Test Cav stream with header")> _
Public Sub CsvStreamWithHeader()
Using stream As New FileStream("data\header.csv", FileMode.Open)
Using reader As IDataReader = New CsvDataReader(stream)
ValidateHeaderedReader(reader)
Assert.AreEqual(Encoding.UTF8, DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Using
End Sub
<Test(Description:="Test Cav file with header and encoding")> _
Public Sub CsvWithHeaderWithEncoding()
Using reader As IDataReader = New CsvDataReader("data\header.csv", System.Text.Encoding.ASCII)
ValidateHeaderedReader(reader)
Assert.AreEqual(Encoding.ASCII, DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Sub
<Test(Description:="Test Cav stream with header and encoding")> _
Public Sub CsvStreamWithHeaderWithEncoding()
Using stream As New FileStream("data\header.csv", FileMode.Open)
Using reader As IDataReader = New CsvDataReader(stream, System.Text.Encoding.ASCII)
ValidateHeaderedReader(reader)
Assert.AreEqual(Encoding.ASCII, DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Using
End Sub
<Test(Description:="Test Csv file with defined columns")> _
Public Sub CsvWithColumns()
Dim columns As New Collection(Of CsvDataColumn)
columns.Add(New CsvDataColumn("STRING", GetType(String)))
columns.Add(New CsvDataColumn("LONG", GetType(Long)))
columns.Add(New CsvDataColumn("DATETIME", GetType(DateTime)))
columns.Add(New CsvDataColumn("DECIMAL", GetType(Decimal)))
columns.Add(New CsvDataColumn("GUID", GetType(Guid)))
columns.Add(New CsvDataColumn("BOOLEAN", GetType(Boolean)))
columns.Add(New CsvDataColumn("SHORT", GetType(Short)))
columns.Add(New CsvDataColumn("DOUBLE", GetType(Double)))
columns.Add(New CsvDataColumn("SINGLE", GetType(Single)))
columns.Add(New CsvDataColumn("INTEGER", GetType(Integer)))
columns.Add(New CsvDataColumn("BYTE", GetType(Byte)))
Using reader As IDataReader = New CsvDataReader("data\noheader.csv", columns)
Dim schemaTable As DataTable = reader.GetSchemaTable
For c As Integer = 0 To schemaTable.Columns.Count - 1
Me.AreEqual(columns.Item(c), schemaTable.Columns.Item(c))
Next
ValidateColumnedReader(reader)
Assert.AreEqual(Encoding.UTF8, DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Sub
<Test(Description:="Test Csv file with defined columns with encoding")> _
Public Sub CsvWithColumnsAndEncoding()
Dim columns As New Collection(Of CsvDataColumn)
columns.Add(New CsvDataColumn("STRING", GetType(String)))
columns.Add(New CsvDataColumn("LONG", GetType(Long)))
columns.Add(New CsvDataColumn("DATETIME", GetType(DateTime)))
columns.Add(New CsvDataColumn("DECIMAL", GetType(Decimal)))
columns.Add(New CsvDataColumn("GUID", GetType(Guid)))
columns.Add(New CsvDataColumn("BOOLEAN", GetType(Boolean)))
columns.Add(New CsvDataColumn("SHORT", GetType(Short)))
columns.Add(New CsvDataColumn("DOUBLE", GetType(Double)))
columns.Add(New CsvDataColumn("SINGLE", GetType(Single)))
columns.Add(New CsvDataColumn("INTEGER", GetType(Integer)))
columns.Add(New CsvDataColumn("BYTE", GetType(Byte)))
Using reader As IDataReader = New CsvDataReader("data\noheader.csv", columns, System.Text.Encoding.ASCII)
Dim schemaTable As DataTable = reader.GetSchemaTable
For c As Integer = 0 To schemaTable.Columns.Count - 1
Me.AreEqual(columns.Item(c), schemaTable.Columns.Item(c))
Next
ValidateColumnedReader(reader)
Assert.AreEqual(Encoding.ASCII, DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Sub
<Test(Description:="Test Csv file with defined columns in schema")> _
Public Sub CsvWithSchema()
Using reader As IDataReader = New CsvDataReader("data\noheader.csv")
DirectCast(reader, CsvDataReader).SchemaFile = "data\test.ini"
ValidateColumnedReader(reader)
Assert.AreEqual(Encoding.GetEncoding(CultureInfo.CurrentCulture.TextInfo.OEMCodePage), DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Sub
<Test(Description:="Test Csv file with defined columns in schema in a different section name")> _
Public Sub CsvWithSchemaDifferentSection()
Using reader As IDataReader = New CsvDataReader("data\noheader.csv")
DirectCast(reader, CsvDataReader).SchemaFile = "data\test.ini"
DirectCast(reader, CsvDataReader).SchemaSection = "testnoheader"
ValidateHeaderedReader(reader)
Assert.AreEqual(Encoding.Unicode, DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Sub
#End Region
#Region "Tab Seperated Values Tests"
<Test(Description:="Test Tsv file with header")> _
Public Sub TsvWithHeader()
Using reader As IDataReader = New CsvDataReader("data\header.tsv")
DirectCast(reader, CsvDataReader).FieldSeparator = vbTab
ValidateHeaderedReader(reader)
Assert.AreEqual(Encoding.UTF8, DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Sub
<Test(Description:="Test Tsv file with defined columns")> _
Public Sub TsvWithColumns()
Dim columns As New Collection(Of CsvDataColumn)
columns.Add(New CsvDataColumn("STRING", GetType(String)))
columns.Add(New CsvDataColumn("LONG", GetType(Long)))
columns.Add(New CsvDataColumn("DATETIME", GetType(DateTime)))
columns.Add(New CsvDataColumn("DECIMAL", GetType(Decimal)))
columns.Add(New CsvDataColumn("GUID", GetType(Guid)))
columns.Add(New CsvDataColumn("BOOLEAN", GetType(Boolean)))
columns.Add(New CsvDataColumn("SHORT", GetType(Short)))
columns.Add(New CsvDataColumn("DOUBLE", GetType(Double)))
columns.Add(New CsvDataColumn("SINGLE", GetType(Single)))
columns.Add(New CsvDataColumn("INTEGER", GetType(Integer)))
columns.Add(New CsvDataColumn("BYTE", GetType(Byte)))
Using reader As IDataReader = New CsvDataReader("data\noheader.tsv", columns)
DirectCast(reader, CsvDataReader).FieldSeparator = vbTab
Dim schemaTable As DataTable = reader.GetSchemaTable
For c As Integer = 0 To schemaTable.Columns.Count - 1
Me.AreEqual(columns.Item(c), schemaTable.Columns.Item(c))
Next
ValidateColumnedReader(reader)
Assert.AreEqual(Encoding.UTF8, DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Sub
<Test(Description:="Test Tsv stream with defined columns")> _
Public Sub TsvStreamWithColumns()
Dim columns As New Collection(Of CsvDataColumn)
columns.Add(New CsvDataColumn("STRING", GetType(String)))
columns.Add(New CsvDataColumn("LONG", GetType(Long)))
columns.Add(New CsvDataColumn("DATETIME", GetType(DateTime)))
columns.Add(New CsvDataColumn("DECIMAL", GetType(Decimal)))
columns.Add(New CsvDataColumn("GUID", GetType(Guid)))
columns.Add(New CsvDataColumn("BOOLEAN", GetType(Boolean)))
columns.Add(New CsvDataColumn("SHORT", GetType(Short)))
columns.Add(New CsvDataColumn("DOUBLE", GetType(Double)))
columns.Add(New CsvDataColumn("SINGLE", GetType(Single)))
columns.Add(New CsvDataColumn("INTEGER", GetType(Integer)))
columns.Add(New CsvDataColumn("BYTE", GetType(Byte)))
Using stream As New FileStream("data\noheader.tsv", FileMode.Open)
Using reader As IDataReader = New CsvDataReader(stream, columns)
DirectCast(reader, CsvDataReader).FieldSeparator = vbTab
Dim schemaTable As DataTable = reader.GetSchemaTable
For c As Integer = 0 To schemaTable.Columns.Count - 1
Me.AreEqual(columns.Item(c), schemaTable.Columns.Item(c))
Next
ValidateColumnedReader(reader)
Assert.AreEqual(Encoding.UTF8, DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Using
End Sub
<Test(Description:="Test Tsv stream with defined columns and encoding")> _
Public Sub TsvStreamWithColumnsAndEncoding()
Dim columns As New Collection(Of CsvDataColumn)
columns.Add(New CsvDataColumn("STRING", GetType(String)))
columns.Add(New CsvDataColumn("LONG", GetType(Long)))
columns.Add(New CsvDataColumn("DATETIME", GetType(DateTime)))
columns.Add(New CsvDataColumn("DECIMAL", GetType(Decimal)))
columns.Add(New CsvDataColumn("GUID", GetType(Guid)))
columns.Add(New CsvDataColumn("BOOLEAN", GetType(Boolean)))
columns.Add(New CsvDataColumn("SHORT", GetType(Short)))
columns.Add(New CsvDataColumn("DOUBLE", GetType(Double)))
columns.Add(New CsvDataColumn("SINGLE", GetType(Single)))
columns.Add(New CsvDataColumn("INTEGER", GetType(Integer)))
columns.Add(New CsvDataColumn("BYTE", GetType(Byte)))
Using stream As New FileStream("data\noheader.tsv", FileMode.Open)
Using reader As IDataReader = New CsvDataReader(stream, columns, System.Text.Encoding.ASCII)
DirectCast(reader, CsvDataReader).FieldSeparator = vbTab
Dim schemaTable As DataTable = reader.GetSchemaTable
For c As Integer = 0 To schemaTable.Columns.Count - 1
Me.AreEqual(columns.Item(c), schemaTable.Columns.Item(c))
Next
ValidateColumnedReader(reader)
Assert.AreEqual(Encoding.ASCII, DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Using
End Sub
<Test(Description:="Test tab delimited file with defined columns in schema")> _
Public Sub TsvWithSchema()
Using reader As IDataReader = New CsvDataReader("data\noheader.tsv")
DirectCast(reader, CsvDataReader).SchemaFile = "data\test.ini"
ValidateColumnedReader(reader)
Assert.AreEqual(Encoding.GetEncoding(CultureInfo.CurrentCulture.TextInfo.ANSICodePage), DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Sub
#End Region
#Region "Other Separater Tests"
<Test(Description:="Test Psv file with defined columns")> _
Public Sub PsvWithColumns()
Dim columns As New Collection(Of CsvDataColumn)
columns.Add(New CsvDataColumn("STRING", GetType(String)))
columns.Add(New CsvDataColumn("LONG", GetType(Long)))
columns.Add(New CsvDataColumn("DATETIME", GetType(DateTime)))
columns.Add(New CsvDataColumn("DECIMAL", GetType(Decimal)))
columns.Add(New CsvDataColumn("GUID", GetType(Guid)))
columns.Add(New CsvDataColumn("BOOLEAN", GetType(Boolean)))
columns.Add(New CsvDataColumn("SHORT", GetType(Short)))
columns.Add(New CsvDataColumn("DOUBLE", GetType(Double)))
columns.Add(New CsvDataColumn("SINGLE", GetType(Single)))
columns.Add(New CsvDataColumn("INTEGER", GetType(Integer)))
columns.Add(New CsvDataColumn("BYTE", GetType(Byte)))
Using reader As IDataReader = New CsvDataReader("data\noheader.psv", columns)
DirectCast(reader, CsvDataReader).FieldSeparator = "|"
Dim schemaTable As DataTable = reader.GetSchemaTable
For c As Integer = 0 To schemaTable.Columns.Count - 1
Me.AreEqual(columns.Item(c), schemaTable.Columns.Item(c))
Next
ValidateColumnedReader(reader)
Assert.AreEqual(Encoding.UTF8, DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Sub
<Test(Description:="Test pipe separated file with defined columns in schema")> _
Public Sub PsvWithSchema()
Using reader As IDataReader = New CsvDataReader("data\noheader.psv")
DirectCast(reader, CsvDataReader).SchemaFile = "data\test.ini"
ValidateColumnedReader(reader)
Assert.AreEqual(Encoding.ASCII, DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Sub
<Test(Description:="Test pipe separated file with defined columns in schema using stream")> _
Public Sub PsvWithSchemaAndStream()
Dim data As String = String.Concat( _
"""Chris,topher""|35|""1/2/2003 2:34:56""|1.23|11111111-2222-3333-4444-555555555555|True|4|23.45|1.23|123|65", vbCrLf, _
" |23|2/3/2004|1.342||False|5|34.56|2.35|234|75" _
)
Using stream As New MemoryStream(System.Text.Encoding.UTF8.GetBytes(data))
Using reader As IDataReader = New CsvDataReader(stream)
DirectCast(reader, CsvDataReader).SchemaFile = "data\test.ini"
DirectCast(reader, CsvDataReader).SchemaSection = "noheader.psv"
ValidateColumnedReader(reader)
Assert.AreEqual(Encoding.ASCII, DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Using
End Sub
#End Region
#Region "Fixed Field Tests"
<Test(Description:="Test fixed width file without columns")> _
<ExpectedException(GetType(MalformedLineException))> _
Public Sub FixedWidthNoColumns()
Using reader As IDataReader = New CsvDataReader("data\fixed.txt")
DirectCast(reader, CsvDataReader).FieldType = FieldType.FixedWidth
reader.Read()
End Using
End Sub
<Test(Description:="Test fixed width file with defined columns")> _
Public Sub FixedWidthWithColumns()
Dim columns As New Collection(Of CsvDataColumn)
columns.Add(New CsvDataColumn("STRING", GetType(String), 15))
columns.Add(New CsvDataColumn("LONG", GetType(Long), 4))
columns.Add(New CsvDataColumn("DATETIME", GetType(DateTime), 20))
columns.Add(New CsvDataColumn("DECIMAL", GetType(Decimal), 8))
columns.Add(New CsvDataColumn("GUID", GetType(Guid), 38))
columns.Add(New CsvDataColumn("BOOLEAN", GetType(Boolean), 5))
columns.Add(New CsvDataColumn("SHORT", GetType(Short), 1))
columns.Add(New CsvDataColumn("DOUBLE", GetType(Double), 5))
columns.Add(New CsvDataColumn("SINGLE", GetType(Single), 4))
columns.Add(New CsvDataColumn("INTEGER", GetType(Integer), 4))
columns.Add(New CsvDataColumn("BYTE", GetType(Byte), 3))
Using reader As IDataReader = New CsvDataReader("data\fixed.txt", columns)
DirectCast(reader, CsvDataReader).FieldSeparator = ","
DirectCast(reader, CsvDataReader).FieldType = FieldType.FixedWidth
Assert.IsTrue(String.IsNullOrEmpty(DirectCast(reader, CsvDataReader).FieldSeparator), "FieldSeparator is empty after setting fixed width")
Dim schemaTable As DataTable = reader.GetSchemaTable
For c As Integer = 0 To schemaTable.Columns.Count - 1
Me.AreEqual(columns.Item(c), schemaTable.Columns.Item(c))
Next
ValidateColumnedReader(reader)
Assert.AreEqual(Encoding.UTF8, DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Sub
<Test(Description:="Test fixed width file with defined columns in schema")> _
Public Sub FixedWidthWithSchema()
Using reader As IDataReader = New CsvDataReader("data\fixed.txt")
DirectCast(reader, CsvDataReader).SchemaFile = "data\test.ini"
ValidateColumnedReader(reader)
Assert.AreEqual(Encoding.GetEncoding(CultureInfo.CurrentCulture.TextInfo.ANSICodePage), DirectCast(reader, CsvDataReader).Encoding, "Encoding is set")
End Using
End Sub
#End Region
Private Sub AreEqual(ByVal expected As DataColumn, ByVal actual As DataColumn)
Assert.AreEqual(expected, actual, "Columns objects are equal")
Assert.AreEqual(expected.ColumnName, actual.ColumnName, "Column names are equal")
Assert.AreEqual(expected.DataType, actual.DataType, "Column data types are equal")
Assert.AreEqual(expected.AllowDBNull, actual.AllowDBNull, "Column nulls are equal")
End Sub
Private Sub ValidateColumnedReader(ByVal reader As IDataReader)
Assert.IsInstanceOfType(GetType(CsvDataReader), reader, "Is instance of CsvDataReader")
Assert.AreEqual(11, reader.FieldCount, "Has correct number of fields")
Assert.AreEqual(0, reader.Depth, "Depth is always zero")
Assert.AreEqual("STRING", reader.GetName(0), "Has first column name")
Assert.AreEqual("String", reader.GetDataTypeName(0), "First column type name is String")
Assert.AreEqual(0, reader.GetOrdinal("String"), "First column ordinal is correct")
Assert.AreEqual("LONG", reader.GetName(1), "Has second column name")
Assert.AreEqual("Int64", reader.GetDataTypeName(1), "Second column type name is Long")
Assert.AreEqual(1, reader.GetOrdinal("LONG"), "Second column ordinal is correct")
Assert.AreEqual("DATETIME", reader.GetName(2), "Has third column name")
Assert.AreEqual("DateTime", reader.GetDataTypeName(2), "Third column type name is DateTime")
Assert.AreEqual(2, reader.GetOrdinal("DATETIME"), "Third column ordinal is correct")
Assert.AreEqual("DECIMAL", reader.GetName(3), "Has fourth column name")
Assert.AreEqual("Decimal", reader.GetDataTypeName(3), "Fourth column type name is Decimal")
Assert.AreEqual(3, reader.GetOrdinal("DECIMAL"), "Fourth column ordinal is correct")
Assert.AreEqual("GUID", reader.GetName(4), "Has fifth column name")
Assert.AreEqual("Guid", reader.GetDataTypeName(4), "Fifth column type name is Guid")
Assert.AreEqual(4, reader.GetOrdinal("GUID"), "Fifth column ordinal is correct")
Assert.AreEqual("BOOLEAN", reader.GetName(5), "Has sixth column name")
Assert.AreEqual("Boolean", reader.GetDataTypeName(5), "Sixth column type name is Boolean")
Assert.AreEqual(5, reader.GetOrdinal("BOOLEAN"), "Sixth column ordinal is correct")
Assert.AreEqual("SHORT", reader.GetName(6), "Has seventh column name")
Assert.AreEqual("Int16", reader.GetDataTypeName(6), "Seventh column type name is Int16")
Assert.AreEqual(6, reader.GetOrdinal("SHORT"), "Seventh column ordinal is correct")
Assert.AreEqual("DOUBLE", reader.GetName(7), "Has eighth column name")
Assert.AreEqual("Double", reader.GetDataTypeName(7), "Eighth column type name is Double")
Assert.AreEqual(7, reader.GetOrdinal("DOUBLE"), "Eighth column ordinal is correct")
Assert.AreEqual("SINGLE", reader.GetName(8), "Has nineth column name")
Assert.AreEqual("Single", reader.GetDataTypeName(8), "Nineth column type name is Single")
Assert.AreEqual(8, reader.GetOrdinal("SINGLE"), "Nineth column ordinal is correct")
Assert.AreEqual("INTEGER", reader.GetName(9), "Has tenth column name")
Assert.AreEqual("Int32", reader.GetDataTypeName(9), "Tenth column type name is Integer")
Assert.AreEqual(9, reader.GetOrdinal("INTEGER"), "Tenth column ordinal is correct")
Assert.AreEqual("BYTE", reader.GetName(10), "Has eleventh column name")
Assert.AreEqual("Byte", reader.GetDataTypeName(10), "Eleventh column type name is Byte")
Assert.AreEqual(10, reader.GetOrdinal("BYTE"), "Eleventh column ordinal is correct")
Assert.IsTrue(reader.Read, "Read first line")
Dim values(reader.FieldCount - 1) As Object
Assert.AreEqual(11, reader.GetValues(values), "GetValues returns the number of columns")
Assert.AreEqual(11, values.Length, "Values array has corrent length")
Assert.AreEqual("Chris,topher", reader.GetString(0), "First column value is correct")
Assert.AreEqual("Chris,topher", reader.GetValue(0), "First column value is correct")
Assert.AreEqual(GetType(String), reader.GetFieldType(0), "First column is System.String")
Assert.IsFalse(reader.IsDBNull(0), "First column is not null")
Assert.AreEqual(values(0), reader.GetValue(0), "GetValues item sames as GetValue")
Assert.AreEqual(values(0), reader.Item(0), "GetValues item sames as Item")
Assert.AreEqual(values(0), reader.Item(reader.GetName(0)), "GetValues item sames as Item")
Assert.AreEqual("C", reader.GetChar(0).ToString, "GetChar returns first character")
Assert.AreEqual(12, reader.GetChars(0, Nothing, Nothing, Nothing, Nothing), "GetChars returns length when no buffer is passed")
Dim chars(reader.GetString(0).Length - 1) As Char
Assert.AreEqual(12, reader.GetChars(0, 0, chars, 0, 12), "Read characters from column")
Assert.AreEqual(12, chars.Length, "Read correct number of character")
Assert.AreEqual("C", chars(0).ToString)
Assert.AreEqual("h", chars(1).ToString)
Assert.AreEqual("r", chars(2).ToString)
Assert.AreEqual("i", chars(3).ToString)
Assert.AreEqual("s", chars(4).ToString)
Assert.AreEqual(",", chars(5).ToString)
Assert.AreEqual("t", chars(6).ToString)
Assert.AreEqual("o", chars(7).ToString)
Assert.AreEqual("p", chars(8).ToString)
Assert.AreEqual("h", chars(9).ToString)
Assert.AreEqual("e", chars(10).ToString)
Assert.AreEqual("r", chars(11).ToString)
Assert.AreEqual(12, reader.GetBytes(0, Nothing, Nothing, Nothing, Nothing), "GetBytes returns length when no buffer is passed")
'Assert.AreEqual(Convert.ToByte(Convert.ToChar("C")), reader.GetByte(0), "GetByte returns first")
Dim bytes(reader.GetString(0).Length - 1) As Byte
Assert.AreEqual(12, reader.GetBytes(0, 0, bytes, 0, 11), "Read bytes from column")
Assert.AreEqual(12, bytes.Length, "Read correct number of bytes")
Assert.AreEqual(67, bytes(0))
Assert.AreEqual(104, bytes(1))
Assert.AreEqual(114, bytes(2))
Assert.AreEqual(105, bytes(3))
Assert.AreEqual(115, bytes(4))
Assert.AreEqual(44, bytes(5))
Assert.AreEqual(116, bytes(6))
Assert.AreEqual(111, bytes(7))
Assert.AreEqual(112, bytes(8))
Assert.AreEqual(104, bytes(9))
Assert.AreEqual(101, bytes(10))
Assert.AreEqual(114, bytes(11))
Assert.AreEqual("35", reader.GetString(1), "Second column value is correct")
Assert.AreEqual(Convert.ToInt16(35), reader.GetInt16(1), "Second column value is correct as Int16")
Assert.AreEqual(Convert.ToInt32(35), reader.GetInt32(1), "Second column value is correct as Int32")
Assert.AreEqual(Convert.ToInt64(35), reader.GetInt64(1), "Second column value is correct as Int64")
Assert.AreEqual(Convert.ToInt64(35), reader.GetValue(1), "Second column value is correct as Value")
Assert.AreEqual(Convert.ToSingle(35), reader.GetFloat(1), "Second column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(35), reader.GetDouble(1), "Second column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(35), reader.GetDecimal(1), "Second column value is correct as Decimal")
Assert.AreEqual(GetType(Int64), reader.GetFieldType(1), "Second column is System.String")
Assert.IsFalse(reader.IsDBNull(1), "Second column is not null")
Assert.AreEqual(values(1), reader.GetValue(1), "GetValues item sames as GetValue")
Assert.AreEqual(values(1), reader.Item(1), "GetValues item sames as Item")
Assert.AreEqual(values(1), reader.Item(reader.GetName(1)), "GetValues item sames as Item")
Assert.AreEqual("3", reader.GetChar(1).ToString, "GetChar returns first character")
Assert.AreEqual("1/2/2003 2:34:56 AM", reader.GetString(2), "Third column value is correct")
Assert.AreEqual(DateTime.Parse("1/2/2003 2:34:56"), reader.GetDateTime(2), "Third column value is correct as DateTime")
Assert.AreEqual(DateTime.Parse("1/2/2003 2:34:56"), reader.GetValue(2), "Third column value is correct as Value")
Assert.AreEqual(GetType(DateTime), reader.GetFieldType(2), "Third column is System.String")
Assert.IsFalse(reader.IsDBNull(2), "Third column is not null")
Assert.AreEqual(values(2), reader.GetValue(2), "GetValues item sames as GetValue")
Assert.AreEqual(values(2), reader.Item(2), "GetValues item sames as Item")
Assert.AreEqual(values(2), reader.Item(reader.GetName(2)), "GetValues item sames as Item")
Assert.AreEqual("1", reader.GetChar(2).ToString, "GetChar returns first character")
Assert.AreEqual("1.23", reader.GetString(3), "Fourth column value is correct")
Assert.AreEqual(Convert.ToSingle(1.23), reader.GetFloat(3), "Fourth column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(1.23), reader.GetDouble(3), "Fourth column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(1.23), reader.GetDecimal(3), "Fourth column value is correct as Decimal")
Assert.AreEqual(Convert.ToDecimal(1.23), reader.GetValue(3), "Fourth column value is correct as Value")
Assert.AreEqual(GetType(Decimal), reader.GetFieldType(3), "Fourth column is System.String")
Assert.IsFalse(reader.IsDBNull(3), "Fourth column is not null")
Assert.AreEqual(values(3), reader.GetValue(3), "GetValues item sames as GetValue")
Assert.AreEqual(values(3), reader.Item(3), "GetValues item sames as Item")
Assert.AreEqual(values(3), reader.Item(reader.GetName(3)), "GetValues item sames as Item")
Assert.AreEqual("1", reader.GetChar(3).ToString, "GetChar returns first character")
Assert.AreEqual("11111111-2222-3333-4444-555555555555", reader.GetString(4), "Fifth column value is correct")
Assert.AreEqual(New Guid("11111111-2222-3333-4444-555555555555"), reader.GetGuid(4), "Fifth column value is correct as Guid")
Assert.AreEqual(New Guid("11111111-2222-3333-4444-555555555555"), reader.GetValue(4), "Fifth column value is correct as Value")
Assert.AreEqual(GetType(Guid), reader.GetFieldType(4), "Fifth column is System.String")
Assert.IsFalse(reader.IsDBNull(4), "Fifth column is not null")
Assert.AreEqual(values(4), reader.GetValue(4), "GetValues item sames as GetValue")
Assert.AreEqual(values(4), reader.Item(4), "GetValues item sames as Item")
Assert.AreEqual(values(4), reader.Item(reader.GetName(4)), "GetValues item sames as Item")
Assert.AreEqual("1", reader.GetChar(4).ToString, "GetChar returns first character")
Assert.AreEqual("True", reader.GetString(5), "Sixth column value is correct")
Assert.IsTrue(reader.GetBoolean(5), "Sixth column value is correct as Boolean")
Assert.IsTrue(reader.GetValue(5), "Sixth column value is correct as Value")
Assert.AreEqual(GetType(Boolean), reader.GetFieldType(5), "Sixth column is System.Boolean")
Assert.IsFalse(reader.IsDBNull(5), "Sixth column is not null")
Assert.AreEqual(values(5), reader.GetValue(5), "GetValues item sames as GetValue")
Assert.AreEqual(values(5), reader.Item(5), "GetValues item sames as Item")
Assert.AreEqual(values(5), reader.Item(reader.GetName(5)), "GetValues item sames as Item")
Assert.AreEqual("T", reader.GetChar(5).ToString, "GetChar returns first character")
Assert.AreEqual("4", reader.GetString(6), "Seventh column value is correct")
Assert.AreEqual(Convert.ToInt16(4), reader.GetInt16(6), "Seventh column value is correct as Short")
Assert.AreEqual(Convert.ToInt16(4), reader.GetValue(6), "Seventh column value is correct as Value")
Assert.AreEqual(Convert.ToSingle(4), reader.GetFloat(6), "Seventh column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(4), reader.GetDouble(6), "Seventh column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(4), reader.GetDecimal(6), "Seventh column value is correct as Decimal")
Assert.AreEqual(GetType(Int16), reader.GetFieldType(6), "Seventh column is System.String")
Assert.IsFalse(reader.IsDBNull(6), "Seventh column is not null")
Assert.AreEqual("23.45", reader.GetString(7), "Eighth column value is correct")
Assert.AreEqual(Convert.ToSingle(23.45), reader.GetFloat(7), "Eighth column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(23.45), reader.GetDouble(7), "Eighth column value is correct as Double")
Assert.AreEqual(Convert.ToDouble(23.45), reader.GetValue(7), "Eighth column value is correct as Value")
Assert.AreEqual(Convert.ToDecimal(23.45), reader.GetDecimal(7), "Eighth column value is correct as Decimal")
Assert.AreEqual(GetType(Double), reader.GetFieldType(7), "Eighth column is System.Double")
Assert.IsFalse(reader.IsDBNull(7), "Eighth column is not null")
Assert.AreEqual("1.23", reader.GetString(8), "Nineth column value is correct")
Assert.AreEqual(Convert.ToSingle(1.23), reader.GetFloat(8), "Nineth column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(Convert.ToSingle(1.23)), reader.GetDouble(8), "Nineth column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(1.23), reader.GetDecimal(8), "Nineth column value is correct as Decimal")
Assert.AreEqual(GetType(Single), reader.GetFieldType(8), "Nineth column is System.Single")
Assert.IsFalse(reader.IsDBNull(8), "Nineth column is not null")
Assert.AreEqual("123", reader.GetString(9), "Tenth column value is correct")
Assert.AreEqual(Convert.ToInt16(123), reader.GetInt16(9), "Tenth column value is correct as Int16")
Assert.AreEqual(Convert.ToInt32(123), reader.GetInt32(9), "Tenth column value is correct as Int32")
Assert.AreEqual(Convert.ToInt32(123), reader.GetValue(9), "Tenth column value is correct as Value")
Assert.AreEqual(Convert.ToSingle(123), reader.GetFloat(9), "Tenth column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(123), reader.GetDouble(9), "Tenth column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(123), reader.GetDecimal(9), "Tenth column value is correct as Decimal")
Assert.AreEqual(GetType(Int32), reader.GetFieldType(9), "Tenth column is System.String")
Assert.IsFalse(reader.IsDBNull(9), "Tenth column is not null")
Assert.AreEqual(values(9), reader.GetValue(9), "GetValues item sames as GetValue")
Assert.AreEqual(values(9), reader.Item(9), "GetValues item sames as Item")
Assert.AreEqual(values(9), reader.Item(reader.GetName(9)), "GetValues item sames as Item")
Assert.AreEqual("1", reader.GetChar(9).ToString, "GetChar returns first character")
Assert.AreEqual(Convert.ToByte(65), reader.GetByte(10), "Eleventh column value is correct as Byte")
Assert.AreEqual(Convert.ToByte(65), reader.GetValue(10), "Eleventh column value is correct as Value")
Assert.AreEqual("65", reader.GetString(10), "Eleventh column value is correct")
Assert.AreEqual(Convert.ToSingle(65), reader.GetFloat(10), "Eleventh column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(65), reader.GetDouble(10), "Eleventh column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(65), reader.GetDecimal(10), "Eleventh column value is correct as Decimal")
Assert.AreEqual(GetType(Byte), reader.GetFieldType(10), "Eleventh column is System.String")
Assert.IsFalse(reader.IsDBNull(10), "Eleventh column is not null")
Assert.IsTrue(reader.Read, "Read second line")
Array.Clear(values, 0, values.Length)
Array.Resize(values, 2)
Assert.AreEqual(2, reader.GetValues(values), "GetValues returns the number value slize")
Assert.AreEqual(2, values.Length, "Values array has corrent length")
Assert.IsEmpty(reader.GetString(0), "First column value is empty")
Assert.AreEqual(GetType(System.DBNull), reader.GetFieldType(0), "First column is System.DBNull")
Assert.IsTrue(reader.IsDBNull(0), "First column is null")
Assert.AreEqual(values(0), reader.GetValue(0), "GetValues item sames as GetValue")
Assert.AreEqual(Char.MinValue, reader.GetChar(0), "GetChar returns Char.MinValue for DbNull")
Assert.AreEqual("23", reader.GetString(1), "Second column value is correct")
Assert.AreEqual(Convert.ToInt16(23), reader.GetInt16(1), "Second column value is correct as Int16")
Assert.AreEqual(Convert.ToInt32(23), reader.GetInt32(1), "Second column value is correct as Int32")
Assert.AreEqual(Convert.ToInt64(23), reader.GetInt64(1), "Second column value is correct as Int64")
Assert.AreEqual(Convert.ToSingle(23), reader.GetFloat(1), "Second column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(23), reader.GetDouble(1), "Second column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(23), reader.GetDecimal(1), "Second column value is correct as Decimal")
Assert.AreEqual(GetType(Int64), reader.GetFieldType(1), "Second column is System.String")
Assert.IsFalse(reader.IsDBNull(1), "Second column is not null")
Assert.AreEqual(values(1), reader.GetValue(1), "GetValues item sames as GetValue")
Assert.AreEqual("2/3/2004 12:00:00 AM", reader.GetString(2), "Third column value is correct")
Assert.AreEqual(DateTime.Parse("2/3/2004"), reader.GetDateTime(2), "Third column value is correct as DateTime")
Assert.AreEqual(GetType(DateTime), reader.GetFieldType(2), "Third column is System.String")
Assert.IsFalse(reader.IsDBNull(2), "Third column is not null")
Assert.AreEqual("1.342", reader.GetString(3), "Fourth column value is correct")
Assert.AreEqual(Convert.ToSingle(1.342), reader.GetFloat(3), "Fourth column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(1.342), reader.GetDouble(3), "Fourth column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(1.342), reader.GetDecimal(3), "Fourth column value is correct as Decimal")
Assert.AreEqual(GetType(Decimal), reader.GetFieldType(3), "Fourth column is System.String")
Assert.IsFalse(reader.IsDBNull(3), "Fourth column is not null")
Assert.IsEmpty(reader.GetString(4), "Fifth column value is empty")
Assert.AreEqual(GetType(System.DBNull), reader.GetFieldType(4), "Fifth column is System.DBNull")
Assert.IsTrue(reader.IsDBNull(4), "Fifth column is null")
Assert.AreEqual("False", reader.GetString(5), "Sixth column value is correct")
Assert.IsFalse(reader.GetBoolean(5), "Sixth column value is correct as Boolean")
Assert.AreEqual(GetType(Boolean), reader.GetFieldType(5), "Sixth column is System.Boolean")
Assert.IsFalse(reader.IsDBNull(5), "Sixth column is not null")
Assert.AreEqual("5", reader.GetString(6), "Seventh column value is correct")
Assert.AreEqual(Convert.ToSingle(5), reader.GetFloat(6), "Seventh column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(5), reader.GetDouble(6), "Seventh column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(5), reader.GetDecimal(6), "Seventh column value is correct as Decimal")
Assert.AreEqual(GetType(Int16), reader.GetFieldType(6), "Seventh column is System.String")
Assert.IsFalse(reader.IsDBNull(6), "Seventh column is not null")
Assert.AreEqual("34.56", reader.GetString(7), "Eighth column value is correct")
Assert.AreEqual(Convert.ToSingle(34.56), reader.GetFloat(7), "Eighth column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(34.56), reader.GetDouble(7), "Eighth column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(34.56), reader.GetDecimal(7), "Eighth column value is correct as Decimal")
Assert.AreEqual(GetType(Double), reader.GetFieldType(7), "Eighth column is System.Double")
Assert.IsFalse(reader.IsDBNull(7), "Eighth column is not null")
Assert.AreEqual("2.35", reader.GetString(8), "Nineth column value is correct")
Assert.AreEqual(Convert.ToSingle(2.35), reader.GetFloat(8), "Nineth column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(Convert.ToSingle(2.35)), reader.GetDouble(8), "Nineth column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(2.35), reader.GetDecimal(8), "Nineth column value is correct as Decimal")
Assert.AreEqual(GetType(Single), reader.GetFieldType(8), "Nineth column is System.Single")
Assert.IsFalse(reader.IsDBNull(8), "Nineth column is not null")
Assert.AreEqual("234", reader.GetString(9), "Tenth column value is correct")
Assert.AreEqual(Convert.ToInt16(234), reader.GetInt16(9), "Tenth column value is correct as Int16")
Assert.AreEqual(Convert.ToInt32(234), reader.GetInt32(9), "Tenth column value is correct as Int32")
Assert.AreEqual(Convert.ToInt32(234), reader.GetValue(9), "Tenth column value is correct as Value")
Assert.AreEqual(Convert.ToSingle(234), reader.GetFloat(9), "Tenth column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(234), reader.GetDouble(9), "Tenth column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(234), reader.GetDecimal(9), "Tenth column value is correct as Decimal")
Assert.AreEqual(GetType(Int32), reader.GetFieldType(9), "Tenth column is System.String")
Assert.IsFalse(reader.IsDBNull(9), "Tenth column is not null")
Assert.AreEqual("2", reader.GetChar(9).ToString, "GetChar returns first character")
Assert.AreEqual(Convert.ToByte(75), reader.GetByte(10), "Eleventh column value is correct as Byte")
Assert.AreEqual(Convert.ToByte(75), reader.GetValue(10), "Eleventh column value is correct as Value")
Assert.AreEqual("75", reader.GetString(10), "Eleventh column value is correct")
Assert.AreEqual(Convert.ToSingle(75), reader.GetFloat(10), "Eleventh column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(75), reader.GetDouble(10), "Eleventh column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(75), reader.GetDecimal(10), "Eleventh column value is correct as Decimal")
Assert.AreEqual(GetType(Byte), reader.GetFieldType(10), "Eleventh column is System.String")
Assert.IsFalse(reader.IsDBNull(10), "Eleventh column is not null")
Assert.IsFalse(reader.IsClosed, "Reader is still open until last read")
Assert.IsFalse(reader.Read, "End of file")
Assert.IsFalse(reader.NextResult, "NextResult always returns false")
Assert.AreEqual(-1, reader.RecordsAffected, "RecordsAffected always returns -1")
Assert.IsTrue(reader.IsClosed, "Reader is closed after final read")
Try
reader.GetData(0)
Assert.Fail("No exception thrown for GetData")
Catch ex As Exception
Assert.IsInstanceOfType(GetType(NotImplementedException), ex, "GetData threw NotImplementedException")
End Try
reader.Close()
End Sub
Private Sub ValidateHeaderedReader(ByVal reader As IDataReader)
Assert.IsInstanceOfType(GetType(CsvDataReader), reader, "Is instance of CsvDataReader")
Assert.AreEqual(11, reader.FieldCount, "Has correct number of fields")
Assert.AreEqual(0, reader.Depth, "Depth is always zero")
Assert.AreEqual("STRING", reader.GetName(0), "Has first column name")
Assert.AreEqual("String", reader.GetDataTypeName(0), "First column type name is String")
Assert.AreEqual(0, reader.GetOrdinal("String"), "First column ordinal is correct")
Assert.AreEqual("LONG", reader.GetName(1), "Has second column name")
Assert.AreEqual("String", reader.GetDataTypeName(1), "Second column type name is String")
Assert.AreEqual(1, reader.GetOrdinal("LONG"), "Second column ordinal is correct")
Assert.AreEqual("DATETIME", reader.GetName(2), "Has third column name")
Assert.AreEqual("String", reader.GetDataTypeName(2), "Third column type name is String")
Assert.AreEqual(2, reader.GetOrdinal("DATETIME"), "Third column ordinal is correct")
Assert.AreEqual("DECIMAL", reader.GetName(3), "Has fourth column name")
Assert.AreEqual("String", reader.GetDataTypeName(3), "Fourth column type name is String")
Assert.AreEqual(3, reader.GetOrdinal("DECIMAL"), "Fourth column ordinal is correct")
Assert.AreEqual("GUID", reader.GetName(4), "Has fifth column name")
Assert.AreEqual("String", reader.GetDataTypeName(4), "Fifth column type name is String")
Assert.AreEqual(4, reader.GetOrdinal("GUID"), "Fifth column ordinal is correct")
Assert.AreEqual("BOOLEAN", reader.GetName(5), "Has sixth column name")
Assert.AreEqual("String", reader.GetDataTypeName(5), "Sixth column type name is String")
Assert.AreEqual(5, reader.GetOrdinal("BOOLEAN"), "Sixth column ordinal is correct")
Assert.AreEqual("SHORT", reader.GetName(6), "Has seventh column name")
Assert.AreEqual("String", reader.GetDataTypeName(6), "Seventh column type name is String")
Assert.AreEqual(6, reader.GetOrdinal("SHORT"), "Seventh column ordinal is correct")
Assert.AreEqual("DOUBLE", reader.GetName(7), "Has eighth column name")
Assert.AreEqual("String", reader.GetDataTypeName(7), "Eighth column type name is String")
Assert.AreEqual(7, reader.GetOrdinal("DOUBLE"), "Eighth column ordinal is correct")
Assert.AreEqual("SINGLE", reader.GetName(8), "Has nineth column name")
Assert.AreEqual("String", reader.GetDataTypeName(8), "Nineth column type name is String")
Assert.AreEqual(8, reader.GetOrdinal("SINGLE"), "Nineth column ordinal is correct")
Assert.AreEqual("INTEGER", reader.GetName(9), "Has tenth column name")
Assert.AreEqual("String", reader.GetDataTypeName(9), "Tenth column type name is String")
Assert.AreEqual(9, reader.GetOrdinal("INTEGER"), "Tenth column ordinal is correct")
Assert.AreEqual("BYTE", reader.GetName(10), "Has eleventh column name")
Assert.AreEqual("String", reader.GetDataTypeName(10), "Eleventh column type name is String")
Assert.AreEqual(10, reader.GetOrdinal("BYTE"), "Eleventh column ordinal is correct")
Assert.IsTrue(reader.Read, "Read first line")
Dim values(reader.FieldCount - 1) As Object
Assert.AreEqual(11, reader.GetValues(values), "GetValues returns the number of columns")
Assert.AreEqual(11, values.Length, "Values array has corrent length")
Assert.AreEqual("Chris,topher", reader.GetString(0), "First column value is correct")
Assert.AreEqual(GetType(String), reader.GetFieldType(0), "First column is System.String")
Assert.IsFalse(reader.IsDBNull(0), "First column is not null")
Assert.AreEqual(values(0), reader.GetValue(0), "GetValues item sames as GetValue")
Assert.AreEqual(values(0), reader.Item(0), "GetValues item sames as Item")
Assert.AreEqual(values(0), reader.Item(reader.GetName(0)), "GetValues item sames as Item")
Assert.AreEqual("C", reader.GetChar(0).ToString, "GetChar returns first character")
Assert.AreEqual(12, reader.GetChars(0, Nothing, Nothing, Nothing, Nothing), "GetChars returns length when no buffer is passed")
Dim chars(reader.GetString(0).Length - 1) As Char
Assert.AreEqual(12, reader.GetChars(0, 0, chars, 0, 12), "Read characters from column")
Assert.AreEqual(12, chars.Length, "Read correct number of character")
Assert.AreEqual("C", chars(0).ToString)
Assert.AreEqual("h", chars(1).ToString)
Assert.AreEqual("r", chars(2).ToString)
Assert.AreEqual("i", chars(3).ToString)
Assert.AreEqual("s", chars(4).ToString)
Assert.AreEqual(",", chars(5).ToString)
Assert.AreEqual("t", chars(6).ToString)
Assert.AreEqual("o", chars(7).ToString)
Assert.AreEqual("p", chars(8).ToString)
Assert.AreEqual("h", chars(9).ToString)
Assert.AreEqual("e", chars(10).ToString)
Assert.AreEqual("r", chars(11).ToString)
Assert.AreEqual(12, reader.GetBytes(0, Nothing, Nothing, Nothing, Nothing), "GetBytes returns length when no buffer is passed")
'Assert.AreEqual(Convert.ToByte(Convert.ToChar("C")), reader.GetByte(0), "GetByte returns first")
Dim bytes(reader.GetString(0).Length - 1) As Byte
Assert.AreEqual(12, reader.GetBytes(0, 0, bytes, 0, 12), "Read bytes from column")
Assert.AreEqual(12, bytes.Length, "Read correct number of bytes")
Assert.AreEqual(67, bytes(0))
Assert.AreEqual(104, bytes(1))
Assert.AreEqual(114, bytes(2))
Assert.AreEqual(105, bytes(3))
Assert.AreEqual(115, bytes(4))
Assert.AreEqual(44, bytes(5))
Assert.AreEqual(116, bytes(6))
Assert.AreEqual(111, bytes(7))
Assert.AreEqual(112, bytes(8))
Assert.AreEqual(104, bytes(9))
Assert.AreEqual(101, bytes(10))
Assert.AreEqual(114, bytes(11))
Assert.AreEqual("35", reader.GetString(1), "Second column value is correct")
Assert.AreEqual(Convert.ToInt16(35), reader.GetInt16(1), "Second column value is correct as Int16")
Assert.AreEqual(Convert.ToInt32(35), reader.GetInt32(1), "Second column value is correct as Int32")
Assert.AreEqual(Convert.ToInt64(35), reader.GetInt64(1), "Second column value is correct as Int64")
Assert.AreEqual(Convert.ToSingle(35), reader.GetFloat(1), "Second column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(35), reader.GetDouble(1), "Second column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(35), reader.GetDecimal(1), "Second column value is correct as Decimal")
Assert.AreEqual(GetType(String), reader.GetFieldType(1), "Second column is System.String")
Assert.IsFalse(reader.IsDBNull(1), "Second column is not null")
Assert.AreEqual(values(1), reader.GetValue(1), "GetValues item sames as GetValue")
Assert.AreEqual(values(1), reader.Item(1), "GetValues item sames as Item")
Assert.AreEqual(values(1), reader.Item(reader.GetName(1)), "GetValues item sames as Item")
Assert.AreEqual("3", reader.GetChar(1).ToString, "GetChar returns first character")
Assert.AreEqual("1/2/2003 2:34:56", reader.GetString(2), "Third column value is correct")
Assert.AreEqual(DateTime.Parse("1/2/2003 2:34:56"), reader.GetDateTime(2), "Third column value is correct as DateTime")
Assert.AreEqual(GetType(String), reader.GetFieldType(2), "Third column is System.String")
Assert.IsFalse(reader.IsDBNull(2), "Third column is not null")
Assert.AreEqual(values(2), reader.GetValue(2), "GetValues item sames as GetValue")
Assert.AreEqual(values(2), reader.Item(2), "GetValues item sames as Item")
Assert.AreEqual(values(2), reader.Item(reader.GetName(2)), "GetValues item sames as Item")
Assert.AreEqual("1", reader.GetChar(2).ToString, "GetChar returns first character")
Assert.AreEqual("1.23", reader.GetString(3), "Fourth column value is correct")
Assert.AreEqual(Convert.ToSingle(1.23), reader.GetFloat(3), "Fourth column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(1.23), reader.GetDouble(3), "Fourth column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(1.23), reader.GetDecimal(3), "Fourth column value is correct as Decimal")
Assert.AreEqual(GetType(String), reader.GetFieldType(3), "Fourth column is System.String")
Assert.IsFalse(reader.IsDBNull(3), "Fourth column is not null")
Assert.AreEqual(values(3), reader.GetValue(3), "GetValues item sames as GetValue")
Assert.AreEqual(values(3), reader.Item(3), "GetValues item sames as Item")
Assert.AreEqual(values(3), reader.Item(reader.GetName(3)), "GetValues item sames as Item")
Assert.AreEqual("1", reader.GetChar(3).ToString, "GetChar returns first character")
Assert.AreEqual("11111111-2222-3333-4444-555555555555", reader.GetString(4), "Fifth column value is correct")
Assert.AreEqual(New Guid("11111111-2222-3333-4444-555555555555"), reader.GetGuid(4), "Fifth column value is correct as Decimal")
Assert.AreEqual(GetType(String), reader.GetFieldType(4), "Fifth column is System.String")
Assert.IsFalse(reader.IsDBNull(4), "Fifth column is not null")
Assert.AreEqual(values(4), reader.GetValue(4), "GetValues item sames as GetValue")
Assert.AreEqual(values(4), reader.Item(4), "GetValues item sames as Item")
Assert.AreEqual(values(4), reader.Item(reader.GetName(4)), "GetValues item sames as Item")
Assert.AreEqual("1", reader.GetChar(4).ToString, "GetChar returns first character")
Assert.AreEqual("True", reader.GetString(5), "Sixth column value is correct")
Assert.IsTrue(reader.GetBoolean(5), "Sixth column value is correct as Boolean")
Assert.AreEqual(GetType(String), reader.GetFieldType(5), "Sixth column is System.String")
Assert.IsFalse(reader.IsDBNull(5), "Sixth column is not null")
Assert.AreEqual(values(5), reader.GetValue(5), "GetValues item sames as GetValue")
Assert.AreEqual(values(5), reader.Item(5), "GetValues item sames as Item")
Assert.AreEqual(values(5), reader.Item(reader.GetName(5)), "GetValues item sames as Item")
Assert.AreEqual("T", reader.GetChar(5).ToString, "GetChar returns first character")
Assert.AreEqual("4", reader.GetString(6), "Seventh column value is correct")
Assert.AreEqual(Convert.ToSingle(4), reader.GetFloat(6), "Seventh column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(4), reader.GetDouble(6), "Seventh column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(4), reader.GetDecimal(6), "Seventh column value is correct as Decimal")
Assert.AreEqual(GetType(String), reader.GetFieldType(6), "Seventh column is System.String")
Assert.IsFalse(reader.IsDBNull(6), "Seventh column is not null")
Assert.AreEqual("23.45", reader.GetString(7), "Eighth column value is correct")
Assert.AreEqual(Convert.ToSingle(23.45), reader.GetFloat(7), "Eighth column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(23.45), reader.GetDouble(7), "Eighth column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(23.45), reader.GetDecimal(7), "Eighth column value is correct as String")
Assert.AreEqual(GetType(String), reader.GetFieldType(7), "Eighth column is System.String")
Assert.IsFalse(reader.IsDBNull(7), "Eighth column is not null")
Assert.AreEqual("1.23", reader.GetString(8), "Nineth column value is correct")
Assert.AreEqual(Convert.ToSingle(1.23), reader.GetFloat(8), "Nineth column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(1.23), reader.GetDouble(8), "Nineth column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(1.23), reader.GetDecimal(8), "Nineth column value is correct as Decimal")
Assert.AreEqual(GetType(String), reader.GetFieldType(8), "Nineth column is System.String")
Assert.IsFalse(reader.IsDBNull(8), "Nineth column is not null")
Assert.AreEqual("123", reader.GetString(9), "Tenth column value is correct")
Assert.AreEqual(Convert.ToInt16(123), reader.GetInt16(9), "Tenth column value is correct as Int16")
Assert.AreEqual(Convert.ToInt32(123), reader.GetInt32(9), "Tenth column value is correct as Int32")
Assert.AreEqual("123", reader.GetValue(9), "Tenth column value is correct as Value")
Assert.AreEqual(Convert.ToSingle(123), reader.GetFloat(9), "Tenth column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(123), reader.GetDouble(9), "Tenth column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(123), reader.GetDecimal(9), "Tenth column value is correct as Decimal")
Assert.AreEqual(GetType(String), reader.GetFieldType(9), "Tenth column is System.String")
Assert.IsFalse(reader.IsDBNull(9), "Tenth column is not null")
Assert.AreEqual(values(9), reader.GetValue(9), "GetValues item sames as GetValue")
Assert.AreEqual(values(9), reader.Item(9), "GetValues item sames as Item")
Assert.AreEqual(values(9), reader.Item(reader.GetName(9)), "GetValues item sames as Item")
Assert.AreEqual("1", reader.GetChar(9).ToString, "GetChar returns first character")
Assert.AreEqual(Convert.ToByte(65), reader.GetByte(10), "Eleventh column value is correct as Byte")
Assert.AreEqual("65", reader.GetValue(10), "Eleventh column value is correct as Value")
Assert.AreEqual("65", reader.GetString(10), "Eleventh column value is correct")
Assert.AreEqual(Convert.ToSingle(65), reader.GetFloat(10), "Eleventh column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(65), reader.GetDouble(10), "Eleventh column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(65), reader.GetDecimal(10), "Eleventh column value is correct as Decimal")
Assert.AreEqual(GetType(String), reader.GetFieldType(10), "Eleventh column is System.String")
Assert.IsFalse(reader.IsDBNull(10), "Eleventh column is not null")
Assert.IsTrue(reader.Read, "Read second line")
Array.Clear(values, 0, values.Length)
Array.Resize(values, 2)
Assert.AreEqual(2, reader.GetValues(values), "GetValues returns the number value slize")
Assert.AreEqual(2, values.Length, "Values array has corrent length")
Assert.IsEmpty(reader.GetString(0), "First column value is empty")
Assert.AreEqual(GetType(System.DBNull), reader.GetFieldType(0), "First column is System.DBNull")
Assert.IsTrue(reader.IsDBNull(0), "First column is null")
Assert.AreEqual(values(0), reader.GetValue(0), "GetValues item sames as GetValue")
Assert.AreEqual(Char.MinValue, reader.GetChar(0), "GetChar returns Char.MinValue for DbNull")
Assert.AreEqual("23", reader.GetString(1), "Second column value is correct")
Assert.AreEqual(Convert.ToInt16(23), reader.GetInt16(1), "Second column value is correct as Int16")
Assert.AreEqual(Convert.ToInt32(23), reader.GetInt32(1), "Second column value is correct as Int32")
Assert.AreEqual(Convert.ToInt64(23), reader.GetInt64(1), "Second column value is correct as Int64")
Assert.AreEqual(Convert.ToSingle(23), reader.GetFloat(1), "Second column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(23), reader.GetDouble(1), "Second column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(23), reader.GetDecimal(1), "Second column value is correct as Decimal")
Assert.AreEqual(GetType(String), reader.GetFieldType(1), "Second column is System.String")
Assert.IsFalse(reader.IsDBNull(1), "Second column is not null")
Assert.AreEqual(values(1), reader.GetValue(1), "GetValues item sames as GetValue")
Assert.AreEqual("2/3/2004", reader.GetString(2), "Third column value is correct")
Assert.AreEqual(DateTime.Parse("2/3/2004"), reader.GetDateTime(2), "Third column value is correct as DateTime")
Assert.AreEqual(GetType(String), reader.GetFieldType(2), "Third column is System.String")
Assert.IsFalse(reader.IsDBNull(2), "Third column is not null")
Assert.AreEqual("1.342", reader.GetString(3), "Fourth column value is correct")
Assert.AreEqual(Convert.ToSingle(1.342), reader.GetFloat(3), "Fourth column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(1.342), reader.GetDouble(3), "Fourth column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(1.342), reader.GetDecimal(3), "Fourth column value is correct as Decimal")
Assert.AreEqual(GetType(String), reader.GetFieldType(3), "Fourth column is System.String")
Assert.IsFalse(reader.IsDBNull(3), "Fourth column is not null")
Assert.IsEmpty(reader.GetString(4), "Fifth column value is empty")
Assert.AreEqual(GetType(System.DBNull), reader.GetFieldType(4), "Fifth column is System.DBNull")
Assert.IsTrue(reader.IsDBNull(4), "Fifth column is null")
Assert.AreEqual("False", reader.GetString(5), "Sixth column value is correct")
Assert.IsFalse(reader.GetBoolean(5), "Sixth column value is correct as Boolean")
Assert.AreEqual(GetType(String), reader.GetFieldType(5), "Sixth column is System.String")
Assert.IsFalse(reader.IsDBNull(5), "Sixth column is not null")
Assert.AreEqual("5", reader.GetString(6), "Seventh column value is correct")
Assert.AreEqual(Convert.ToSingle(5), reader.GetFloat(6), "Seventh column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(5), reader.GetDouble(6), "Seventh column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(5), reader.GetDecimal(6), "Seventh column value is correct as Decimal")
Assert.AreEqual(GetType(String), reader.GetFieldType(6), "Seventh column is System.String")
Assert.IsFalse(reader.IsDBNull(6), "Seventh column is not null")
Assert.AreEqual("34.56", reader.GetString(7), "Eighth column value is correct")
Assert.AreEqual(Convert.ToSingle(34.56), reader.GetFloat(7), "Eighth column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(34.56), reader.GetDouble(7), "Eighth column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(34.56), reader.GetDecimal(7), "Eighth column value is correct as Decimal")
Assert.AreEqual(GetType(String), reader.GetFieldType(7), "Eighth column is System.Double")
Assert.IsFalse(reader.IsDBNull(7), "Eighth column is not null")
Assert.AreEqual("2.35", reader.GetString(8), "Nineth column value is correct")
Assert.AreEqual(Convert.ToSingle(2.35), reader.GetFloat(8), "Nineth column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(2.35), reader.GetDouble(8), "Nineth column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(2.35), reader.GetDecimal(8), "Nineth column value is correct as Decimal")
Assert.AreEqual(GetType(String), reader.GetFieldType(8), "Nineth column is System.Single")
Assert.IsFalse(reader.IsDBNull(8), "Nineth column is not null")
Assert.AreEqual("234", reader.GetString(9), "Tenth column value is correct")
Assert.AreEqual(Convert.ToInt16(234), reader.GetInt16(9), "Tenth column value is correct as Int16")
Assert.AreEqual(Convert.ToInt32(234), reader.GetInt32(9), "Tenth column value is correct as Int32")
Assert.AreEqual("234", reader.GetValue(9), "Tenth column value is correct as Value")
Assert.AreEqual(Convert.ToSingle(234), reader.GetFloat(9), "Tenth column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(234), reader.GetDouble(9), "Tenth column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(234), reader.GetDecimal(9), "Tenth column value is correct as Decimal")
Assert.AreEqual(GetType(String), reader.GetFieldType(9), "Tenth column is System.String")
Assert.IsFalse(reader.IsDBNull(9), "Tenth column is not null")
Assert.AreEqual("2", reader.GetChar(9).ToString, "GetChar returns first character")
Assert.AreEqual(Convert.ToByte(75), reader.GetByte(10), "Eleventh column value is correct as Byte")
Assert.AreEqual("75", reader.GetValue(10), "Eleventh column value is correct as Value")
Assert.AreEqual("75", reader.GetString(10), "Eleventh column value is correct")
Assert.AreEqual(Convert.ToSingle(75), reader.GetFloat(10), "Eleventh column value is correct as Float/Single")
Assert.AreEqual(Convert.ToDouble(75), reader.GetDouble(10), "Eleventh column value is correct as Double")
Assert.AreEqual(Convert.ToDecimal(75), reader.GetDecimal(10), "Eleventh column value is correct as Decimal")
Assert.AreEqual(GetType(String), reader.GetFieldType(10), "Eleventh column is System.String")
Assert.IsFalse(reader.IsDBNull(10), "Eleventh column is not null")
Assert.IsFalse(reader.IsClosed, "Reader is still open until last read")
Assert.IsFalse(reader.Read, "End of file")
Assert.IsFalse(reader.NextResult, "NextResult always returns false")
Assert.AreEqual(-1, reader.RecordsAffected, "RecordsAffected always returns -1")
Assert.IsTrue(reader.IsClosed, "Reader is closed after final read")
Try
reader.GetData(0)
Assert.Fail("No exception thrown for GetData")
Catch ex As Exception
Assert.IsInstanceOfType(GetType(NotImplementedException), ex, "GetData threw NotImplementedException")
End Try
End Sub
End Class
