CPAN::Groonga

T->CDBI_Class->db_Main->begin_work;
$obj->cdbi_create_or_update;
T->CDBI_Class->db_Main->commit;
isnt($obj->class_dbi_object->v, undef);

T->CDBI_Class->db_Main->begin_work;
my $res = $dbh->func($obj

v");
__PACKAGE__->bind_to_class_dbi('CDBI');

package main;
my $t2 = T2->new({ id => $obj->id });
isnt($t2->cdbi_load, undef);
is($t2->class_dbi_object->v, $obj->class_dbi_object->v);

my $stash = {};

T->CDBI_Class->db_Main->begin_work;
$obj->cdbi_create_or_update;
T->CDBI_Class->db_Main->commit;
isnt($obj->class_dbi_object->v, undef);

package T3;
use base 'HTML::Tested::ClassDBI';
__PACKAGE__->h

isnt($h2->cdbi_create, undef);

$h2->t2("foo");
eval { $h2->cdbi_update; };
like($@, qr/moo/);
like($@, qr/unique/);

$h2->t2("du");
isnt($h2->cdbi_update, undef);

$h = HTC->new({ t2 => "du" });
isnt

($h->cdbi_load, undef);
is($h->t1, "moo");
$h->t1("kok");
isnt($h->cdbi_update, undef);
is($h2->ht_get_widget_option(t2 => 'cdbi_column_info')->{type}, "text");
is($h2->ht_get_widget_option(id => 'cdb

nce critical to call into Class::DBI
# for updates
unlike(join("\n", @_cdbi_traces), qr/get_column_value/);

$h = HTC->new({ t2 => "du", t1 => 'ggg' });
isnt($h->cdbi_load, undef);
is($h->t1, 'kok');

my $dt = DateTime->new(year => 1975, month => 5, day => 6);
my $t1 = T1->create({ d1 => $dt });
isnt($t1, undef);
is($t1->id, 1);

my $o = HTC->new({ id => 1 });
ok($o->cdbi_load);
is($o->d1->month,

1(DateTime->new(year => 1975, month => 7, day => 6));
$o->cdbi_create;

my $t2 = T1->retrieve(2);
isnt($t2, undef) or exit 1;
is($t2->d1->month, 7);
is($o->id, 2);
is($o->d1->month, 7);

package T2;
u

=> 4, day => 3
				, hour => 14, minute => 40);
my $t22 = T2->create({ t1 => $dt1, t2 => $dt2 });
isnt($t22, undef);
is($t22->id, 1);
is($t22->t1->hour, 13);
is($t22->t2->hour, 14);

T2->columns(TEMP 

cdbi_retrieve, "T1");
isa_ok($obj->class_dbi_object, "T1");
is($obj->c, undef);

$obj->cdbi_load;
isnt($obj->c, undef);

my $scalar = "";
open(my $fh, "+>:scalar", \$scalar);
$dbh->trace(1, $fh);

$ob