Commit | Line | Data |
47bbe592 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | |
6 | eval "use DBD::SQLite"; |
7 | plan skip_all => 'needs DBD::SQLite for testing' if $@; |
8 | plan tests => 5; |
9 | |
10 | use lib 't/lib'; |
11 | |
12 | use_ok('DBICTest'); |
13 | |
14 | cmp_ok(DBICTest::CD->count({ 'artist.name' => 'Caterwauler McCrae' }, |
15 | { join => 'artist' }), |
16 | '==', 3, 'Count by has_a ok'); |
17 | |
18 | cmp_ok(DBICTest::CD->count({ 'tags.tag' => 'Blue' }, { join => 'tags' }), |
19 | '==', 4, 'Count by has_many ok'); |
20 | |
21 | cmp_ok(DBICTest::CD->count( |
22 | { 'liner_notes.notes' => { '!=' => undef } }, |
23 | { join => 'liner_notes' }), |
24 | '==', 3, 'Count by might_have ok'); |
25 | |
26 | cmp_ok(DBICTest::CD->count( |
27 | { 'year' => { '>', 1998 }, 'tags.tag' => 'Cheesy', |
28 | 'liner_notes.notes' => { 'like' => 'Buy%' } }, |
29 | { join => [ qw/tags liner_notes/ ] } ), |
30 | '==', 2, "Mixed count ok"); |