# (c) Sound Object Logic 2000-2001
use t::Springfield;
my %id;
Springfield::begin_tests(3);
{
$storage = Springfield::connect_empty;
my $bart = NaturalPerson->new( firstName => 'Bart' );
$bart->{belongings} = [
Item->new( name => 'Skateboard', owner => $bart ),
Item->new( name => 'Bike', owner => $bart )
];
$id{Bart} = $storage->insert($bart);
$storage->disconnect();
}
#Springfield::leaktest;
{
$storage = Springfield::connect();
my $bart = $storage->load($id{Bart});
Springfield::test( $bart &&
$bart->{belongings}->[0]->{name} eq 'Skateboard' &&
$bart->{belongings}->[1]->{name} eq 'Bike');
$storage->disconnect();
}
#Springfield::leaktest;
{
$storage = Springfield::connect();
my $bart = $storage->load($id{Bart});
push @{$bart->{belongings}}, Item->new( name => 'Sneakers', owner => $bart);
$storage->update($bart);
$storage->disconnect();
}
#Springfield::leaktest;
{
$storage = Springfield::connect();
my $bart = $storage->load($id{Bart});
Springfield::test( $bart &&
$bart->{belongings}->[0]->{name} eq 'Skateboard' &&
$bart->{belongings}->[1]->{name} eq 'Bike' &&
$bart->{belongings}->[2]->{name} eq 'Sneakers');
$storage->disconnect();
}
#Springfield::leaktest;
{
$storage = Springfield::connect();
my $bart = $storage->load($id{Bart});
$bart->{belongings}->[0]->{name} = 'T-shirt';
$storage->update($bart);
$storage->disconnect();
}
#Springfield::leaktest;
{
$storage = Springfield::connect();
my $bart = $storage->load($id{Bart});
Springfield::test( $bart &&
$bart->{belongings}->[0]->{name} eq 'T-shirt' &&
$bart->{belongings}->[1]->{name} eq 'Bike' &&
$bart->{belongings}->[2]->{name} eq 'Sneakers');
$storage->disconnect();
}
#{
# $storage = Springfield::connect_empty;
# my $bart = NaturalPerson->new( firstName => 'Bart' );
# $id{Bart} = $storage->insert($bart);
# Springfield::empty($storage);
# eval { $storage->update($bart) };
# Springfield::test($@);
# $storage->disconnect();
#}
#Springfield::leaktest;