pierre 23 лет назад
Родитель
Сommit
fa934bd43f
1 измененных файлов с 5 добавлено и 2 удалено
  1. 5 2
      tests/test/texception3.pp

+ 5 - 2
tests/test/texception3.pp

@@ -769,8 +769,11 @@ begin
    if i<>2 then
      do_error(1119);
 
-   if memavail<>startmemavail then
-     do_error(99999);
+   if memavail<startmemavail then
+     begin
+       writeln('exception generates memory holes');
+       do_error(99999);
+     end;
    writeln('Test successfully passed');
    halt(0);
 end.