t/03cafe.t

   1 use strict;
   2 use warnings;
   3 use lib 't/lib';
   4 use Test::More qw(no_plan);
   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
  15 isa_ok($schema->source('Sumatra'), 'DBIx::Class::ResultSource::View', "My MTI class also");
  16
  17 #my $dir = "t/sql";    # tempdir(CLEANUP => 0);
  18 #$schema->create_ddl_dir( ['PostgreSQL'], 0.1, $dir );
  19
  20 #$schema->deploy( { add_drop_table => 1, add_drop_view => 1 } );
  21
  22 my $drink = $schema->resultset('Sumatra')
  23     ->create( { sweetness => 4, aroma => 'earthy', flavor => 'great' } );
  24
  25 #my $cup = $schema->resultset('Coffee');
  26
  27 ##my $drink =  $schema->resultset('Sumatra')->new_result({sweetness => 6, aroma => 'chocolate'});
  28 #ok($drink, "made new drink OK");
  29 #$drink->insert;
  30
  31 #$drink->insert_or_update;