Пример тестирования экземпляра класса
После подготовки в процедуре тестирования необходимо написать код, который будет проверять каждый созданный вами экземпляр. Вы должны вызвать каждый метод, чтоб убедиться в правильности его работы. По мере необходимости вы можете использовать операторы message для записи данных в выходной файл, которые помогут вам документировать поведение вашего класса во время тестирования.
В следующем примере был добавлен код для присвоения значений элементам Phones и вызова метода Initialize () класса Employee, передающего значения для инициализации экземпляра. Далее следует оператор message, который запишет данные, возвращённые методом GetInfo () в выходной файл.
block-level on error undo, throw.
using Sandbox.TestClasses.Employee.
/* переменная для хранения экземпляра Employee */
define variable Emp as Employee no-undo.
/* переменная для хранения массива телефонных номеров */
define variable Phones as character extent 3 no-undo.
/* подготовка файла для записи данных*/
output to "TesеEmployee.out".
/* создание экземпляра класса */
Emp = new Employee().
assign
Phones[1] = "617-284-5937"
Phones[2] = "508-394-3928"
Phones[3] = "508-294-3927"
.
Emp:Initialize(
input 1001,
input "Jane",
input "Smith",
input "294 Oak Street",
input "02067-2294",
input Phones,
input 40,
input "SalesRepresentative").
message Emp:GetInfo() skip.
/* прочие действия... */
После этого, если есть ещё что проверить, вы можете использовать тот же экземпляр для тестирования большего количества общедоступных элементов данных и методов класса. Если вы хотите протестировать другой конструктор или экземпляр, инициализированный по-другому, вы можете удалить этот экземпляр Emp, написав:
delete object Emp.
После этого создайте новый экземпляр, назначив его ссылку на переменную Emp для проверки нового экземпляра с другими значениями.