get rid of an empty trailing hashref if appropriate

[dbsrgits/DBIx-Class-Schema-Loader.git] / t / 22invoke_deprecated_three.t

use strict;
use Test::More tests => 4;
use lib qw(t/lib);
use make_dbictest_db;

eval { require DBD::SQLite };
my $class = $@ ? 'SQLite2' : 'SQLite';

package DBICTest::Schema;
use base qw/ DBIx::Class::Schema::Loader /;

__PACKAGE__->load_from_connection(
    relationships => 1,
    dsn => "dbi:$class:dbname=./t/dbictest.db",
);

package main;

my $schema_class = 'DBICTest::Schema';
my $schema = $schema_class->clone;
isa_ok($schema, 'DBIx::Class::Schema');

my $foo_rs = $schema->resultset('Bar')->search({ barid => 3})->search_related('fooref');
isa_ok($foo_rs, 'DBIx::Class::ResultSet');

my $foo_first = $foo_rs->first;
isa_ok($foo_first, 'DBICTest::Schema::Foo');

my $foo_first_text = $foo_first->footext;
is($foo_first_text, 'This is the text of the only Foo record associated with the Bar with barid 3');