Przeglądaj źródła

+ using items of aliased enum type in other unit test

git-svn-id: trunk@5527 -
micha 18 lat temu
rodzic
commit
d0416758fb
4 zmienionych plików z 36 dodań i 0 usunięć
  1. 3 0
      .gitattributes
  2. 10 0
      tests/test/tenum2.pp
  3. 13 0
      tests/test/uenum2a.pp
  4. 10 0
      tests/test/uenum2b.pp

+ 3 - 0
.gitattributes

@@ -6473,6 +6473,7 @@ tests/test/tclass8.pp svneol=native#text/plain
 tests/test/tclrprop.pp svneol=native#text/plain
 tests/test/tendian1.pp svneol=native#text/plain
 tests/test/tenum1.pp svneol=native#text/plain
+tests/test/tenum2.pp svneol=native#text/plain
 tests/test/testcmem.pp svneol=native#text/plain
 tests/test/testda1.pp svneol=native#text/plain
 tests/test/testfpuc.pp svneol=native#text/plain
@@ -6645,6 +6646,8 @@ tests/test/tvarset1.pp svneol=native#text/plain
 tests/test/twide1.pp svneol=native#text/plain
 tests/test/twide2.pp svneol=native#text/plain
 tests/test/uabstrcl.pp svneol=native#text/plain
+tests/test/uenum2a.pp svneol=native#text/plain
+tests/test/uenum2b.pp svneol=native#text/plain
 tests/test/ugeneric10.pp svneol=native#text/plain
 tests/test/ugeneric3.pp svneol=native#text/plain
 tests/test/ugeneric4.pp svneol=native#text/plain

+ 10 - 0
tests/test/tenum2.pp

@@ -0,0 +1,10 @@
+uses
+  uenum2a;
+
+var
+  e: tenum;
+begin
+  e := tone;
+  inc(e);
+  writeln(e);
+end;

+ 13 - 0
tests/test/uenum2a.pp

@@ -0,0 +1,13 @@
+unit uenum2a;
+
+interface
+
+uses
+  uenum2b;
+
+type
+  tenum = uenum2b.tenum;
+
+implementation
+
+end.

+ 10 - 0
tests/test/uenum2b.pp

@@ -0,0 +1,10 @@
+unit uenum2b;
+
+interface
+
+type
+  tenum = (tone, ttwo, tthree);
+
+implementation
+
+end.