瀏覽代碼

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

git-svn-id: trunk@5737 -

peter 19 年之前
父節點
當前提交
f972fdac2d
共有 1 個文件被更改,包括 4 次插入2 次删除
  1. 4 2
      tests/test/tenum2.pp

+ 4 - 2
tests/test/tenum2.pp

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