Already changed source_name keys in deploy_depends_on to use the new
[dbsrgits/DBIx-Class-ResultSource-MultipleTableInheritance.git] / t / 03cafe.t
index e9bf592..6293ba2 100644 (file)
@@ -4,31 +4,44 @@ use lib 't/lib';
 use Test::More;
 use Test::Exception;
 use Devel::Dwarn;
-use Carp::Always;
 
 BEGIN {
     use_ok 'Cafe';
     $ENV{DBIC_TRACE} = 1;
 }
 
-my $schema = Cafe->connect('dbi:Pg:dbname=cafe','postgres','');
+my $schema = Cafe->connect( 'dbi:Pg:dbname=cafe', 'postgres', '' );
+#diag( DwarnS $schema);
 
-my $dir = "t/sql"; # tempdir(CLEANUP => 0);
-$schema->create_ddl_dir([ 'PostgreSQL' ], 0.1, $dir);
-$schema->deploy({add_drop_table => 1, add_drop_view => 1});
 
-my $drink = $schema->resultset('Sumatra')->create({sweetness => 4, aroma => 'earthy', flavor => 'great'});
-#my $cup = $schema->resultset('Coffee');
+#diag(Dwarn $schema->source('Sumatra'));
+#diag(ref($schema->source('Sumatra')));
+isa_ok($schema->source('Sumatra'), 'DBIx::Class::ResultSource::View', "My MTI class also");
 
-#diag(Dwarn $cup->result_source->columns);
-#diag(Dwarn $schema->resultset('Sumatra')->result_source->columns);
+
+my $dir = "t/sql";    # tempdir(CLEANUP => 0);
+$schema->create_ddl_dir( ['PostgreSQL'], 0.1, $dir );
+
+
+
+
+
+$schema->deploy( { add_drop_table => 1, add_drop_view => 1 } );
+
+my $drink = $schema->resultset('Sumatra')
+    ->create( { sweetness => 4, aroma => 'earthy', flavor => 'great' } );
+
+my $cup = $schema->resultset('Coffee');
+
+diag(Dwarn $cup->result_source->columns);
+diag(Dwarn $schema->resultset('Sumatra')->result_source->columns);
 #my $drink =  $schema->resultset('Sumatra')->new_result({sweetness => 6, aroma => 'chocolate'});
-#ok($drink, "made new drink OK");
-#$drink->insert;
-#diag(Dwarn $drink->result_source->columns);
+ok($drink, "made new drink OK");
+$drink->insert;
+diag(Dwarn $drink->result_source->columns);
 
-#diag(Dwarn mro::get_linear_isa $drink);
+diag(Dwarn mro::get_linear_isa $drink);
 
-#$drink->insert_or_update;
+$drink->insert_or_update;
 
 done_testing;