<%
eval { $Session->Lock };
$t->eok($Session->Timeout > 1, "timeout check > 1");
$t->eok($Session->{Timeout} > 1, "timeout check > 1");
$t->eok(! $@, "\$Session->Lock: $@");
$t->eok(length($Session->{SessionID}) >= 8, "session id not long enough");
my $count = 0;
for(1..3) {
	$Session->{count}++;
	$count++;
	$t->eok($count == $Session->{count}, 
		'failure to increment $Session->{count}');
}
eval { $Session->UnLock() };
$t->eok(! $@, "\$Session->UnLock: $@");

$t->eok($Session->{count} == 3, "\$Session->{count} should equal 3 after locked critical section");
%>
