t/03cafe.t

   1 use strict;
   2 use warnings;
   3 use lib 't/lib';
   4 use Test::More;
   5 use Test::Exception;
   6 use Devel::Dwarn;
   7 use Carp::Always;
   8
   9 BEGIN {
  10     use_ok 'Cafe';
  11     $ENV{DBIC_TRACE} = 1;
  12 }
  13
  14 my $schema = Cafe->connect('dbi:Pg:dbname=cafe','postgres','');
  15
  16 my $dir = "t/sql"; # tempdir(CLEANUP => 0);
  17 $schema->create_ddl_dir([ 'PostgreSQL' ], 0.1, $dir);
  18 $schema->deploy({add_drop_table => 1, add_drop_view => 1});
  19
  20 my $drink = $schema->resultset('Sumatra')->create({sweetness => 4, aroma => 'earthy', flavor => 'great'});
  21 #my $cup = $schema->resultset('Coffee');
  22
  23 #diag(Dwarn $cup->result_source->columns);
  24 #diag(Dwarn $schema->resultset('Sumatra')->result_source->columns);
  25 #my $drink =  $schema->resultset('Sumatra')->new_result({sweetness => 6, aroma => 'chocolate'});
  26 #ok($drink, "made new drink OK");
  27 #$drink->insert;
  28 #diag(Dwarn $drink->result_source->columns);
  29
  30 #diag(Dwarn mro::get_linear_isa $drink);
  31
  32 #$drink->insert_or_update;
  33
  34 done_testing;