[Bast-commits] r9470 - in
DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps:
lib/DBIx/Class/ResultSource t t/lib/ViewDeps/Result
amiri at dev.catalyst.perl.org
amiri at dev.catalyst.perl.org
Mon May 31 14:03:56 GMT 2010
Author: amiri
Date: 2010-05-31 15:03:56 +0100 (Mon, 31 May 2010)
New Revision: 9470
Removed:
DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Bar.pm
DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Baz.pm
DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Foo.pm
DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/JustATable.pm
DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Mixin.pm
DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Quux.pm
Modified:
DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/lib/DBIx/Class/ResultSource/View.pm
DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/105view_deps.t
Log:
Remove unused includes in View.pm, remove abstract test Schema classes. --AKB
Modified: DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/lib/DBIx/Class/ResultSource/View.pm
===================================================================
--- DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/lib/DBIx/Class/ResultSource/View.pm 2010-05-31 11:21:03 UTC (rev 9469)
+++ DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/lib/DBIx/Class/ResultSource/View.pm 2010-05-31 14:03:56 UTC (rev 9470)
@@ -4,8 +4,6 @@
use warnings;
use DBIx::Class::ResultSet;
-use SQL::Translator::Parser::DBIx::Class;
-use Data::Dumper::Concise;
use base qw/DBIx::Class/;
__PACKAGE__->load_components(qw/ResultSource/);
Modified: DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/105view_deps.t
===================================================================
--- DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/105view_deps.t 2010-05-31 11:21:03 UTC (rev 9469)
+++ DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/105view_deps.t 2010-05-31 14:03:56 UTC (rev 9470)
@@ -40,8 +40,10 @@
is( $bar_deps[0], 'baz', 'which is reported to depend on baz...' );
is( $bar_deps[1], 'mixin', 'and on mixin.' );
-is( $foo_deps[0], undef, 'Foo has no dependencies...' );
+is( $foo_deps[0], undef, 'Foo has no declared dependencies...' );
+
+
isa_ok(
$schema->resultset('Foo')->result_source,
'DBIx::Class::ResultSource::View',
Deleted: DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Bar.pm
===================================================================
--- DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Bar.pm 2010-05-31 11:21:03 UTC (rev 9469)
+++ DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Bar.pm 2010-05-31 14:03:56 UTC (rev 9470)
@@ -1,26 +0,0 @@
-package # hide from PAUSE
- ViewDeps::Result::Bar;
-
-use strict;
-use warnings;
-use base qw/ViewDeps::Result::Foo/;
-
-require ViewDeps::Result::Mixin;
-
-__PACKAGE__->table('bar');
-
-__PACKAGE__->result_source_instance->deploy_depends_on(
- ["ViewDeps::Result::Mixin", "ViewDeps::Result::Baz"] );
-
-__PACKAGE__->add_columns( b => { data_type => 'integer' } );
-
-__PACKAGE__->belongs_to(
- 'table',
- 'ViewDeps::Result::JustATable',
- { 'foreign.id' => 'self.b' },
-);
-
-__PACKAGE__->has_many( 'foos', 'ViewDeps::Result::Foo',
- { 'foreign.id' => 'self.id' } );
-
-1;
Deleted: DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Baz.pm
===================================================================
--- DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Baz.pm 2010-05-31 11:21:03 UTC (rev 9469)
+++ DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Baz.pm 2010-05-31 14:03:56 UTC (rev 9470)
@@ -1,22 +0,0 @@
-package # hide from PAUSE
- ViewDeps::Result::Baz;
-## Used in 105view_deps.t
-
-use strict;
-use warnings;
-use base qw(DBIx::Class::Core);
-
-__PACKAGE__->table('baz');
-
-__PACKAGE__->add_columns( id => { data_type => 'integer' } );
-
-__PACKAGE__->belongs_to(
- 'table',
- 'ViewDeps::Result::JustATable',
- { 'foreign.id' => 'self.b' },
-);
-
-__PACKAGE__->has_many( 'foos', 'ViewDeps::Result::Foo',
- { 'foreign.a' => 'self.id' } );
-
-1;
Deleted: DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Foo.pm
===================================================================
--- DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Foo.pm 2010-05-31 11:21:03 UTC (rev 9469)
+++ DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Foo.pm 2010-05-31 14:03:56 UTC (rev 9470)
@@ -1,24 +0,0 @@
-package # hide from PAUSE
- ViewDeps::Result::Foo;
-
-use strict;
-use warnings;
-use base qw(ViewDeps::Result::Quux);
-
-__PACKAGE__->table_class('DBIx::Class::ResultSource::View');
-__PACKAGE__->table('foo');
-
-__PACKAGE__->result_source_instance->view_definition(
- "select * from just_a_table");
-
-__PACKAGE__->add_columns(
- id => { data_type => 'integer', is_auto_increment => 1 },
- a => { data_type => 'integer', is_nullable => 1 }
-);
-
-__PACKAGE__->set_primary_key('id');
-
-__PACKAGE__->belongs_to( 'bar', 'ViewDeps::Result::Bar',
- { 'foreign.id' => 'self.a' } );
-
-1;
Deleted: DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/JustATable.pm
===================================================================
--- DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/JustATable.pm 2010-05-31 11:21:03 UTC (rev 9469)
+++ DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/JustATable.pm 2010-05-31 14:03:56 UTC (rev 9470)
@@ -1,19 +0,0 @@
-package # hide from PAUSE
- ViewDeps::Result::JustATable;
-## Used in 105view_deps.t
-
-use base qw(DBIx::Class::Core);
-
-__PACKAGE__->table('just_a_table');
-
-__PACKAGE__->add_columns(
- id => { data_type => 'integer', is_auto_increment => 1 },
- name => { data_type => 'varchar', size => 255 }
-);
-
-__PACKAGE__->set_primary_key('id');
-
-__PACKAGE__->has_many( 'bars', 'ViewDeps::Result::Bar',
- { 'foreign.b' => 'self.id' } );
-
-1;
Deleted: DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Mixin.pm
===================================================================
--- DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Mixin.pm 2010-05-31 11:21:03 UTC (rev 9469)
+++ DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Mixin.pm 2010-05-31 14:03:56 UTC (rev 9470)
@@ -1,20 +0,0 @@
-package # hide from PAUSE
- ViewDeps::Result::Mixin;
-## Used in 105view_deps.t
-
-use strict;
-use warnings;
-use base qw(DBIx::Class::Core);
-
-__PACKAGE__->table('mixin');
-
-__PACKAGE__->add_columns(
- id => {
- data_type => 'integer', is_auto_increment => 1, sequence => 'foo_id_seq'
- },
- words => { data_type => 'text' }
-);
-
-__PACKAGE__->set_primary_key('id');
-
-1;
Deleted: DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Quux.pm
===================================================================
--- DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Quux.pm 2010-05-31 11:21:03 UTC (rev 9469)
+++ DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Quux.pm 2010-05-31 14:03:56 UTC (rev 9470)
@@ -1,24 +0,0 @@
-package # hide from PAUSE
- ViewDeps::Result::Quux;
-
-use strict;
-use warnings;
-use base qw(DBIx::Class::Core);
-
-__PACKAGE__->table_class('DBIx::Class::ResultSource::View');
-__PACKAGE__->table('quux');
-
-__PACKAGE__->result_source_instance->view_definition(
- "select * from quux");
-
-__PACKAGE__->add_columns(
- etc => { data_type => 'text' },
- c => { data_type => 'integer', is_nullable => 1 }
-);
-
-__PACKAGE__->set_primary_key('c');
-
-__PACKAGE__->belongs_to( 'foo', 'ViewDeps::Result::Foo',
- { 'foreign.a' => 'self.c' } );
-
-1;
More information about the Bast-commits
mailing list