[Moose-commits] r7700 - Moose/trunk/t/040_type_constraints

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

Author: autarch
Date: 2009-02-14 15:53:50 -0800 (Sat, 14 Feb 2009)
New Revision: 7700

Modified:
   Moose/trunk/t/040_type_constraints/002_util_type_constraints_export.t
Log:
Fix some bizarro code formatting


Modified: Moose/trunk/t/040_type_constraints/002_util_type_constraints_export.t
===================================================================
--- Moose/trunk/t/040_type_constraints/002_util_type_constraints_export.t	2009-02-14 23:48:00 UTC (rev 7699)
+++ Moose/trunk/t/040_type_constraints/002_util_type_constraints_export.t	2009-02-14 23:53:50 UTC (rev 7700)
@@ -7,26 +7,25 @@
 use Test::Exception;
 
 BEGIN {
-	use_ok('Moose::Util::TypeConstraints', { into => 'Foo' } );
+    use_ok( 'Moose::Util::TypeConstraints', { into => 'Foo' } );
 }
 
 {
+
     package Foo;
 
-	eval {
-		type MyRef => where { ref($_) };
-	};
-	::ok(!$@, '... successfully exported &type to Foo package');
-	
-	eval {
-		subtype MyArrayRef 
-			=> as MyRef 
-			=> where { ref($_) eq 'ARRAY' };
-	};
-	::ok(!$@, '... successfully exported &subtype to Foo package');	
-	
-    Moose::Util::TypeConstraints->export_type_constraints_as_functions();	
-	
-	::ok(MyRef({}), '... Ref worked correctly');
-	::ok(MyArrayRef([]), '... ArrayRef worked correctly');	
-}
\ No newline at end of file
+    eval {
+        type MyRef => where { ref($_) };
+    };
+    ::ok( !$@, '... successfully exported &type to Foo package' );
+
+    eval {
+        subtype MyArrayRef => as MyRef => where { ref($_) eq 'ARRAY' };
+    };
+    ::ok( !$@, '... successfully exported &subtype to Foo package' );
+
+    Moose::Util::TypeConstraints->export_type_constraints_as_functions();
+
+    ::ok( MyRef( {} ), '... Ref worked correctly' );
+    ::ok( MyArrayRef( [] ), '... ArrayRef worked correctly' );
+}