+ test for #10045

git-svn-id: trunk@11065 -

.gitattributes

@@ -7385,6 +7385,7 @@ tests/test/opt/tretopt.pp svneol=native#text/plain
 tests/test/opt/tspace.pp svneol=native#text/plain
 tests/test/packages/fcl-registry/tregistry1.pp svneol=native#text/plain
 tests/test/packages/hash/tmdtest.pp svneol=native#text/plain
+tests/test/packages/webtbs/tw10045.pp svneol=native#text/plain
 tests/test/packages/webtbs/tw1808.pp svneol=native#text/plain
 tests/test/packages/webtbs/tw3820.pp svneol=native#text/plain
 tests/test/packages/win-base/tdispvar1.pp svneol=native#text/plain

tests/test/packages/webtbs/tw10045.pp

@@ -0,0 +1,31 @@
+uses regexpr;
+
+var
+  engine : tRegexprEngine;
+  source, dest : ansistring;
+  count : longint;
+begin
+  if not GenerateRegExprEngine( 'foo', [], engine) then
+  begin
+    writeln( 'Failed to generate regex. engine.' );
+    halt(1)
+  end;
+
+  source := 'foo bur a';
+  count := RegExprReplaceAll(engine, source, '@', dest);
+  if (count<>1) or (dest<>'@ bur a') then
+    halt(1);
+
+  source := 'xfoo bur a';
+  count := RegExprReplaceAll(engine, source, '@', dest);
+  if (count<>1) or (dest<>'x@ bur a') then
+    halt(1);
+
+  source := 'foo bur a';
+  count := RegExprReplaceAll(engine, source, '@', dest);
+  if (count<>1) or (dest<>'@ bur a') then
+    halt(1);
+
+  DestroyRegExprEngine( engine );
+  writeln('ok');
+end.