[Moose-commits] r7861 - MooseX-Types-Dependent/trunk/t

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

Author: jnapiorkowski
Date: 2009-03-27 10:57:06 -0700 (Fri, 27 Mar 2009)
New Revision: 7861

Added:
   MooseX-Types-Dependent/trunk/t/01-basic.t
Removed:
   MooseX-Types-Dependent/trunk/t/01.basic
Log:
renamed test

Copied: MooseX-Types-Dependent/trunk/t/01-basic.t (from rev 7860, MooseX-Types-Dependent/trunk/t/01.basic)
===================================================================
--- MooseX-Types-Dependent/trunk/t/01-basic.t	                        (rev 0)
+++ MooseX-Types-Dependent/trunk/t/01-basic.t	2009-03-27 17:57:06 UTC (rev 7861)
@@ -0,0 +1,35 @@
+use Test::More tests=>5;
+use MooseX::Types::Structured qw(Tuple slurpy);
+use MooseX::Types qw(Str Object);
+
+use_ok 'MooseX::Meta::TypeConstraint::Structured';
+use_ok 'Moose::Util::TypeConstraints';
+
+ok my $int = find_type_constraint('Int') => 'Got Int';
+ok my $str = find_type_constraint('Str') => 'Got Str';
+ok my $obj = find_type_constraint('Object') => 'Got Object';
+ok my $arrayref = find_type_constraint('ArrayRef') => 'Got ArrayRef';
+
+my $a = [1,2,3,4];
+
+
+package Dependent;
+
+use overload(
+	'&{}' => sub {
+		warn 'sdfsdfsdfsdfsdf';
+		return sub {};
+ 	},
+);
+
+sub new {
+	my $class = shift @_;
+	return bless {a=>1}, $class;
+}
+
+1;
+
+my $dependent = Dependent->new($int);
+
+$dependent->();
+


Property changes on: MooseX-Types-Dependent/trunk/t/01-basic.t
___________________________________________________________________
Name: svn:mergeinfo
   + 

Deleted: MooseX-Types-Dependent/trunk/t/01.basic
===================================================================
--- MooseX-Types-Dependent/trunk/t/01.basic	2009-03-27 12:01:00 UTC (rev 7860)
+++ MooseX-Types-Dependent/trunk/t/01.basic	2009-03-27 17:57:06 UTC (rev 7861)
@@ -1,35 +0,0 @@
-use Test::More tests=>5;
-use MooseX::Types::Structured qw(Tuple slurpy);
-use MooseX::Types qw(Str Object);
-
-use_ok 'MooseX::Meta::TypeConstraint::Structured';
-use_ok 'Moose::Util::TypeConstraints';
-
-ok my $int = find_type_constraint('Int') => 'Got Int';
-ok my $str = find_type_constraint('Str') => 'Got Str';
-ok my $obj = find_type_constraint('Object') => 'Got Object';
-ok my $arrayref = find_type_constraint('ArrayRef') => 'Got ArrayRef';
-
-my $a = [1,2,3,4];
-
-
-package Dependent;
-
-use overload(
-	'&{}' => sub {
-		warn 'sdfsdfsdfsdfsdf';
-		return sub {};
- 	},
-);
-
-sub new {
-	my $class = shift @_;
-	return bless {a=>1}, $class;
-}
-
-1;
-
-my $dependent = Dependent->new($int);
-
-$dependent->();
-