Commit | Line | Data |
996be9ee |
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__->loader_options( relationships => 1 ); |
13 | __PACKAGE__->connection("dbi:$class:dbname=./t/dbictest.db"); |
14 | |
15 | package main; |
16 | |
17 | my $schema_class = 'DBICTest::Schema'; |
18 | my $schema = $schema_class->clone; |
19 | isa_ok($schema, 'DBIx::Class::Schema'); |
20 | |
21 | my $foo_rs = $schema->resultset('Bar')->search({ barid => 3})->search_related('fooref'); |
22 | isa_ok($foo_rs, 'DBIx::Class::ResultSet'); |
23 | |
24 | my $foo_first = $foo_rs->first; |
25 | isa_ok($foo_first, 'DBICTest::Schema::Foo'); |
26 | |
27 | my $foo_first_text = $foo_first->footext; |
28 | is($foo_first_text, 'This is the text of the only Foo record associated with the Bar with barid 3'); |