>'-------------------------------------------------------------
>'Создает массив данных (вместо использования объектов DataSet)
>'-------------------------------------------------------------
>Private Sub createDataSet()
> '=============================================
> '1. Создать пространство для размещения данных
> '=============================================
> ReDim m_data_creditCards(DUMMY_ROWS_OF_DATA)
> ReDim m_data_names(DUMMY_ROWS_OF_DATA)
> ReDim m_data_travelDates(DUMMY_ROWS_OF_DATA)
> '----------------------
> 'Добавить строки данных
> '----------------------
> Dim buildTestString As System.Text.StringBuilder
> buildTestString = New System.Text.StringBuilder
> Dim addItemsCount As Integer
> For addItemsCount = 0 To DUMMY_ROWS_OF_DATA
> 'Выбрать день отъезда пассажира
> m_data_travelDates(addItemsCount) = _
> System.DateTime.Today.AddDays(addItemsCount)
> '---------------------
> 'Выбрать имя пассажира
> '---------------------
> 'Очистить строку
> buildTestString.Length = 0
> buildTestString.Append("TestPersonName")
> buildTestString.Append(addItemsCount)
> m_data_names(addItemsCount) = buildTestString.ToString()
> '-------------------------------------------------------
> 'Связать с пассажиром текстовый номер кредитной карточки
> '-------------------------------------------------------
> 'Строка значения третьего столбца набора данных
> buildTestString.Length = 0
> buildTestString.Append("IvoCard-000-000-0000-")
> buildTestString.Append(addItemsCount)
> m_data_creditCards(addItemsCount) = _
> buildTestString.ToString()
> Next
> 'Добавить элемент, поиск которого мы хотим выполнить в нашем тесте.
> 'Выбрать день для значения в первом столбце данных
> m_data_travelDates(DUMMY_ROWS_OF_DATA) = _
> System.DateTime.Today
> 'Строка для второго столбца данных
> m_data_names(DUMMY_ROWS OF DATA) = "Ms. TestPerson"
> 'Строка с идентификатором кредитной карточки
> m_data_creditCards(DUMMY_ROWS_OF_DATA) = TEST_CREDIT_CARD
>End Sub
>'---------------
>'Выполнить тест.
>'---------------
>Sub changeDayOfTravel_test()
> 'Отобразить курсор ожидания
> System.Windows.Forms.Cursor.Current = _
> System.Windows.Forms.Cursors.WaitCursor
> 'Начать с известной даты.
> Dim newDate As System.DateTime newDate = System.DateTime.Today
> changeDayOfTravel_CustomArrays(TEST_CREDIT_CARD, newDate)
> 'ТОЛЬКО В ЦЕЛЯХ ТЕСТИРОВАНИЯ!!!
> 'HE СЛЕДУЕТ использовать вызовы сборщика мусора в готовом программном
> 'коде. Это ЗАМЕДЛЯЕТ работу приложения.
> System.GC.Collect()
> Const testNumber As Integer = 0
> 'Запустить таймер теста
> PerformanceSampling.StartSample(testNumber, "Custom Array implementation")