Hmm, the same warnings as Moose seems difficult.
[gitmo/Mouse.git] / t / 030_roles / 036_free_anonymous_roles.t
index 8426fed..65b87bf 100644 (file)
@@ -1,11 +1,8 @@
 #!/usr/bin/env perl
-# This is automatically generated by author/import-moose-test.pl.
-# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
-use t::lib::MooseCompat;
 use strict;
 use warnings;
-use Test::More;
-use Mouse ();
+use Test::More tests => 4;
+use Mouse::Role ();
 use Scalar::Util 'weaken';
 
 my $weak;
@@ -35,5 +32,3 @@ do {
 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");
-
-done_testing;