From 09fd52791a6bf0180a9e9b60ced34a802f00a179 Mon Sep 17 00:00:00 2001
From: paul <paul@idefix.freepascal.org>
Date: Thu, 14 Jan 2010 15:04:45 +0000
Subject: [PATCH] tests: add fail test for class properties
git-svn-id: trunk@14639 -
---
.gitattributes | 1 +
tests/test/tclass14a.pp | 18 ++++++++++++++++++
2 files changed, 19 insertions(+)
create mode 100644 tests/test/tclass14a.pp
diff --git a/.gitattributes b/.gitattributes
index 34e980d08e..da96c5bb26 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -8899,6 +8899,7 @@ tests/test/tclass12a.pp svneol=native#text/pascal
tests/test/tclass12b.pp svneol=native#text/pascal
tests/test/tclass12c.pp svneol=native#text/pascal
tests/test/tclass13.pp svneol=native#text/pascal
+tests/test/tclass14a.pp svneol=native#text/pascal
tests/test/tclass2.pp svneol=native#text/plain
tests/test/tclass3.pp svneol=native#text/plain
tests/test/tclass4.pp svneol=native#text/plain
diff --git a/tests/test/tclass14a.pp b/tests/test/tclass14a.pp
new file mode 100644
index 0000000000..70ee68cc24
--- /dev/null
+++ b/tests/test/tclass14a.pp
@@ -0,0 +1,18 @@
+{ %FAIL}
+program tclass14a;
+
+{$ifdef fpc}
+ {$mode delphi}
+{$endif}
+
+type
+ TSomeClass = class
+ public
+ class var
+ FSomeField: Integer;
+ // class properties are not for sreaming therefore 'stored' is not supported
+ class property SomeField: Integer read FSomeField write FSomeField stored False;
+ end;
+
+begin
+end.