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
|
#!/usr/bin/perl -w
use Test::More tests => 9;
BEGIN{ use_ok Set::Object;
Set::Object->import("set");
}
use strict;
use Scalar::Util qw(weaken);
# first, a series of sanity checks...
my $internal;
{
my $set = set();
is($internal, undef, "no flat yet");
$set->insert({ "hi" => "there" });
$internal = $set->get_flat;
is($internal, undef, "still no flat");
$set->insert(1, 2, 3, 4);
$internal = $set->get_flat;
isnt($internal, undef, "aha, got something now");
ok(exists($internal->{2}), "and it looks like the right one");
weaken($internal);
ok($internal, "didn't drop out of existence on weaken()");
ok(!exists($internal->{5}), "sanity check");
$set->insert(5);
ok(exists($internal->{5}), "we've really got the right hash");
}
# when the set drops out of existence, the hashref should too
is($internal, undef, "internal hashref drops out of existence");
|
