Browse Source

+ compiled test for win32
* use writeln to show the test result as well for easier manual testing

git-svn-id: trunk@14191 -

florian 15 years ago
parent
commit
509447c4b9
3 changed files with 2 additions and 0 deletions
  1. 1 0
      .gitattributes
  2. BIN
      tests/test/cg/obj/win32/i386/cpptcl1.o
  3. 1 0
      tests/test/cg/tcppcl1.pp

+ 1 - 0
.gitattributes

@@ -8328,6 +8328,7 @@ tests/test/cg/obj/stdint.h svneol=native#text/plain
 tests/test/cg/obj/tcext3.c -text
 tests/test/cg/obj/tcext3.c -text
 tests/test/cg/obj/tcext4.c -text
 tests/test/cg/obj/tcext4.c -text
 tests/test/cg/obj/tcext5.c -text
 tests/test/cg/obj/tcext5.c -text
+tests/test/cg/obj/win32/i386/cpptcl1.o -text
 tests/test/cg/obj/win32/i386/ctest.o -text
 tests/test/cg/obj/win32/i386/ctest.o -text
 tests/test/cg/obj/win32/i386/tcext3.o -text
 tests/test/cg/obj/win32/i386/tcext3.o -text
 tests/test/cg/obj/win32/i386/tcext4.o -text
 tests/test/cg/obj/win32/i386/tcext4.o -text

BIN
tests/test/cg/obj/win32/i386/cpptcl1.o


+ 1 - 0
tests/test/cg/tcppcl1.pp

@@ -90,6 +90,7 @@ begin
     TestClass.Test26(Nil, c, 3.1416);
     TestClass.Test26(Nil, c, 3.1416);
   except
   except
     ExitCode := 1;
     ExitCode := 1;
+    writeln('error');
   end;
   end;
 end.
 end.