Rewrite 105view_deps.t and a ViewDeps::Result class.

[dbsrgits/DBIx-Class-Historic.git] / t / 105view_deps.t

diff --git a/t/105view_deps.t b/t/105view_deps.t
index a9e63e6..796f3da 100644 (file)
--- a/t/105view_deps.t
+++ b/t/105view_deps.t
@@ -8,8 +8,11 @@ use Test::Exception;
 use lib qw(t/lib);
 use ViewDeps;
 use Devel::Dwarn;
+use Data::Dumper;
+use Carp::Always;
 
 BEGIN {
+    $ENV{DBIC_TRACE} = 1;
     use_ok('DBIx::Class::ResultSource::View');
 }
 
@@ -23,50 +26,54 @@ isa_ok( $view, 'DBIx::Class', 'A new view also' );
 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 $bar_rs = $schema->resultset('Bar');
-
-#diag(DwarnS $bar_rs->result_source);
-
-my @bar_deps
-    = keys %{ $schema->resultset('Bar')->result_source->deploy_depends_on };
-
-my @foo_deps
-    = keys %{ $schema->resultset('Foo')->result_source->deploy_depends_on };
-
-isa_ok( $schema->resultset('Bar')->result_source,
-    'DBIx::Class::ResultSource::View', 'Bar' );
-
-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...' );
-
-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";
 
-diag(
-    "ViewDeps::Foo view definition: ",
-    ViewDeps->source('Foo')->view_definition
-);
-diag( "schema->rs(Bar) view definition: ",
-    $schema->resultset('Bar')->result_source->view_definition );
+my $deps_ref = {
+    map {
+        $schema->resultset($_)->result_source->source_name =>
+            $schema->resultset($_)->result_source->deploy_depends_on
+        }
+        grep {
+        $schema->resultset($_)
+            ->result_source->isa('DBIx::Class::ResultSource::View')
+        } @{ [ $schema->sources ] }
+};
+
+diag( Dwarn $deps_ref);
+
+my @sorted_sources = sort {
+    keys %{ $deps_ref->{$a} || {} } <=> keys %{ $deps_ref->{$b} || {} }
+        || $a cmp $b
+    }
+    keys %$deps_ref;
+
+diag( Dwarn @sorted_sources );
+
+### DEPLOY
+
+my $ddl_dir = "t/sql";
+$schema->create_ddl_dir( [ 'PostgreSQL', 'MySQL', 'SQLite' ], 0.1, $ddl_dir );
+
+ok( -e $_, "$_ was created successfully" ) for @sql_files;
+
+$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 );
 
-my $dir = "t/sql";    # tempdir(CLEANUP => 0);
-$schema->create_ddl_dir( ['PostgreSQL','SQLite'], 0.1, $dir );
+diag( Dwarn $sqlt);    # Nope. A 1.
 
 done_testing;