[svn:Module-Build] r9774 - in Module-Build/trunk: . t

[kwilliams]

Author: kwilliams
Date: Thu Jul 19 20:17:43 2007
New Revision: 9774

Modified:
   Module-Build/trunk/   (props changed)
   Module-Build/trunk/t/metadata.t

Log:
 [EMAIL PROTECTED]:  ken | 2007-07-14 13:09:43 -0500
 Verify functionality of meta_add stuff


Modified: Module-Build/trunk/t/metadata.t
==============================================================================
--- Module-Build/trunk/t/metadata.t     (original)
+++ Module-Build/trunk/t/metadata.t     Thu Jul 19 20:17:43 2007
@@ -2,7 +2,7 @@
 
 use strict;
 use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
-use MBTest tests => 48;
+use MBTest tests => 49;
 
 use Cwd ();
 my $cwd = Cwd::cwd;
@@ -20,7 +20,8 @@
    dist_abstract => 'Something interesting',
    license       => 'perl',
    meta_add => {
-               'keywords' => [qw(super duper something)],
+               keywords  => [qw(super duper something)],
+               resources => {homepage => 'http://foo.example.com'},
               },
   );
 
@@ -54,6 +55,7 @@
   ok defined( $node->{'meta-spec'}{url} ),
       "'meta-spec' -> 'url' field present in META.yml";
   is_deeply $node->{keywords}, $metadata{meta_add}{keywords};
+  is_deeply $node->{resources}, $metadata{meta_add}{resources};
 }
 
 $dist->clean;