-#!/usr/bin/perl
+use DBIx::Class::Optional::Dependencies -skip_all_without => 'deploy';
use strict;
use warnings;
use ViewDeps;
use ViewDepsBad;
-BEGIN {
- require DBIx::Class;
- plan skip_all => 'Test needs ' .
- DBIx::Class::Optional::Dependencies->req_missing_for('deploy')
- unless DBIx::Class::Optional::Dependencies->req_ok_for('deploy');
-}
-
-use_ok('DBIx::Class::ResultSource::View');
-
#################### SANITY
my $view = DBIx::Class::ResultSource::View->new;
#################### DEPLOY
- $schema->deploy( { add_drop_table => 1 } );
+ $schema->deploy;
#################### DOES ORDERING WORK?
#################### DEPLOY2
- warnings_exist { $schema2->deploy( { add_drop_table => 1 } ) }
+ warnings_exist { $schema2->deploy }
[qr/no such table: main.aba_name_artists/],
"Deploying the bad schema produces a warning: aba_name_artists was not created.";