1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
use lib "t/springfield";
use 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;
|
