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; |
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; |