From 55f79a37b6b58f1c360c5bba78d80aba99346598 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 17 May 2007 20:28:24 +0000
Subject: [PATCH]    * new test

git-svn-id: trunk@7382 -
---
 .gitattributes         |  1 +
 tests/webtbs/tw8523.pp | 15 +++++++++++++++
 2 files changed, 16 insertions(+)
 create mode 100644 tests/webtbs/tw8523.pp

diff --git a/.gitattributes b/.gitattributes
index 6a4d60c263..118e35112a 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -8212,6 +8212,7 @@ tests/webtbs/tw8434.pp svneol=native#text/plain
 tests/webtbs/tw8462.pp svneol=native#text/plain
 tests/webtbs/tw8465.pp svneol=native#text/plain
 tests/webtbs/tw8513.pp svneol=native#text/plain
+tests/webtbs/tw8523.pp svneol=native#text/plain
 tests/webtbs/tw8525.pp svneol=native#text/plain
 tests/webtbs/tw8573.pp svneol=native#text/plain
 tests/webtbs/tw8615.pp svneol=native#text/plain
diff --git a/tests/webtbs/tw8523.pp b/tests/webtbs/tw8523.pp
new file mode 100644
index 0000000000..cc6b2662d9
--- /dev/null
+++ b/tests/webtbs/tw8523.pp
@@ -0,0 +1,15 @@
+{$MODE DELPHI}
+
+type
+TDADataTable =class(TObject)
+public
+function GetAsCurrency(Index: integer): Currency;safecall;
+end;
+
+function TDADataTable.GetAsCurrency(Index: integer): Currency;
+begin
+Result:=0;
+end;
+
+begin
+end.