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
|
# -*- perl -*-
use Set::Object;
require './t/object/Person.pm';
package Person;
use Test::More tests => 7;
Set::Object->new->includes( $homer );
populate();
$simpsons = Set::Object->new( $homer, $marge, $bart, $lisa, $maggie );
ok( $simpsons->includes(), "Set::Object->includes()" );
ok( $simpsons->includes($bart), "Set::Object->includes(single)" );
ok( $simpsons->includes($homer, $marge, $bart, $lisa, $maggie),
"Set::Object->includes(many)" );
ok( !$simpsons->includes($burns), "!Set::Object->includes(non-member)");
ok( !$simpsons->includes($homer, $burns, $marge),
"!Set::Object->includes(members, non-member)");
ok( !$simpsons->includes(Set::Object->new()),
"!Set::Object->includes(Set::Object->new())");
ok( !$simpsons->includes("bogon"),
"!Set::Object->includes('bogon')");
|
