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
   8 BEGIN {
   9     use_ok 'Cafe';
  10     $ENV{DBIC_TRACE} = 1;
  11 }
  12
  13 my $schema = Cafe->connect( 'dbi:Pg:dbname=cafe', 'postgres', '' );
  14 #diag( DwarnS $schema);
  15
  16
  17 #diag(Dwarn $schema->source('Sumatra'));
  18 #diag(ref($schema->source('Sumatra')));
  19 isa_ok($schema->source('Sumatra'), 'DBIx::Class::ResultSource::View', "My MTI class also");
  20
  21
  22 my $dir = "t/sql";    # tempdir(CLEANUP => 0);
  23 $schema->create_ddl_dir( ['PostgreSQL'], 0.1, $dir );
  24
  25
  26
  27
  28
  29 $schema->deploy( { add_drop_table => 1, add_drop_view => 1 } );
  30
  31 my $drink = $schema->resultset('Sumatra')
  32     ->create( { sweetness => 4, aroma => 'earthy', flavor => 'great' } );
  33
  34 my $cup = $schema->resultset('Coffee');
  35
  36 diag(Dwarn $cup->result_source->columns);
  37 diag(Dwarn $schema->resultset('Sumatra')->result_source->columns);
  38 #my $drink =  $schema->resultset('Sumatra')->new_result({sweetness => 6, aroma => 'chocolate'});
  39 ok($drink, "made new drink OK");
  40 $drink->insert;
  41 diag(Dwarn $drink->result_source->columns);
  42
  43 diag(Dwarn mro::get_linear_isa $drink);
  44
  45 $drink->insert_or_update;
  46
  47 done_testing;