CPAN::Groonga

;

	{
	    my $uo = $u->get_user_object("gerhardschroeder");
	    if ($crypt_mode eq 'crypt') {
		isnt($uo->Password, "bla", "Password is encrypted");
	    } elsif ($crypt_mode eq 'none') {
		is($uo->

1);

	    {
		my $uo = $u->get_user_object("angelamerkel");
		if ($crypt_mode eq 'crypt') {
		    isnt($uo->Password, "geheim", "Password is encrypted");
		} elsif ($crypt_mode eq 'none') {
		    is($

owed(-user => "eserte",
		       -page => "hotels/hotel1/bla",
		       -process => 'publish') };
isnt($@, "", "illegal match directive");

############################################################

owed(-user => "eserte",
		       -page => "hotels/hotel1/bla",
		       -process => 'publish') };
isnt($@, "", "illegal regexp");

#####################################################################

'WE::Obj');
$o->Id(1);
is($o->Id, 1);
$o->Title("Bla");
is($o->Title, "Bla");
my $o2 = $o->clone;
isnt("$o", "$o2");
is($o2->Title, "Bla");
is($o2->Id, 1);
$o2->Id(2);
is($o2->Id, 2);
is($o->Id, 1);