Пример завершения теста
После завершения тестирования необходимо убедиться, что экземпляр класса удалён, а выходной файл закрыт. Удаление экземпляров класса важная процедура, которая позволяет избежать утечек памяти. Далее приведён полный код процедуры тестирования класса Employee.
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.
delete object Emp.
/* создание нового экземпляра класса */
Emp = new Employee().
assign
Phones[1] = "781-358-3696"
Phones[2] = "781-335-6895"
Phones[3] = "505-257-2227"
.
Emp:Initialize(
input 1002,
input "John",
input "Brown",
input "22 Maple Street",
input "01730-4563",
input Phones,
input 40,
input "SalesRepresentative").
Emp:SetVacationHours(input 100).
message Emp:GetInfo() skip.
delete object Emp.
output close.
return.