X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F06-api.t;h=5e0de0f5da652f60b0c76786f9a5013413c875c3;hb=041095744fe277d00b61625fbf90b55d32950978;hp=203e2c38e14be420807cfdaa1d0a53d0d60da56c;hpb=189dc572f26e0b09a3c951305fcc47e522cede44;p=gitmo%2FMooseX-Types-Structured.git

diff --git a/t/06-api.t b/t/06-api.t
index 203e2c3..5e0de0f 100644
--- a/t/06-api.t
+++ b/t/06-api.t
@@ -4,47 +4,57 @@ BEGIN {
 	use Test::More tests=>88;
 }
 
-use Moose::Util::TypeConstraints;
-use MooseX::Types::Structured qw(Dict Tuple);
-use MooseX::Types::Moose qw(Int Str Item Object ArrayRef HashRef);
-use MooseX::Types -declare => [qw(
-    MyDict1 MyDict2 MyDict3 MyDict4 subMyDict3 subMyDict1
-    MyTuple1 MyTuple2 MyTuple3 subMyTuple3
-)];
+{
+    package TypeLib;
+    use MooseX::Types::Structured qw(Dict Tuple);
+    use MooseX::Types::Moose qw(Int Str Item Object ArrayRef HashRef);
+    use MooseX::Types -declare => [qw(
+        MyDict1 MyDict2 MyDict3 MyDict4 subMyDict3 subMyDict1
+        MyTuple1 MyTuple2 MyTuple3 subMyTuple3
+    )];
+
+    ## Create some sample Dicts
+
+    subtype MyDict1,
+    as Dict[name=>Str, age=>Int];
+
+    subtype subMyDict1,
+    as MyDict1;
+
+    subtype MyDict2,
+    as Dict[name=>Str, age=>Int];
 
-## Create some sample Dicts
+    subtype MyDict3,
+    as Dict[key=>Int, anotherkey=>Str];
 
-subtype MyDict1,
- as Dict[name=>Str, age=>Int];
+    subtype subMyDict3,
+    as MyDict3;
 
-subtype subMyDict1,
- as MyDict1;
+    subtype MyDict4,
+    as Dict[name=>Str, age=>Item];
 
-subtype MyDict2,
- as Dict[name=>Str, age=>Int];
- 
-subtype MyDict3,
- as Dict[key=>Int, anotherkey=>Str];
- 
-subtype subMyDict3,
- as MyDict3;
+    ## Create some sample Tuples
 
-subtype MyDict4,
- as Dict[name=>Str, age=>Item];
+    subtype MyTuple1,
+    as Tuple[Int,Int,Str];
 
-## Create some sample Tuples
+    subtype MyTuple2,
+    as Tuple[Int,Int,Str];
 
-subtype MyTuple1,
- as Tuple[Int,Int,Str];
+    subtype MyTuple3,
+    as Tuple[Object, HashRef];
 
-subtype MyTuple2,
- as Tuple[Int,Int,Str];
- 
-subtype MyTuple3,
- as Tuple[Object, HashRef];
+    subtype subMyTuple3,
+    as MyTuple3;
+}
 
-subtype subMyTuple3,
- as MyTuple3;
+use Moose::Util::TypeConstraints;
+use MooseX::Types::Structured qw(Dict Tuple);
+use MooseX::Types::Moose qw(Int Str Item Object ArrayRef HashRef);
+
+BEGIN {
+    TypeLib->import(':all');
+}
 
 ## Test equals