no_plan does not take a param
[gitmo/MooseX-MetaDescription.git] / t / 001_basic.t
index 9628291..f8d51cf 100644 (file)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More no_plan => 1;
+use Test::More 'no_plan';
 use Test::Exception;
 
 BEGIN {
@@ -12,11 +12,13 @@ BEGIN {
 
 {
     package Foo;
-    use metaclass 'MooseX::MetaDescription::Meta::Class';
+    use metaclass 'MooseX::MetaDescription::Meta::Class' => (
+        description => {
+            'Hello' => 'World'
+        }
+    );
     use Moose;
     
-    __PACKAGE__->meta->description->{'Hello'} = 'World';
-    
     has 'bar' => (
         metaclass   => 'MooseX::MetaDescription::Meta::Attribute',
         is          => 'ro',
@@ -29,7 +31,7 @@ BEGIN {
     );
     
     has 'baz' => (
-        traits      => [ 'MooseX::MetaDescription::Meta::Attribute::Trait' ],
+        traits      => [ 'MooseX::MetaDescription::Meta::Trait' ],
         is          => 'ro',
         isa         => 'Str',   
         default     => sub { 'Foo::baz' },
@@ -43,15 +45,16 @@ BEGIN {
 # check the meta-desc
 
 my $foo_class = Foo->meta;
-isa_ok($foo_class->metadescription, 'MooseX::MetaDescription::Description::Class');
+isa_ok($foo_class, 'MooseX::MetaDescription::Meta::Class');
+isa_ok($foo_class->metadescription, 'MooseX::MetaDescription::Description');
 is($foo_class->metadescription->descriptor, $foo_class, '... got the circular ref');
 
 my $bar_attr = Foo->meta->get_attribute('bar');
-isa_ok($bar_attr->metadescription, 'MooseX::MetaDescription::Description::Attribute');
+isa_ok($bar_attr->metadescription, 'MooseX::MetaDescription::Description');
 is($bar_attr->metadescription->descriptor, $bar_attr, '... got the circular ref');
 
 my $baz_attr = Foo->meta->get_attribute('baz');
-isa_ok($baz_attr->metadescription, 'MooseX::MetaDescription::Description::Attribute');
+isa_ok($baz_attr->metadescription, 'MooseX::MetaDescription::Description');
 is($baz_attr->metadescription->descriptor, $baz_attr, '... got the circular ref');
 
 # check the actual descs