15 #$ENV{DBIC_TRACE} = 1;
16 use_ok('DBIx::Class::ResultSource::View');
19 #################### SANITY
21 my $view = DBIx::Class::ResultSource::View->new( { name => 'Quux' } );
23 isa_ok( $view, 'DBIx::Class::ResultSource', 'A new view' );
24 isa_ok( $view, 'DBIx::Class', 'A new view also' );
26 can_ok( $view, $_ ) for qw/new from deploy_depends_on/;
28 #################### DEPS
30 #if (-e "t/var/viewdeps.db") {
31 #ok(unlink("t/var/viewdeps.db"),"Deleted old DB OK");
34 my @sql_files = glob("t/sql/ViewDeps*.sql");
36 ok( unlink($_), "Deleted old SQL $_ OK" );
39 my $schema = ViewDeps->connect( 'dbi:SQLite:dbname=t/var/viewdeps.db',
40 { quote_char => '"', } );
41 ok( $schema, 'Connected to ViewDeps schema OK' );
45 $schema->resultset($_)->result_source->name =>
46 $schema->resultset($_)->result_source->deploy_depends_on
49 $schema->resultset($_)
50 ->result_source->isa('DBIx::Class::ResultSource::View')
51 } @{ [ $schema->sources ] }
54 #diag( Dwarn $deps_ref);
56 my @sorted_sources = sort {
57 keys %{ $deps_ref->{$a} || {} } <=> keys %{ $deps_ref->{$b} || {} }
62 #diag( Dwarn @sorted_sources );
64 #################### DEPLOY
66 my $ddl_dir = "t/sql";
67 $schema->create_ddl_dir( [ 'PostgreSQL', 'MySQL', 'SQLite' ], 0.1, $ddl_dir );
69 ok( -e $_, "$_ was created successfully" ) for @sql_files;
71 $schema->deploy( { add_drop_table => 1 } );
73 #################### DOES ORDERING WORK?
75 my $tr = $schema->{sqlt};
76 #diag("My TR isa: ", ref $tr);
77 #diag( Dwarn keys %{$tr->{views}});
78 my @keys = keys %{$tr->{views}};
83 $tr->{views}->{$a}->{order} cmp $tr->{views}->{$b}->{order}
87 #diag(Dwarn @sqlt_sources);
89 is_deeply(\@sorted_sources,\@sqlt_sources,"SQLT view order triumphantly matchs our order.");