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
105
106
|
# (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;
|
