[Moose-commits] r7203 - in MooseX-GlobRef-Object/trunk/t: . tlib/MooseX/GlobRef tlib/MooseX/GlobRef/Meta tlib/MooseX/GlobRef/Meta/Class/Trait

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

Author: dexter
Date: 2008-12-30 14:13:08 -0800 (Tue, 30 Dec 2008)
New Revision: 7203

Added:
   MooseX-GlobRef-Object/trunk/t/010_extends_object.t
   MooseX-GlobRef-Object/trunk/t/020_metaclass.t
   MooseX-GlobRef-Object/trunk/t/030_metaclass_instance.t
   MooseX-GlobRef-Object/trunk/t/040_class_trait.t
   MooseX-GlobRef-Object/trunk/t/tlib/MooseX/GlobRef/Meta/Class/Trait/GlobRefTestSuite.pm
   MooseX-GlobRef-Object/trunk/t/tlib/MooseX/GlobRef/Meta/ClassTestSuite.pm
   MooseX-GlobRef-Object/trunk/t/tlib/MooseX/GlobRef/Meta/InstanceTestSuite.pm
   MooseX-GlobRef-Object/trunk/t/tlib/MooseX/GlobRef/ObjectTestSuite.pm
Removed:
   MooseX-GlobRef-Object/trunk/t/all_tests.t
   MooseX-GlobRef-Object/trunk/t/test.pl
Log:
* Split all tests to separate test suites.

Added: MooseX-GlobRef-Object/trunk/t/010_extends_object.t
===================================================================
--- MooseX-GlobRef-Object/trunk/t/010_extends_object.t	                        (rev 0)
+++ MooseX-GlobRef-Object/trunk/t/010_extends_object.t	2008-12-30 22:13:08 UTC (rev 7203)
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use File::Spec;
+use Cwd;
+
+BEGIN {
+    unshift @INC, map { /(.*)/; $1 } split(/:/, $ENV{PERL5LIB}) if defined $ENV{PERL5LIB} and ${^TAINT};
+
+    my $cwd = ${^TAINT} ? do { local $_=getcwd; /(.*)/; $1 } : '.';
+    unshift @INC, File::Spec->catdir($cwd, 't/tlib');
+};
+
+use Test::Unit::Lite;
+
+local $SIG{__WARN__} = sub { require Carp; Carp::confess("Warning: $_[0]") };
+
+Test::Unit::HarnessUnit->new->start('MooseX::GlobRef::ObjectTestSuite');

Added: MooseX-GlobRef-Object/trunk/t/020_metaclass.t
===================================================================
--- MooseX-GlobRef-Object/trunk/t/020_metaclass.t	                        (rev 0)
+++ MooseX-GlobRef-Object/trunk/t/020_metaclass.t	2008-12-30 22:13:08 UTC (rev 7203)
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use File::Spec;
+use Cwd;
+
+BEGIN {
+    unshift @INC, map { /(.*)/; $1 } split(/:/, $ENV{PERL5LIB}) if defined $ENV{PERL5LIB} and ${^TAINT};
+
+    my $cwd = ${^TAINT} ? do { local $_=getcwd; /(.*)/; $1 } : '.';
+    unshift @INC, File::Spec->catdir($cwd, 't/tlib');
+};
+
+use Test::Unit::Lite;
+
+local $SIG{__WARN__} = sub { require Carp; Carp::confess("Warning: $_[0]") };
+
+Test::Unit::HarnessUnit->new->start('MooseX::GlobRef::Meta::ClassTestSuite');

Added: MooseX-GlobRef-Object/trunk/t/030_metaclass_instance.t
===================================================================
--- MooseX-GlobRef-Object/trunk/t/030_metaclass_instance.t	                        (rev 0)
+++ MooseX-GlobRef-Object/trunk/t/030_metaclass_instance.t	2008-12-30 22:13:08 UTC (rev 7203)
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use File::Spec;
+use Cwd;
+
+BEGIN {
+    unshift @INC, map { /(.*)/; $1 } split(/:/, $ENV{PERL5LIB}) if defined $ENV{PERL5LIB} and ${^TAINT};
+
+    my $cwd = ${^TAINT} ? do { local $_=getcwd; /(.*)/; $1 } : '.';
+    unshift @INC, File::Spec->catdir($cwd, 't/tlib');
+};
+
+use Test::Unit::Lite;
+
+local $SIG{__WARN__} = sub { require Carp; Carp::confess("Warning: $_[0]") };
+
+Test::Unit::HarnessUnit->new->start('MooseX::GlobRef::Meta::InstanceTestSuite');

