Текст головной программы
program POrderedList;
{$APPTYPE CONSOLE}
uses
SysUtils,
UOrderedList,
UList,
UFrac,
Windows;
const path='OrdList.dat';
var O: ordlist; z:OrdIntType;
begin
SetConsoleCp(1251); //Кирилизация
SetConsoleOutputCp(1251);
o:=CreateL;
assignFile(z,path);
mainmenu(o,z); //Вызов основного меню
readln;
end.
-
Тестовые наборы данных для тестирования типа данных
|
Тестовый набор 1 для тестирования операции Пуст (OrdIsEmpty) |
||||
|
Номер теста |
Исходные данные |
Ожидаемый результат |
||
|
Вход |
Состояние списка |
Возвращаемое значение |
Состояние списка |
|
|
1 |
|
() |
true |
() |
|
2 |
1, 2 |
(1,2) |
false |
(1,2) |
|
3 |
1, 4 |
(1,2;1,4) |
false |
(1,2;1,4) |
|
4 |
1, 3 |
(1,2;1,3;1,4) |
false |
(1,2;1,3;1,4) |
|
Тестовый набор 2 для тестирования операции Вставить (Inserto) |
|||||
|
Номер теста |
Исходные данные |
Ожидаемый результат |
|||
|
Вход |
Состояние списка |
Возвращаемое значение |
Состояние списка |
||
|
1 |
1, 2 |
() |
Нет. |
(1,2) |
|
|
2 |
1, 4 |
(1,2) |
Нет. |
(1,2;1,4) |
|
|
3 |
1, 3 |
(1,2;1,4) |
Нет. |
(1,2;1,3;1,4) |
|
|
4 |
2, 5 |
(1,2;1,3;1,4) |
Нет. |
(1,2;2,5;1,3;1,4) |
|
|
5 |
7, 8 |
(1,2;2,5;1,3;1,4) |
Нет. |
(7,8;1,2;2,5;1,3;1,4) |
|
|
Тестовый набор 3 для тестирования операции Опустошить (OrdEmptyList) |
||||
|
Номер теста |
Исходные данные |
Ожидаемый результат |
||
|
Вход |
Состояние списка |
Возвращаемое значение |
Состояние списка |
|
|
1 |
|
() |
Нет. |
() |
|
2 |
|
(1,2) |
Нет. |
() |
|
3 |
|
(1,2;1,3;1,4) |
Нет. |
() |
|
Тестовый набор 4 для тестирования операции Элемент (OrdFindElm) |
||||
|
Номер теста |
Исходные данные |
Ожидаемый результат |
||
|
Вход |
Состояние списка |
Возвращаемое значение |
Состояние списка |
|
|
1 |
0 |
(7,8;1,2;2,5;1,3;1,4) |
7/8 |
(7,8;1,2;2,5;1,3;1,4) |
|
2 |
1 |
(7,8;1,2;2,5;1,3;1,4) |
1/2 |
(7,8;1,2;2,5;1,3;1,4) |
|
3 |
2 |
(7,8;1,2;2,5;1,3;1,4) |
2/5 |
(7,8;1,2;2,5;1,3;1,4) |
|
4 |
3 |
(7,8;1,2;2,5;1,3;1,4) |
1/3 |
(7,8;1,2;2,5;1,3;1,4) |
|
5 |
4 |
(7,8;1,2;2,5;1,3;1,4) |
1/4 |
(7,8;1,2;2,5;1,3;1,4) |
|
Тестовый набор 5 для тестирования операции Элементов (OrdSize) |
|||||
|
Номер теста |
Исходные данные |
Ожидаемый результат |
|||
|
Вход |
Состояние списка |
Возвращаемое значение |
Состояние списка |
||
|
1 |
|
() |
0 |
() |
|
|
2 |
|
(1,2) |
1 |
(1,2) |
|
|
3 |
|
(1,2;1,4) |
2 |
(1,2;1,4) |
|
|
4 |
|
(1,2;1,3;1,4) |
3 |
(1,2;1,3;1,4) |
|
|
5 |
|
(1,2;2,5;1,3;1,4) |
4 |
(1,2;2,5;1,3;1,4) |
|
|
Тестовый набор 6 для тестирования операции Список в строку (OrdInString) |
|||||
|
Номер теста |
Исходные данные |
Ожидаемый результат |
|||
|
Вход |
Состояние списка |
Возвращаемое значение |
Состояние списка |
||
|
1 |
|
() |
0 |
List is empty |
|
|
2 |
|
(1,2) |
1 |
1/2 |
|
|
3 |
|
(1,2;1,4) |
2 |
1/2, 1/4 |
|
|
4 |
|
(1,2;1,3;1,4) |
3 |
1/2, 1/3, 1/4 |
|
|
5 |
|
(1,2;2,5;1,3;1,4) |
4 |
1/2, 2/5, 1/3, 1/4 |
|