[dbsrgits/DBIx-Class.git] / t / 104view.t

use strict;
use warnings;  

use Test::More;
use Test::Exception;
use lib qw(t/lib);
use DBICTest;

my $schema = DBICTest->init_schema();

plan tests => 1;

my $cds_rs = $schema->resultset('CD')->search( { year => 2000 });
my $year2kcds_rs = $schema->resultset('Year2000CDs');

is($cds_rs->count, $year2kcds_rs->count, 'View Year2000CDs sees all CDs in year 2000');
Commit	Line	Data
bccd177f	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use Test::Exception;
	6	use lib qw(t/lib);
	7	use DBICTest;
	8
	9	my $schema = DBICTest->init_schema();
	10
	11	plan tests => 1;
	12
	13	my $cds_rs = $schema->resultset('CD')->search( { year => 2000 });
	14	my $year2kcds_rs = $schema->resultset('Year2000CDs');
	15
	16	is($cds_rs->count, $year2kcds_rs->count, 'View Year2000CDs sees all CDs in year 2000');
	17
	18
	19