[dbsrgits/DBIx-Class.git] / t / count_distinct.t

use strict;
use warnings;  

use Test::More;

use lib qw(t/lib);

use DBICTest;
use DBIC::SqlMakerTest;

my $schema = DBICTest->init_schema();

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

cmp_ok($schema->resultset("Tag")->count({ tag => 'Blue' }),
           '==', 9, 'Count without DISTINCT ok');

cmp_ok($schema->resultset("Tag")->count({ tag => [ 'Blue', 'Shiny' ] }, { group_by => 'tag' }),
           '==', 2, 'Count with single column group_by ok');

cmp_ok($schema->resultset("Tag")->count({ tag => 'Blue' }, { group_by => [ qw/tag cd/ ]}), 
           '==', 4, 'Count with multiple column group_by ok');

cmp_ok($schema->resultset("Tag")->count({ tag => 'Blue' }, { distinct => 1 }),
           '==', 4, "Count with single column distinct ok");
Commit	Line	Data
2a2ca43f	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5
	6	use lib qw(t/lib);
	7
	8	use DBICTest;
	9	use DBIC::SqlMakerTest;
	10
	11	my $schema = DBICTest->init_schema();
	12
	13	eval "use DBD::SQLite";
	14	plan skip_all => 'needs DBD::SQLite for testing' if $@;
	15	plan tests => 5;
	16
	17	cmp_ok($schema->resultset("Tag")->count({ tag => 'Blue' }),
	18	'==', 9, 'Count without DISTINCT ok');
	19
	20	cmp_ok($schema->resultset("Tag")->count({ tag => [ 'Blue', 'Shiny' ] }, { group_by => 'tag' }),
	21	'==', 2, 'Count with single column group_by ok');
	22
	23	cmp_ok($schema->resultset("Tag")->count({ tag => 'Blue' }, { group_by => [ qw/tag cd/ ]}),
	24	'==', 4, 'Count with multiple column group_by ok');
	25
	26	cmp_ok($schema->resultset("Tag")->count({ tag => 'Blue' }, { distinct => 1 }),
	27	'==', 4, "Count with single column distinct ok");