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
|
# -*- perl -*-
#
# (c) Sound Object Logic 2000-2001
#
# Portions (c) Sam Vilain, 2003
use strict;
use Test::More tests => 8;
use lib "t";
use Springfield;
# $Tangram::TRACE = \*STDOUT;
my $beer;
{
my $storage = Springfield::connect_empty;
my @oids =
$storage->insert
(
NaturalPerson->new( firstName => 'Homer', name => 'Simpson' ),
NaturalPerson->new( firstName => 'Marge', name => 'Simpson' ),
LegalPerson->new( name => 'Kwik Market' ),
LegalPerson->new( name => 'Springfield Nuclear Power Plant' ),
Opinion->new(statement => "beer is good"),
);
$beer = pop @oids;
$storage->disconnect;
}
is(leaked, 0, "Nothing leaked yet!");
{
my $storage = Springfield::connect;
my @res;
my $results = join( ', ', sort map { $_->as_string }
(@res = $storage->select('Person')) );
#print "$results\n";
is($results,
'Homer Simpson, Kwik Market, Marge Simpson, Springfield Nuclear Power Plant',
"Polymorphic retrieval via Tangram::Storage->select()"
);
ok($storage->oid_isa($storage->id(shift(@res)), "Person"),
"oid_isa(positive)") while @res;
ok(!$storage->oid_isa($beer, "Person"),
"oid_isa(negative)");
$storage->disconnect;
}
is(leaked, 0, "Nothing leaked yet!");
|
