Return to 160.html CVS log

Up to [parser3project] / parser3 / tests

- cache test was rewrited

@main[]
$sDir[outputs/160]
$iStep(1)
$iSleepTime(3)
$iCacheTime(2)

<table border="1" cellpadding="3">
<tr>
<th>File: 1</th>
<th>File: 2</th>
<th>File: 3</th>
</tr>

<tr>
<td>
	^do[1](3){One}
</td>
<td>
	^do[2](3){Two}
</td>
<td>
	^do[3](3){Three}
</td>
</tr>


<tr>
<td><br /></td>
<td><br /></td>
<td>
^do[3](3){
	^method[]
}{
	$exception.handled(1)
	^cache(2)
	Error occure while executing body
}
</td>
</tr>

# wait till cache expire
<tr>
<td colspan="3">
^sleep($iSleepTime)
^^sleep($iSleepTime)
</td>
</tr>


<tr>
<td>
^do[1](3){
	^method[]
}{
	^cache(1)
	$exception.handled[cache]
	Error occure while executing body but force get cached resuls
}
</td>

<td>
^do[2](3){
	Two
	^cache(0)
}
</td>

<td>
^do[3](3){
	^method[]
}{
	$exception.handled(1)
	^cache(0)
	Error occure while executing body
}
</td>


</tr>
</table>


@do[sFile;iSteps;jBody;jExceptionHandler][i;bProcessBody;bProcessErrorHandler;iTime;sBody]
^for[i](1;$iSteps){
	$iTime[]
	$bProcessBody(0)
	$bProcessErrorHandler(0)

	$sBody[^cache[$sDir/$sFile]($iCacheTime){
		$jBody ($i)
		$bProcessBody(1)
		$iTime(^cache[])
	}{$bProcessErrorHandler(1)$jExceptionHandler}]

	^if($bProcessBody){
		Executed code, ^^cache[] value ^if(def $iTime){defined}{undefined},
	}{
		^if($bProcessErrorHandler){
			Process error handler, 
		}{
			Get cached result,
		}
	}
	
	result: $sBody
}[<br />]
^iStep.inc(1)