Răsfoiți Sursa

* added test for bug #11711, to help fix regression for 12385

git-svn-id: trunk@11974 -
marco 17 ani în urmă
părinte
comite
617505c4ea
2 a modificat fișierele cu 10 adăugiri și 0 ștergeri
  1. 1 0
      .gitattributes
  2. 9 0
      tests/webtbs/tw11711.pp

+ 1 - 0
.gitattributes

@@ -8559,6 +8559,7 @@ tests/webtbs/tw11568.pp svneol=native#text/plain
 tests/webtbs/tw1157.pp svneol=native#text/plain
 tests/webtbs/tw1157b.pp svneol=native#text/plain
 tests/webtbs/tw11619.pp svneol=native#text/plain
+tests/webtbs/tw11711.pp svneol=native#text/plain
 tests/webtbs/tw11762.pp svneol=native#text/plain
 tests/webtbs/tw11763.pp svneol=native#text/plain
 tests/webtbs/tw1181.pp svneol=native#text/plain

+ 9 - 0
tests/webtbs/tw11711.pp

@@ -0,0 +1,9 @@
+uses sysutils;
+
+var
+  cs:String;
+begin
+  cs:=FormatFloat('000.000',-1);
+  if (cs<>'-001'+DecimalSeparator+'000') then
+    halt(1);
+end.