Тестирование CountOddEvenIntFileElems

Материал из Вики ИТ мехмата ЮФУ
Версия от 11:49, 17 февраля 2016; Ulysses (обсуждение | вклад) (Новая страница: «<source lang="pascal"> var oddCnt, evenCnt: integer; var fname: string; try fname := 'empty-file.dat'; // пустой файл CreateRandomIntFile(fname, …»)

(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск
var oddCnt, evenCnt: integer;
var fname: string;

try
  fname := 'empty-file.dat';
  // пустой файл
  CreateRandomIntFile(fname, 0); 
  CountOddEvenIntFileElems(fname, evenCnt, oddCnt);
  Assert(evenCnt = 0,   'Test #1.1');
  Assert(oddCnt = 0,    'Test #1.2');
except
  writeln('File error in Test #1');
end;

try
  fname := '5-1.dat';
  // файл из одной пятёрки
  CreateRandomIntFile(fname, 1, 5, 5);  
  CountOddEvenIntFileElems(fname, evenCnt, oddCnt);
  Assert(evenCnt = 0,   'Test #2.1');
  Assert(oddCnt = 1,    'Test #2.2');
except
  writeln('File error in Test #2');
end;

try
  fname := '5-4.dat';
  // файл из четырёх пятёрок
  CreateRandomIntFile(fname, 4, 5, 5);  
  CountOddEvenIntFileElems(fname, evenCnt, oddCnt);
  Assert(evenCnt = 0,   'Test #3.1');
  Assert(oddCnt = 4,    'Test #3.2');
except
  writeln('File error in Test #3');
end;

try
  fname := '8-2.dat';
  // файл из двух минус восьмёрок
  CreateRandomIntFile(fname, 2, -8, -8);  
  CountOddEvenIntFileElems(fname, evenCnt, oddCnt);
  Assert(evenCnt = 2,   'Test #4.1');
  Assert(oddCnt = 0,    'Test #4.2');
except
  writeln('File error in Test #4');
end;