فهرست منبع

Merged revisions 183 via svnmerge from
/trunk

git-svn-id: branches/fixes_2_0@351 -

peter 20 سال پیش
والد
کامیت
6a41595b42
2فایلهای تغییر یافته به همراه13 افزوده شده و 0 حذف شده
  1. 1 0
      .gitattributes
  2. 12 0
      tests/webtbs/tw4038.pp

+ 1 - 0
.gitattributes

@@ -5911,6 +5911,7 @@ tests/webtbs/tw3973.pp svneol=native#text/plain
 tests/webtbs/tw3977.pp svneol=native#text/plain
 tests/webtbs/tw3977.txt svneol=native#text/plain
 tests/webtbs/tw4013.pp svneol=native#text/plain
+tests/webtbs/tw4038.pp svneol=native#text/plain
 tests/webtbs/tw4055.pp svneol=native#text/plain
 tests/webtbs/tw4058.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain

+ 12 - 0
tests/webtbs/tw4038.pp

@@ -0,0 +1,12 @@
+{ Source provided for Free Pascal Bug Report 4038 }
+{ Submitted by "Antonio Marti" on  2005-06-01 }
+{ e-mail: [email protected] }
+uses sysutils;
+var b: byte;
+begin
+  writeln(executeprocess('echo','works1 works2 works3'));
+  writeln(executeprocess('echo','works1 works2 works3'));
+  writeln;
+  for b:=1 to 2 do
+    writeln(executeprocess('echo','fails1 fails2 fails3'));
+end.