Added: MooseX-GlobRef-Object/trunk/t/040_class_trait.t
===================================================================
--- MooseX-GlobRef-Object/trunk/t/040_class_trait.t	                        (rev 0)
+++ MooseX-GlobRef-Object/trunk/t/040_class_trait.t	2008-12-30 22:13:08 UTC (rev 7203)
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use File::Spec;
+use Cwd;
+
+BEGIN {
+    unshift @INC, map { /(.*)/; $1 } split(/:/, $ENV{PERL5LIB}) if defined $ENV{PERL5LIB} and ${^TAINT};
+
+    my $cwd = ${^TAINT} ? do { local $_=getcwd; /(.*)/; $1 } : '.';
+    unshift @INC, File::Spec->catdir($cwd, 't/tlib');
+};
+
+use Test::Unit::Lite;
+
+local $SIG{__WARN__} = sub { require Carp; Carp::confess("Warning: $_[0]") };
+
+Test::Unit::HarnessUnit->new->start('MooseX::GlobRef::Meta::Class::Trait::GlobRefTestSuite');

Deleted: MooseX-GlobRef-Object/trunk/t/all_tests.t
===================================================================
--- MooseX-GlobRef-Object/trunk/t/all_tests.t	2008-12-30 20:06:22 UTC (rev 7202)
+++ MooseX-GlobRef-Object/trunk/t/all_tests.t	2008-12-30 22:13:08 UTC (rev 7203)
@@ -1,21 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use File::Spec;
-use Cwd;
-
-BEGIN {
-    unshift @INC, map { /(.*)/; $1 } split(/:/, $ENV{PERL5LIB}) if defined $ENV{PERL5LIB} and ${^TAINT};
-
-    my $cwd = ${^TAINT} ? do { local $_=getcwd; /(.*)/; $1 } : '.';
-    unshift @INC, File::Spec->catdir($cwd, 'inc');
-    unshift @INC, File::Spec->catdir($cwd, 'lib');
-}
-
-use Test::Unit::Lite;
-
-local $SIG{__WARN__} = sub { require Carp; Carp::confess("Warning: $_[0]") };
-
-Test::Unit::HarnessUnit->new->start('Test::Unit::Lite::AllTests');

Deleted: MooseX-GlobRef-Object/trunk/t/test.pl
===================================================================
--- MooseX-GlobRef-Object/trunk/t/test.pl	2008-12-30 20:06:22 UTC (rev 7202)
+++ MooseX-GlobRef-Object/trunk/t/test.pl	2008-12-30 22:13:08 UTC (rev 7203)
@@ -1,25 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use File::Basename;
-use File::Spec;
-use Cwd;
-
-BEGIN {
-    chdir dirname(__FILE__) or die "$!";
-    chdir '..' or die "$!";
-
-    unshift @INC, map { /(.*)/; $1 } split(/:/, $ENV{PERL5LIB}) if defined $ENV{PERL5LIB} and ${^TAINT};
-
-    my $cwd = ${^TAINT} ? do { local $_=getcwd; /(.*)/; $1 } : '.';
-    unshift @INC, File::Spec->catdir($cwd, 'inc');
-    unshift @INC, File::Spec->catdir($cwd, 'lib');
-}
-
-use Test::Unit::Lite;
-
-local $SIG{__WARN__} = sub { require Carp; Carp::confess("Warning: $_[0]") };
-
-all_tests;

