[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
dexter at code2.0beta.co.uk
Tue Dec 30 22:13:09 GMT 2008
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;
More information about the Moose-commits
mailing list