[Bast-commits] r9528 - in DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t: . lib/ViewDeps/Result

amiri at dev.catalyst.perl.org amiri at dev.catalyst.perl.org
Tue Jun 1 22:19:53 GMT 2010


Author: amiri
Date: 2010-06-01 23:19:53 +0100 (Tue, 01 Jun 2010)
New Revision: 9528

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/lib/ViewDeps/Result/Year2010CDsWithManyTracks.pm
Log:
Rewrite 105view_deps.t and a ViewDeps::Result class.



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-06-01 22:03:32 UTC (rev 9527)
+++ DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/105view_deps.t	2010-06-01 22:19:53 UTC (rev 9528)
@@ -9,8 +9,10 @@
 use ViewDeps;
 use Devel::Dwarn;
 use Data::Dumper;
+use Carp::Always;
 
 BEGIN {
+    $ENV{DBIC_TRACE} = 1;
     use_ok('DBIx::Class::ResultSource::View');
 }
 
@@ -24,8 +26,16 @@
 can_ok( $view, $_ ) for qw/new from deploy_depends_on/;
 
 ### DEPS
+#if (-e "t/var/viewdeps.db") {
+#ok(unlink("t/var/viewdeps.db"),"Deleted old DB OK");
+#}
+my @sql_files = glob("t/sql/ViewDeps*.sql");
+for (@sql_files) {
+    ok( unlink($_), "Deleted old SQL $_ OK" );
+}
 
-my $schema = ViewDeps->connect;
+my $schema = ViewDeps->connect( 'dbi:SQLite:dbname=t/var/viewdeps.db',
+    { quote_char => '"', } );
 ok( $schema, 'Connected to ViewDeps schema OK' );
 
 my $deps_ref = {
@@ -41,33 +51,29 @@
 
 diag( Dwarn $deps_ref);
 
+my @sorted_sources = sort {
+    keys %{ $deps_ref->{$a} || {} } <=> keys %{ $deps_ref->{$b} || {} }
+        || $a cmp $b
+    }
+    keys %$deps_ref;
 
-#isa_ok( $schema->resultset('Bar')->result_source,
-#'DBIx::Class::ResultSource::View', 'Bar' );
+diag( Dwarn @sorted_sources );
 
-#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 declared dependencies...' );
+### DEPLOY
 
-#isa_ok(
-#$schema->resultset('Foo')->result_source,
-#'DBIx::Class::ResultSource::View',
-#'though Foo'
-#);
-#isa_ok(
-#$schema->resultset('Baz')->result_source,
-#'DBIx::Class::ResultSource::Table',
-#"Baz on the other hand"
-#);
-#dies_ok {
-#ViewDeps::Result::Baz->result_source_instance
-#->deploy_depends_on("ViewDeps::Result::Mixin");
-#}
-#"...and you cannot use deploy_depends_on with that";
+my $ddl_dir = "t/sql";
+$schema->create_ddl_dir( [ 'PostgreSQL', 'MySQL', 'SQLite' ], 0.1, $ddl_dir );
 
-### DEPLOY
+ok( -e $_, "$_ was created successfully" ) for @sql_files;
 
-my $dir = "t/sql";
-$schema->create_ddl_dir( [ 'PostgreSQL', 'SQLite' ], 0.1, $dir );
+$schema->deploy( { add_drop_table => 1 } );
 
+### DOES ORDERING WORK?
+
+my $tr = SQL::Translator->new( add_drop_table => 1 );
+$tr->{parser_args}->{'DBIx::Class::Schema'} = $schema;
+my $sqlt = SQL::Translator::Parser::DBIx::Class::parse( $tr, $schema );
+
+diag( Dwarn $sqlt);    # Nope. A 1.
+
 done_testing;

Modified: DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Year2010CDsWithManyTracks.pm
===================================================================
--- DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Year2010CDsWithManyTracks.pm	2010-06-01 22:03:32 UTC (rev 9527)
+++ DBIx-Class/0.08/branches/_abandoned_but_possibly_useful/view-deps/t/lib/ViewDeps/Result/Year2010CDsWithManyTracks.pm	2010-06-01 22:19:53 UTC (rev 9528)
@@ -8,7 +8,7 @@
 __PACKAGE__->table_class('DBIx::Class::ResultSource::View');
 __PACKAGE__->table('year_2010_cds_with_many_tracks');
 __PACKAGE__->result_source_instance->view_definition(
-    "SELECT cd.id,cd.title,cd.artist,cd.year,cd.number_tracks,artwork.id FROM year_2010_cds cd,artwork artwork WHERE cd.number_tracks > 10 AND artwork.cd = cd.id"
+    "SELECT cd.id,cd.title,cd.artist,cd.year,cd.number_tracks,art.id FROM year_2010_cds cd,artwork art WHERE cd.number_tracks > 10 AND art.cd = cd.id"
 );
 
 __PACKAGE__->result_source_instance->deploy_depends_on(




More information about the Bast-commits mailing list