Tests for Embperl - Set Session Data

fdat:

udat:

^ ok $num=\d+$

^ \$mdat\{cnt\} = -\d-
$udat{cnt} = --
sessions: ^ ^- ^- ^- ^- ^- ^- ^- ^- ^- ^- ^- ^- ^- ^- ^-
.*?<\/td> HASH.*?<\/td> ^-
.*?<\/td> HASH.*?<\/td> ^-
.*?<\/td> HASH.*?<\/td> ^-
.*?<\/td> HASH.*?<\/td> ^-
.*?<\/td> HASH.*?<\/td> ^-

.*?<\/td>	HASH.*?<\/td> ^-
.*?<\/td>	HASH.*?<\/td> ^-
.*?<\/td>	HASH.*?<\/td> ^-
.*?<\/td>	HASH.*?<\/td> ^-
.*?<\/td>	HASH.*?<\/td> ^-