16 use_ok('DBIx::Class::ResultSource::View');
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/;
29 #if (-e "t/var/viewdeps.db") {
30 #ok(unlink("t/var/viewdeps.db"),"Deleted old DB OK");
32 my @sql_files = glob("t/sql/ViewDeps*.sql");
34 ok( unlink($_), "Deleted old SQL $_ OK" );
37 my $schema = ViewDeps->connect( 'dbi:SQLite:dbname=t/var/viewdeps.db',
38 { quote_char => '"', } );
39 ok( $schema, 'Connected to ViewDeps schema OK' );
43 $schema->resultset($_)->result_source->source_name =>
44 $schema->resultset($_)->result_source->deploy_depends_on
47 $schema->resultset($_)
48 ->result_source->isa('DBIx::Class::ResultSource::View')
49 } @{ [ $schema->sources ] }
52 diag( Dwarn $deps_ref);
54 my @sorted_sources = sort {
55 keys %{ $deps_ref->{$a} || {} } <=> keys %{ $deps_ref->{$b} || {} }
60 diag( Dwarn @sorted_sources );
64 my $ddl_dir = "t/sql";
65 $schema->create_ddl_dir( [ 'PostgreSQL', 'MySQL', 'SQLite' ], 0.1, $ddl_dir );
67 ok( -e $_, "$_ was created successfully" ) for @sql_files;
69 $schema->deploy( { add_drop_table => 1 } );
71 ### DOES ORDERING WORK?
73 my $tr = SQL::Translator->new( add_drop_table => 1 );
74 $tr->{parser_args}->{'DBIx::Class::Schema'} = $schema;
75 my $sqlt = SQL::Translator::Parser::DBIx::Class::parse( $tr, $schema );
77 diag( Dwarn $sqlt); # Nope. A 1.