Added: MooseX-GlobRef-Object/trunk/t/tlib/MooseX/GlobRef/Meta/Class/Trait/GlobRefTestSuite.pm
===================================================================
--- MooseX-GlobRef-Object/trunk/t/tlib/MooseX/GlobRef/Meta/Class/Trait/GlobRefTestSuite.pm	                        (rev 0)
+++ MooseX-GlobRef-Object/trunk/t/tlib/MooseX/GlobRef/Meta/Class/Trait/GlobRefTestSuite.pm	2008-12-30 22:13:08 UTC (rev 7203)
@@ -0,0 +1,15 @@
+package MooseX::GlobRef::Meta::Class::Trait::GlobRefTestSuite;
+
+use parent 'Test::Unit::TestSuite';
+
+use Test::Unit::Lite;
+    
+sub suite {
+    my $class = shift;
+    my $suite = Test::Unit::TestSuite->empty_new('ClassTrait');
+    $suite->add_test('MooseX::GlobRef::Meta::Class::Trait::GlobRefTest');
+    $suite->add_test('MooseX::GlobRef::Meta::Class::Trait::GlobRefImmutableTest');
+    return $suite;
+};
+
+1;

Added: MooseX-GlobRef-Object/trunk/t/tlib/MooseX/GlobRef/Meta/ClassTestSuite.pm
===================================================================
--- MooseX-GlobRef-Object/trunk/t/tlib/MooseX/GlobRef/Meta/ClassTestSuite.pm	                        (rev 0)
+++ MooseX-GlobRef-Object/trunk/t/tlib/MooseX/GlobRef/Meta/ClassTestSuite.pm	2008-12-30 22:13:08 UTC (rev 7203)
@@ -0,0 +1,15 @@
+package MooseX::GlobRef::Meta::ClassTestSuite;
+
+use parent 'Test::Unit::TestSuite';
+
+use Test::Unit::Lite;
+    
+sub suite {
+    my $class = shift;
+    my $suite = Test::Unit::TestSuite->empty_new('Metaclass');
+    $suite->add_test('MooseX::GlobRef::Meta::ClassTest');
+    $suite->add_test('MooseX::GlobRef::Meta::ClassImmutableTest');
+    return $suite;
+};
+
+1;

Added: MooseX-GlobRef-Object/trunk/t/tlib/MooseX/GlobRef/Meta/InstanceTestSuite.pm
===================================================================
--- MooseX-GlobRef-Object/trunk/t/tlib/MooseX/GlobRef/Meta/InstanceTestSuite.pm	                        (rev 0)
+++ MooseX-GlobRef-Object/trunk/t/tlib/MooseX/GlobRef/Meta/InstanceTestSuite.pm	2008-12-30 22:13:08 UTC (rev 7203)
@@ -0,0 +1,15 @@
+package MooseX::GlobRef::Meta::InstanceTestSuite;
+
+use parent 'Test::Unit::TestSuite';
+
+use Test::Unit::Lite;
+    
+sub suite {
+    my $class = shift;
+    my $suite = Test::Unit::TestSuite->empty_new('MetaclassInstance');
+    $suite->add_test('MooseX::GlobRef::Meta::InstanceTest');
+    $suite->add_test('MooseX::GlobRef::Meta::InstanceImmutableTest');
+    return $suite;
+};
+
+1;

Added: MooseX-GlobRef-Object/trunk/t/tlib/MooseX/GlobRef/ObjectTestSuite.pm
===================================================================
--- MooseX-GlobRef-Object/trunk/t/tlib/MooseX/GlobRef/ObjectTestSuite.pm	                        (rev 0)
+++ MooseX-GlobRef-Object/trunk/t/tlib/MooseX/GlobRef/ObjectTestSuite.pm	2008-12-30 22:13:08 UTC (rev 7203)
@@ -0,0 +1,15 @@
+package MooseX::GlobRef::ObjectTestSuite;
+
+use parent 'Test::Unit::TestSuite';
+
+use Test::Unit::Lite;
+    
+sub suite {
+    my $class = shift;
+    my $suite = Test::Unit::TestSuite->empty_new('ExtendsObject');
+    $suite->add_test('MooseX::GlobRef::ObjectTest');
+    $suite->add_test('MooseX::GlobRef::ObjectImmutableTest');
+    return $suite;
+};
+
+1;