t/22invoke_deprecated_three.t

   1 use strict;
   2 use Test::More tests => 4;
   3 use lib qw(t/lib);
   4 use make_dbictest_db;
   5
   6 eval { require DBD::SQLite };
   7 my $class = $@ ? 'SQLite2' : 'SQLite';
   8
   9 package DBICTest::Schema;
  10 use base qw/ DBIx::Class::Schema::Loader /;
  11
  12 __PACKAGE__->load_from_connection(
  13     relationships => 1,
  14     dsn => "dbi:$class:dbname=./t/dbictest.db",
  15 );
  16
  17 package main;
  18
  19 my $schema_class = 'DBICTest::Schema';
  20 my $schema = $schema_class->clone;
  21 isa_ok($schema, 'DBIx::Class::Schema');
  22
  23 my $foo_rs = $schema->resultset('Bar')->search({ barid => 3})->search_related('fooref');
  24 isa_ok($foo_rs, 'DBIx::Class::ResultSet');
  25
  26 my $foo_first = $foo_rs->first;
  27 isa_ok($foo_first, 'DBICTest::Schema::Foo');
  28
  29 my $foo_first_text = $foo_first->footext;
  30 is($foo_first_text, 'This is the text of the only Foo record associated with the Bar with barid 3');
  31