test.xml

<?xml version="1.0" encoding="UTF-8"?>
<Export generator="Cache" version="25" zv="Cache for Windows (x86-64) 2016.1 (Build 656U)" ts="2016-09-06 22:08:45">
<Class name="test.Persistent">
<Super>%Persistent</Super>
<TimeChanged>64167,79670.466185</TimeChanged>
<TimeCreated>64167,76054.060343</TimeCreated>

<Property name="Datatype">
<Type>%String</Type>
</Property>

<Property name="Serial">
<Type>test.Serial</Type>
</Property>

<Method name="Test">
<Description>
Do ##class(test.Persistent).Test()</Description>
<ClassMethod>1</ClassMethod>
<Implementation><![CDATA[
	Do ..%KillExtent()
	Set Obj = ..%New()
	Set Obj.Datatype = 1
	w $System.Status.GetErrorText(Obj.%Save())
	Kill
	
	Set Obj = ..%OpenId(1)
	Do Obj.Serial.%GetSwizzleObject(,.SerialBefore)
	Kill (SerialBefore)
	
	&sql(UPDATE test.Persistent SET Datatype = 2)
	
	Set Obj = ..%OpenId(1)
	Do Obj.Serial.%GetSwizzleObject(,.SerialAfter)
	
	Zw SQLCODE,SerialBefore,SerialAfter
]]></Implementation>
</Method>

<Storage name="Default">
<Type>%Library.CacheStorage</Type>
<DataLocation>^test.PersistentD</DataLocation>
<DefaultData>PersistentDefaultData</DefaultData>
<IdLocation>^test.PersistentD</IdLocation>
<IndexLocation>^test.PersistentI</IndexLocation>
<StreamLocation>^test.PersistentS</StreamLocation>
<Data name="PersistentDefaultData">
<Value name="1">
<Value>%%CLASSNAME</Value>
</Value>
<Value name="2">
<Value>Datatype</Value>
</Value>
<Value name="3">
<Value>Serial</Value>
</Value>
<Value name="4">
<Value>SerialWithSerial</Value>
</Value>
</Data>
</Storage>
</Class>


<Class name="test.Serial">
<Super>%SerialObject</Super>
<TimeChanged>64167,76311.13759</TimeChanged>
<TimeCreated>64167,76083.755131</TimeCreated>

<Property name="Serial2">
<Type>test.Serial2</Type>
</Property>

<Storage name="Default">
<Type>%Library.CacheSerialState</Type>
<State>SerialState</State>
<StreamLocation>^test.SerialS</StreamLocation>
<Data name="SerialState">
<Value name="1">
<Value>Serial2</Value>
</Value>
</Data>
</Storage>
</Class>


<Class name="test.Serial2">
<Super>%SerialObject</Super>
<TimeChanged>64167,76324.351738</TimeChanged>
<TimeCreated>64167,76103.979636</TimeCreated>

<Property name="Property">
<Type>%String</Type>
</Property>

<Storage name="Default">
<Type>%Library.CacheSerialState</Type>
<State>Serial2State</State>
<StreamLocation>^test.Serial2S</StreamLocation>
<Data name="Serial2State">
<Structure>listnode</Structure>
<Subscript/>
<Value name="1">
<Value>Property</Value>
</Value>
</Data>
</Storage>
</Class>
</Export>