[Bast-commits] r5675 - in DBIx-Class/0.08/trunk/t: . lib/DBICTest lib/DBICTest/Taint lib/DBICTest/Taint/Classes lib/DBICTest/Taint/Namespaces lib/DBICTest/Taint/Namespaces/Result

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-03-03 09:30:15 +0000 (Tue, 03 Mar 2009)
New Revision: 5675

Added:
   DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/
   DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Classes/
   DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Classes/Auto.pm
   DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Classes/Manual.pm
   DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Namespaces/
   DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Namespaces/Result/
   DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Namespaces/Result/Test.pm
Removed:
   DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Test.pm
Modified:
   DBIx-Class/0.08/trunk/t/54taint.t
Log:
Rewrite t/54taint.t to properly test load_namespaces()

Modified: DBIx-Class/0.08/trunk/t/54taint.t
===================================================================
--- DBIx-Class/0.08/trunk/t/54taint.t	2009-03-02 16:13:06 UTC (rev 5674)
+++ DBIx-Class/0.08/trunk/t/54taint.t	2009-03-03 09:30:15 UTC (rev 5675)
@@ -5,29 +5,52 @@
 use strict;
 use warnings;
 
-our @plan;
+use Test::More;
 
 BEGIN {
   eval "require Module::Find;";
-  @plan = $@ ? ( skip_all => 'Could not load Module::Find' )
-    : ( tests => 2 );
+  if ($@) {
+    plan skip_all => 'Could not load Module::Find';
+    exit;
+  }
+  else {
+    plan tests => 7;
+  }
 }
 
-package DBICTest::Plain;
+package DBICTest::Taint::Classes;
 
-# Use the Plain test class namespace to avoid the need for a
-# new test infrastructure. If invalid classes will be introduced to
-# 't/lib/DBICTest/Plain/' someday, this has to be reworked.
+use Test::More;
+use Test::Exception;
 
 use lib qw(t/lib);
+use base qw/DBIx::Class::Schema/;
 
-use Test::More @plan;
+lives_ok (sub {
+  __PACKAGE__->load_classes(qw/Manual/);
+  ok( __PACKAGE__->source('Manual'), 'The Classes::Manual source has been registered' );
+  __PACKAGE__->_unregister_source (qw/Manual/);
+}, 'Loading classes with explicit load_classes worked in taint mode' );
 
+lives_ok (sub {
+  __PACKAGE__->load_classes();
+  ok( __PACKAGE__->source('Auto'), 'The Classes::Auto source has been registered' );
+  ok( __PACKAGE__->source('Auto'), 'The Classes::Manual source has been re-registered' );
+}, 'Loading classes with Module::Find/load_classes worked in taint mode' );
+
+
+package DBICTest::Taint::Namespaces;
+
+use Test::More;
+use Test::Exception;
+
+use lib qw(t/lib);
 use base qw/DBIx::Class::Schema/;
 
-eval{ __PACKAGE__->load_classes() };
-cmp_ok( $@, 'eq', '',
-        'Loading classes with Module::Find worked in taint mode' );
-ok( __PACKAGE__->source('Test'), 'The Plain::Test source has been registered' );
+lives_ok (sub {
+  __PACKAGE__->load_namespaces();
+  ok( __PACKAGE__->source('Test'), 'The Namespaces::Test source has been registered' );
+}, 'Loading classes with Module::Find/load_namespaces worked in taint mode' );
 
+
 1;

Copied: DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint (from rev 5674, DBIx-Class/0.08/trunk/t/lib/DBICTest/Plain)

Added: DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Classes/Auto.pm
===================================================================
--- DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Classes/Auto.pm	                        (rev 0)
+++ DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Classes/Auto.pm	2009-03-03 09:30:15 UTC (rev 5675)
@@ -0,0 +1,7 @@
+package # hide from PAUSE 
+    DBICTest::Taint::Classes::Auto;
+
+use base 'DBIx::Class::Core';
+__PACKAGE__->table('test');
+
+1;

Added: DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Classes/Manual.pm
===================================================================
--- DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Classes/Manual.pm	                        (rev 0)
+++ DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Classes/Manual.pm	2009-03-03 09:30:15 UTC (rev 5675)
@@ -0,0 +1,7 @@
+package # hide from PAUSE 
+    DBICTest::Taint::Classes::Manual;
+
+use base 'DBIx::Class::Core';
+__PACKAGE__->table('test');
+
+1;

Added: DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Namespaces/Result/Test.pm
===================================================================
--- DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Namespaces/Result/Test.pm	                        (rev 0)
+++ DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Namespaces/Result/Test.pm	2009-03-03 09:30:15 UTC (rev 5675)
@@ -0,0 +1,7 @@
+package # hide from PAUSE 
+    DBICTest::Taint::Namespaces::Result::Test;
+
+use base 'DBIx::Class::Core';
+__PACKAGE__->table('test');
+
+1;

Deleted: DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Test.pm
===================================================================
--- DBIx-Class/0.08/trunk/t/lib/DBICTest/Plain/Test.pm	2009-03-02 16:13:06 UTC (rev 5674)
+++ DBIx-Class/0.08/trunk/t/lib/DBICTest/Taint/Test.pm	2009-03-03 09:30:15 UTC (rev 5675)
@@ -1,18 +0,0 @@
-package # hide from PAUSE 
-    DBICTest::Plain::Test;
-
-use base 'DBIx::Class::Core';
-
-__PACKAGE__->table('test');
-__PACKAGE__->add_columns(
-  'id' => {
-    data_type => 'integer',
-    is_auto_increment => 1
-  },
-  'name' => {
-    data_type => 'varchar',
-  },
-);
-__PACKAGE__->set_primary_key('id');
-
-1;