Change gitignore to ignore generated sql;
[dbsrgits/DBIx-Class-ResultSource-MultipleTableInheritance.git] / t / 03cafe.t
CommitLineData
c8e085ba 1use strict;
2use warnings;
3use lib 't/lib';
4use Test::More;
5use Test::Exception;
6use Devel::Dwarn;
c8e085ba 7
8BEGIN {
9 use_ok 'Cafe';
10 $ENV{DBIC_TRACE} = 1;
11}
12
8f839b1c 13my $schema = Cafe->connect( 'dbi:Pg:dbname=cafe', 'postgres', '' );
14#diag( DwarnS $schema);
c8e085ba 15
c8e085ba 16
8f839b1c 17#diag(Dwarn $schema->source('Sumatra'));
18#diag(ref($schema->source('Sumatra')));
19isa_ok($schema->source('Sumatra'), 'DBIx::Class::ResultSource::View', "My MTI class also");
c8e085ba 20
8f839b1c 21
22my $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
31my $drink = $schema->resultset('Sumatra')
32 ->create( { sweetness => 4, aroma => 'earthy', flavor => 'great' } );
33
34my $cup = $schema->resultset('Coffee');
35
36diag(Dwarn $cup->result_source->columns);
37diag(Dwarn $schema->resultset('Sumatra')->result_source->columns);
c8e085ba 38#my $drink = $schema->resultset('Sumatra')->new_result({sweetness => 6, aroma => 'chocolate'});
8f839b1c 39ok($drink, "made new drink OK");
40$drink->insert;
41diag(Dwarn $drink->result_source->columns);
c8e085ba 42
8f839b1c 43diag(Dwarn mro::get_linear_isa $drink);
c8e085ba 44
8f839b1c 45$drink->insert_or_update;
c8e085ba 46
47done_testing;