Commit | Line | Data |
c8e085ba |
1 | use strict; |
2 | use warnings; |
3 | use lib 't/lib'; |
4 | use Test::More; |
5 | use Test::Exception; |
6 | use Devel::Dwarn; |
c8e085ba |
7 | |
8 | BEGIN { |
9 | use_ok 'Cafe'; |
10 | $ENV{DBIC_TRACE} = 1; |
11 | } |
12 | |
8f839b1c |
13 | my $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'))); |
19 | isa_ok($schema->source('Sumatra'), 'DBIx::Class::ResultSource::View', "My MTI class also"); |
c8e085ba |
20 | |
8f839b1c |
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); |
c8e085ba |
38 | #my $drink = $schema->resultset('Sumatra')->new_result({sweetness => 6, aroma => 'chocolate'}); |
8f839b1c |
39 | ok($drink, "made new drink OK"); |
40 | $drink->insert; |
41 | diag(Dwarn $drink->result_source->columns); |
c8e085ba |
42 | |
8f839b1c |
43 | diag(Dwarn mro::get_linear_isa $drink); |
c8e085ba |
44 | |
8f839b1c |
45 | $drink->insert_or_update; |
c8e085ba |
46 | |
47 | done_testing; |