X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_mouse%2F808-create_class.t;fp=t%2F001_mouse%2F808-create_class.t;h=2c9b63db1856837ef63873391974944e0affcd1f;hb=d88e198a05d60ce534fbbbaccfc5b1da822418ab;hp=7d561e0a2e380150ece3052c96e335345757d0cd;hpb=ce61d034787c3c5ffba15d292a0b1cd861287f0a;p=gitmo%2FMouse.git

diff --git a/t/001_mouse/808-create_class.t b/t/001_mouse/808-create_class.t
index 7d561e0..2c9b63d 100644
--- a/t/001_mouse/808-create_class.t
+++ b/t/001_mouse/808-create_class.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 use Mouse ();
-use Test::More tests => 23;
+use Test::More tests => 25;
 use Test::Exception;
 
 # error handling
@@ -83,6 +83,14 @@ ok !$anon_pkg1->can('meta');
 
 ok $anon_pkg2->can('meta'), 'cache => 1 makes it immortal';
 
+my $anon = Mouse::Meta::Class->create_anon_class(
+    constructor_class => 'ConstructorX',
+    destructor_class  => 'DestructorX',
+);
+
+is $anon->constructor_class, 'ConstructorX';
+is $anon->destructor_class,  'DestructorX';
+
 my $obj;
 {
     my $anon = Mouse::Meta::Class->create_anon_class(superclasses => ['Mouse::Object']);