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
|
# (c) Sound Object Logic 2000-2001
use strict;
use t::Springfield;
# $Tangram::TRACE = \*STDOUT;
Springfield::begin_tests(9);
{
my $storage = Springfield::connect_empty;
my $homer = NaturalPerson->new( firstName => 'Homer', name => 'Simpson' );
my $marge = NaturalPerson->new( firstName => 'Marge', name => 'Simpson' );
$marge->{partner} = $homer;
$homer->{partner} = $marge;
$storage->insert( $homer );
$storage->insert( NaturalPerson->new( firstName => 'Montgomery', name => 'Burns' ) );
delete $homer->{partner};
$storage->disconnect();
}
Springfield::leaktest;
# filter on string field
{
my $storage = Springfield::connect;
my ($person) = $storage->remote(qw( NaturalPerson ));
my @results = $storage->select( $person, $person->{name} eq 'Simpson' );
Springfield::test( join( ' ', sort map { $_->{firstName} } @results ) eq 'Homer Marge' );
$storage->disconnect();
}
Springfield::leaktest;
# logical and
{
my $storage = Springfield::connect;
my ($person) = $storage->remote(qw( NaturalPerson ));
my @results = $storage->select( $person,
$person->{firstName} eq 'Homer' & $person->{name} eq 'Simpson' );
Springfield::test( @results == 1 && $results[0]{firstName} eq 'Homer' );
$storage->disconnect();
}
Springfield::leaktest;
{
my $storage = Springfield::connect;
my ($person, $partner) = $storage->remote(qw( NaturalPerson NaturalPerson ));
my @results = $storage->select( $person,
$person->{partner} == $partner & $partner->{firstName} eq 'Marge' );
Springfield::test( @results == 1 && $results[0]{firstName} eq 'Homer' );
$storage->disconnect();
}
Springfield::leaktest;
{
my $storage = Springfield::connect;
my ($person) = $storage->remote(qw( NaturalPerson ));
my @results = $storage->select( $person, $person->{partner} != undef );
print join(' ', map { $_->{firstName} } @results), "\n";
Springfield::test(
join( ' ', sort map { $_->{firstName} } @results ) eq 'Homer Marge' );
$storage->disconnect();
}
Springfield::leaktest;
|
