[Instantobjects-cvscommit] SF.net SVN: instantobjects: [646] trunk/Source/Tests/MinimalModel.pas

[<sr...@us...>]

Revision: 646
Author:   srmitch
Date:     2006-03-12 13:47:50 -0800 (Sun, 12 Mar 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=646&view=rev

Log Message:
-----------
Added back MinimalModel.pas that was mistakenly deleted from test suite.

Added Paths:
-----------
    trunk/Source/Tests/MinimalModel.pas
Added: trunk/Source/Tests/MinimalModel.pas
===================================================================
--- trunk/Source/Tests/MinimalModel.pas	                        (rev 0)
+++ trunk/Source/Tests/MinimalModel.pas	2006-03-12 21:47:50 UTC (rev 646)
@@ -0,0 +1,111 @@
+(*
+ *   InstantObjects Test Suite
+ *   MinimalModel
+ *)
+
+(* ***** BEGIN LICENSE BLOCK *****
+ * Version: MPL 1.1
+ *
+ * The contents of this file are subject to the Mozilla Public License Version
+ * 1.1 (the "License"); you may not use this file except in compliance with
+ * the License. You may obtain a copy of the License at
+ * http://www.mozilla.org/MPL/
+ *
+ * Software distributed under the License is distributed on an "AS IS" basis,
+ * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
+ * for the specific language governing rights and limitations under the
+ * License.
+ *
+ * The Original Code is: InstantObjects Test Suite/MinimalModel
+ *
+ * The Initial Developer of the Original Code is: Uberto Barbini
+ *
+ * Portions created by the Initial Developer are Copyright (C) 2005
+ * the Initial Developer. All Rights Reserved.
+ *
+ * Contributor(s):
+ * Steven Mitchell
+ *
+ * ***** END LICENSE BLOCK ***** *)
+
+unit MinimalModel;
+
+interface
+
+uses
+  InstantPersistence;
+
+type
+  TSimpleClass = class(TInstantObject)
+  {IOMETADATA stored 'SIMPLE';
+    StringProperty: String(20) stored 'STRING'; }
+    _StringProperty: TInstantString;
+  private
+    function GetStringProperty: string;
+    procedure SetStringProperty(const Value: string);
+  published
+    property StringProperty: string read GetStringProperty write SetStringProperty;
+  end;
+
+procedure CreateMinimalModel;
+
+implementation
+
+procedure CreateMinimalModel;
+var
+  InstantClassMetadata : TInstantClassMetadata;
+  InstantAttributeMetadata : TInstantAttributeMetadata;
+begin
+(*
+<TInstantClassMetadatas>
+  <TInstantClassMetadata>
+    <Name>TSimpleClass</Name>
+    <Persistence>peStored</Persistence>
+    <StorageName>SIMPLE</StorageName>
+    <AttributeMetadatas>
+      <TInstantAttributeMetadatas>
+        <TInstantAttributeMetadata>
+          <Name>StringProperty</Name>
+          <AttributeType>atString</AttributeType>
+          <IsIndexed>FALSE</IsIndexed>
+          <IsRequired>FALSE</IsRequired>
+          <Size>10</Size>
+          <StorageName>STRING</StorageName>
+        </TInstantAttributeMetadata>
+      </TInstantAttributeMetadatas>
+    </AttributeMetadatas>
+  </TInstantClassMetadata>
+</TInstantClassMetadatas>
+*)
+  // An empty InstantModel.ClassMetadatas should already be available
+  InstantClassMetadata := InstantModel.ClassMetadatas.Add;
+  InstantClassMetadata.Name := 'TSimpleClass';
+  InstantClassMetadata.Persistence := peStored;
+  InstantClassMetadata.StorageName := 'SIMPLE';
+  InstantAttributeMetadata := InstantClassMetadata.AttributeMetadatas.Add;
+  InstantAttributeMetadata.Name := 'StringProperty';
+  InstantAttributeMetadata.AttributeType := atString;
+  InstantAttributeMetadata.IsIndexed := FALSE;
+  InstantAttributeMetadata.IsRequired := FALSE;
+  InstantAttributeMetadata.Size := 10;
+  InstantAttributeMetadata.StorageName := 'STRING';
+end;
+
+{ TSimpleClass }
+
+function TSimpleClass.GetStringProperty: string;
+begin
+  Result := _StringProperty.Value;
+end;
+
+procedure TSimpleClass.SetStringProperty(const Value: string);
+begin
+  _StringProperty.Value := Value;
+end;
+
+initialization
+  InstantRegisterClasses([
+    TSimpleClass
+  ]);
+
+end.