CPAN::Groonga

; };
is ($@, "", "Set string to legal value");
eval { $actors[0]->set_name("Tim Curry" x 100); };
isnt ($@, "", "Set string to illegal value");

# string sub-types: tinyblob, blob, longblob
eval {
   

0"); };
is ($@, "", "Set int to legal value");

eval { $movies[0]->set_release_year("2000BC"); };
isnt ($@, "", "Set int to illegal value");

# real
eval {
    $actors[0]->set_height("1.3e7");
    $ac

678735");
};
is ($@, "", "Set real to legal value");

eval { $actors[0]->set_height("12345i"); };
isnt ($@, "", "Set real to illegal value");

# obj
eval {
    $actors[1]->set_birth_location($location

gfield.pl';

my $generator = Class::Tangram::Generator->new($schema);

eval "use 'NuclearPlant'";
isnt($@, "", "use NuclearPlant didn't die");

my $plant;
eval {
    $plant = new NuclearPlant;
};
isa_

"Accessors work");
like($NP->brains, qr/bork bork/, "Overridden accessors still work");

eval {
	my $credit = new Credit;
};

isnt ($@, "", "Using a module that fails to load another module fails");