+ test for last commit

git-svn-id: trunk@8866 -

.gitattributes

@@ -8481,6 +8481,7 @@ tests/webtbs/tw9385.pp svneol=native#text/plain
 tests/webtbs/tw9419.pp svneol=native#text/plain
 tests/webtbs/tw9461.pp svneol=native#text/plain
 tests/webtbs/tw9509.pp svneol=native#text/plain
+tests/webtbs/tw9601.pp svneol=native#text/plain
 tests/webtbs/tw9667.pp svneol=native#text/plain
 tests/webtbs/tw9672.pp svneol=native#text/plain
 tests/webtbs/tw9673.pp -text

tests/webtbs/tw9601.pp

@@ -0,0 +1,24 @@
+{$mode objfpc}
+uses
+  sysutils,typinfo;
+{$M+}
+
+type
+  TMyClass = class(TObject)
+  private
+    FValue: Currency;
+  published
+    property Value:Currency read FValue write FValue;
+  end;
+
+var
+  MyClass :TMyClass;
+begin
+  MyClass := TMyClass.Create;
+  SetFloatProp(MyClass, 'Value', 1);
+  if MyClass.Value<>1 then
+    halt(1);
+  WriteLn(CurrToStr(MyClass.Value));
+  MyClass.Free;
+  writeln('ok');
+end.