t/02view_def.t

   1 use strict;
   2 use warnings;
   3 use lib 't/lib';
   4 use File::Temp;
   5 use Test::More qw(no_plan);
   6 use Test::Exception;
   7 use LoadTest;
   8
   9 BEGIN {
  10     $ENV{DBIC_TRACE} = 0;
  11 }
  12
  13 my ( $dsn, $user, $pass )
  14     = @ENV{ map {"DBICTEST_PG_${_}"} qw/DSN USER PASS/ };
  15
  16 plan skip_all => <<'EOM' unless $dsn && $user;
  17 Set $ENV{DBICTEST_PG_DSN}, _USER and _PASS to run this test
  18 ( NOTE: This test drops and creates some tables.')
  19 EOM
  20
  21 dies_ok { LoadTest->source('Foo')->view_definition }
  22 "Can't generate view def without connected schema";
  23
  24 my $schema = LoadTest->connect( $dsn, $user, $pass );
  25
  26 my $dir = "t/sql";    # tempdir(CLEANUP => 0);
  27
  28 lives_ok { $schema->create_ddl_dir( ['PostgreSQL'], 0.1, $dir ) }
  29 "It's OK to create_ddl_dir";
  30 lives_ok {
  31     $schema->deploy( { add_drop_table => 1, add_drop_view => 1, } );
  32 }
  33 "It's also OK to deploy the schema";