#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 2;
+use Test::More tests => 4;
use Moose ();
use Scalar::Util 'weaken';
my $weak;
+my $name;
do {
my $anon_class;
do {
- my $role = Moose::Meta::Role->create_anon_role;
+ my $role = Moose::Meta::Role->create_anon_role(
+ methods => {
+ improperly_freed => sub { 1 },
+ },
+ );
weaken($weak = $role);
+ $name = $role->name;
+
$anon_class = Moose::Meta::Class->create_anon_class(
roles => [ $role->name ],
);
};
ok($weak, "we still have the role metaclass because the anonymous class that consumed it is still alive");
-
+ ok($name->can('improperly_freed'), "we have not blown away the role's symbol table");
};
-TODO: {
- local $TODO = "we don't weaken role metaclasses yet";
- ok(!$weak, "the role metaclass is freed after its last reference (from a consuming anonymous class) is freed");
-};
+ok(!$weak, "the role metaclass is freed after its last reference (from a consuming anonymous class) is freed");
+ok(!$name->can('improperly_freed'), "we blew away the role's symbol table entries");