[Moose-commits] r7951 - MooseX-Params-Validate/trunk/t

[autarch at code2.0beta.co.uk]

Author: autarch
Date: 2009-06-30 12:07:25 -0700 (Tue, 30 Jun 2009)
New Revision: 7951

Modified:
   MooseX-Params-Validate/trunk/t/001_basic.t
   MooseX-Params-Validate/trunk/t/002_basic_list.t
   MooseX-Params-Validate/trunk/t/008_positional.t
Log:
shut up warnings from tests

Modified: MooseX-Params-Validate/trunk/t/001_basic.t
===================================================================
--- MooseX-Params-Validate/trunk/t/001_basic.t	2009-06-30 18:59:56 UTC (rev 7950)
+++ MooseX-Params-Validate/trunk/t/001_basic.t	2009-06-30 19:07:25 UTC (rev 7951)
@@ -50,8 +50,7 @@
             },
             bar => { does => 'Roles::Blah', optional => 1 },
             boo => {
-                does =>
-                    subtype( 'Role' => where { $_->does('Roles::Blah') } ),
+                does     => role_type('Roles::Blah'),
                 optional => 1
             },
         );

Modified: MooseX-Params-Validate/trunk/t/002_basic_list.t
===================================================================
--- MooseX-Params-Validate/trunk/t/002_basic_list.t	2009-06-30 18:59:56 UTC (rev 7950)
+++ MooseX-Params-Validate/trunk/t/002_basic_list.t	2009-06-30 19:07:25 UTC (rev 7951)
@@ -49,8 +49,7 @@
             },
             bar => { does => 'Roles::Blah', optional => 1 },
             boo => {
-                does =>
-                    subtype( 'Role' => where { $_->does('Roles::Blah') } ),
+                does     => role_type('Roles::Blah'),
                 optional => 1
             },
         );

Modified: MooseX-Params-Validate/trunk/t/008_positional.t
===================================================================
--- MooseX-Params-Validate/trunk/t/008_positional.t	2009-06-30 18:59:56 UTC (rev 7950)
+++ MooseX-Params-Validate/trunk/t/008_positional.t	2009-06-30 19:07:25 UTC (rev 7951)
@@ -52,9 +52,7 @@
                 },
                 { does => 'Roles::Blah', optional => 1 },
                 {
-                    does => subtype(
-                        'Role' => where { $_->does('Roles::Blah') }
-                    ),
+                    does     => role_type('Roles::Blah'),
                     optional => 1
                 },
             )