From bdb7c4f84f7b03d2915860121b67d39ad03e189e Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 8 Jan 2003 15:56:42 +0000
Subject: [PATCH]   * add check if pos(ansistring) still works

---
 tests/tbs/tb0429.pp | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/tests/tbs/tb0429.pp b/tests/tbs/tb0429.pp
index 77b19adf8c..c5a15dcba0 100644
--- a/tests/tbs/tb0429.pp
+++ b/tests/tbs/tb0429.pp
@@ -19,14 +19,27 @@ end;
 
 var
   w : widestring;
+  s : ansistring;
+  i : longint;
 begin
   err:=true;
   { this should choosse the shortstring version }
   lowercase(w);
   if err then
    begin
-     writeln('ERROR!');
+     writeln('Wrong lowercase Error!');
      halt(1);
    end;
+
+   { check if ansistring pos() call is not broken }
+   s:='';
+   for i:=1 to 300 do s:=s+'.';
+   s:=s+'test';
+   if pos('test',s)<>301 then
+    begin
+      writeln('Pos(ansistring) Error!');
+      halt(1);
+    end;
+
 end.