# (c) Sound Object Logic 2000-2001

use t::Springfield;

my %id;

Springfield::begin_tests(11);

{
	$storage = Springfield::connect_empty;

	my $homer = NaturalPerson->new( firstName => 'Homer' );
	my $marge = NaturalPerson->new( firstName => 'Marge' );

	$homer->{partner} = $marge;

	$id{Marge} = $storage->insert($marge);
	$id{Homer} = $storage->insert($homer);

	$storage->disconnect();
}

Springfield::leaktest;

{
	$storage = Springfield::connect();

	my ($p1, $p2) = $storage->remote(qw( NaturalPerson NaturalPerson ));

	my ($homer, $other) = $storage->select( $p1,
											$p1->{partner} == $p2 & $p2->{firstName} eq 'Marge' );

	Springfield::test( $homer && !$other );

	$storage->disconnect();
}

Springfield::leaktest;

{
	$storage = Springfield::connect();

	my $marge = $storage->load( $id{Marge} );

	my ($p1) = $storage->remote(qw( NaturalPerson ));

	my ($marge2, $other) = $storage->select( $p1, $p1 == $marge );

	Springfield::test( $marge2 && !$other );

	$storage->disconnect();
}

Springfield::leaktest;

{
	$storage = Springfield::connect();

	my $marge = $storage->load( $id{Marge} );

	my ($p1, $p2) = $storage->remote(qw( NaturalPerson NaturalPerson ));

	my $ff = $p1 == $p1;

	my ($homer, $other) = $storage->select( $p1, $p1->{partner} == $marge );

	Springfield::test( $homer && !$other );

	$storage->disconnect();
}

Springfield::leaktest;

{

	$storage = Springfield::connect_empty();

	$ids{Homer} = $storage->insert( NaturalPerson->new(
        name => 'Homer',
		credit => Credit->new( limit => 1000 ) ) );

	my @credits = $storage->select('Credit');
	Springfield::test( @credits == 1 );

	$storage->disconnect();
}

Springfield::leaktest;

{
	$storage = Springfield::connect();

	my $homer = $storage->load( $ids{Homer} );
	print $homer->{credit}, "\n";
	$storage->erase( $homer );

	my @credits = $storage->select('Credit');
	Springfield::test( @credits == 0 );

	$storage->disconnect();
}

Springfield::leaktest;