[dbsrgits/DBIx-Class.git] / t / 17join_count.t

use strict;
use warnings;

use Test::More;

eval "use DBD::SQLite";
plan skip_all => 'needs DBD::SQLite for testing' if $@;
plan tests => 5;

use lib 't/lib';

use_ok('DBICTest');

cmp_ok(DBICTest::CD->count({ 'artist.name' => 'Caterwauler McCrae' },
                           { join => 'artist' }),
           '==', 3, 'Count by has_a ok');

cmp_ok(DBICTest::CD->count({ 'tags.tag' => 'Blue' }, { join => 'tags' }),
           '==', 4, 'Count by has_many ok');

cmp_ok(DBICTest::CD->count(
           { 'liner_notes.notes' => { '!=' =>  undef } },
           { join => 'liner_notes' }),
           '==', 3, 'Count by might_have ok');

cmp_ok(DBICTest::CD->count(
           { 'year' => { '>', 1998 }, 'tags.tag' => 'Cheesy',
               'liner_notes.notes' => { 'like' => 'Buy%' } },
           { join => [ qw/tags liner_notes/ ] } ),
           '==', 2, "Mixed count ok");
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");