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 Data::Dumper; $Data::Dumper::Indent = 1;
   8
   9 BEGIN { use_ok 'MTITest'; }
  10
  11 dies_ok { MTITest->source('Foo')->view_definition }
  12   "Can't generate view def without connected schema";
  13
  14 my $schema = MTITest->connect('dbi:SQLite::memory:');
  15
  16 my $dir = "t/sql"; # tempdir(CLEANUP => 0);
  17
  18 $schema->create_ddl_dir([ 'PostgreSQL' ], 0.1, $dir);
  19
  20 #warn $schema->source($_)->view_definition for qw(Foo Bar);
  21 #use Data::Dumper; $Data::Dumper::Indent = 1;
  22 #warn Dumper($schema->source($_)) for qw(Foo Bar);