cogstest.xml

<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2016.1 (Build 656U)" ts="2017-06-07 15:42:49">
<Class name="Cogs.Test.Child">
<Super>%Persistent,Cogs.JsonClass</Super>
<TimeChanged>64441,56292.638432</TimeChanged>
<TimeCreated>64441,56038.8048</TimeCreated>

<Property name="Parent">
<Type>Parent</Type>
</Property>

<Storage name="Default">
<Type>%Library.CacheStorage</Type>
<DataLocation>^Cogs.Test.ChildD</DataLocation>
<DefaultData>ChildDefaultData</DefaultData>
<IdLocation>^Cogs.Test.ChildD</IdLocation>
<IndexLocation>^Cogs.Test.ChildI</IndexLocation>
<StreamLocation>^Cogs.Test.ChildS</StreamLocation>
<Data name="ChildDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>Parent</Value>
</Value>
</Data>
</Storage>
</Class>


<Class name="Cogs.Test.Parent">
<Super>%Persistent,Cogs.JsonClass</Super>
<TimeChanged>64441,56339.556262</TimeChanged>
<TimeCreated>64441,56005.783266</TimeCreated>

<Property name="Child">
<Type>Child</Type>
</Property>

<Method name="Test">
<Description>
do ##class(Cogs.Test.Parent).Test()</Description>
<ClassMethod>1</ClassMethod>
<Implementation><![CDATA[
	do ..%KillExtent()
	do ##class(Cogs.Test.Child).%KillExtent()
	
	set obj = ..%New()
	do obj.ChildSetObjectId(1)
	w obj.%Save(),!
	
	set child = ##class(Cogs.Test.Child).%New()
	do child.ParentSetObjectId(1)
	w child.%Save(),!
	
	kill
	
	set obj = ..%OpenId(1)
	w obj.toJSON()
]]></Implementation>
</Method>

<Storage name="Default">
<Type>%Library.CacheStorage</Type>
<DataLocation>^Cogs.Test.ParentD</DataLocation>
<DefaultData>ParentDefaultData</DefaultData>
<IdLocation>^Cogs.Test.ParentD</IdLocation>
<IndexLocation>^Cogs.Test.ParentI</IndexLocation>
<StreamLocation>^Cogs.Test.ParentS</StreamLocation>
<Data name="ParentDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>Child</Value>
</Value>
</Data>
</Storage>
</Class>
</Export>