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
107
108
109
110
111
112
113
114
115
116
117
118
|
# -*- perl -*-
# (c) Sound Object Logic 2000-2001
use strict;
use lib "t";
use Springfield;
# $Tangram::TRACE = \*STDOUT;
use Test::More tests => 13;
{
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();
}
is(&leaked, 0, "leaktest");
# BEGIN ks.perl@kurtstephens.com 2002/10/16
# Test non-commutative operator argument swapping
{
my $storage = Springfield::connect;
my ($person) = $storage->remote(qw( NaturalPerson ));
#$DB::single = 1;
# local $Tangram::TRACE = \*STDERR;
my @results = $storage->select( $person,
(1 <= $person->{person_id}) & ($person->{person_id} <= 2) );
is(@results, 2, "non-commutative operator argument swapping" );
$storage->disconnect();
}
is(&leaked, 0, "leaktest");
# END ks.perl@kurtstephens.com 2002/10/16
# filter on string field
{
my $storage = Springfield::connect;
my ($person) = $storage->remote(qw( NaturalPerson ));
my @results = $storage->select( $person, $person->{name} eq 'Simpson' );
is(join( ' ', sort map { $_->{firstName} } @results ),
'Homer Marge',
"filter on string field");
$storage->disconnect();
}
is(&leaked, 0, "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' );
is( @results, 1, "Logical and");
is ( $results[0]{firstName}, 'Homer', "Logical and" );
$storage->disconnect();
}
is(&leaked, 0, "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') );
is( @results, 1, "Logical and");
is ( $results[0]{firstName}, 'Homer', "Logical and" );
$storage->disconnect();
}
is(&leaked, 0, "leaktest");
{
my $storage = Springfield::connect;
my ($person) = $storage->remote(qw( NaturalPerson ));
my @results = $storage->select( $person, $person->{partner} != undef );
is(join( ' ', sort map { $_->{firstName} } @results ),
'Homer Marge',
"!= undef test");
$storage->disconnect();
}
is(&leaked, 0, "leaktest");
|
