Browse Source

* non-zero exit code on failure

git-svn-id: trunk@46661 -
Jonas Maebe 5 years ago
parent
commit
ac18c0090a
1 changed files with 2 additions and 0 deletions
  1. 2 0
      tests/webtbs/tw37465.pp

+ 2 - 0
tests/webtbs/tw37465.pp

@@ -13,4 +13,6 @@ begin
   s:=#42;
   foo(s[1]);
   Writeln(ord(s[1]));
+  if ord(s[1])<>32 then
+    halt(1);
 end.