فهرست منبع

* fix test to check result properly as pointed out by Bi0T1N in the bug tracker

git-svn-id: trunk@45739 -
florian 5 سال پیش
والد
کامیت
f65f1bd802
1فایلهای تغییر یافته به همراه3 افزوده شده و 0 حذف شده
  1. 3 0
      tests/webtbs/tw37301.pp

+ 3 - 0
tests/webtbs/tw37301.pp

@@ -10,4 +10,7 @@ begin
   b := 0;
   w := abs(i-b);
   WriteLn(w);
+  if w<>53 then
+    halt(1);
+  Writeln('ok');
 end.