Browse Source

* fixed typos
* test must fail, this is also compatible with delphi

git-svn-id: trunk@5737 -

peter 19 years ago
parent
commit
f972fdac2d
1 changed files with 4 additions and 2 deletions
  1. 4 2
      tests/test/tenum2.pp

+ 4 - 2
tests/test/tenum2.pp

@@ -1,3 +1,5 @@
+{ %fail }
+
 uses
   uenum2a;
 
@@ -6,5 +8,5 @@ var
 begin
   e := tone;
   inc(e);
-  writeln(e);
-end;
+  writeln(byte(e));
+end.