[dbsrgits/DBIx-Class-Historic.git] / t / 61findnot.t

use strict;
use warnings;  

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

my $schema = DBICTest->init_schema();

plan tests => 17;

my $art = $schema->resultset("Artist")->find(4);
ok(!defined($art), 'Find on primary id: artist not found');
my @cd = $schema->resultset("CD")->find(6);
cmp_ok(@cd, '==', 1, 'Return something even in array context');
ok(@cd && !defined($cd[0]), 'Array contains an undef as only element');

$art = $schema->resultset("Artist")->find({artistid => '4'});
ok(!defined($art), 'Find on unique constraint: artist not found');
@cd = $schema->resultset("CD")->find({artist => '2', title => 'Lada-Di Lada-Da'});
cmp_ok(@cd, '==', 1, 'Return something even in array context');
ok(@cd && !defined($cd[0]), 'Array contains an undef as only element');

$art = $schema->resultset("Artist")->search({name => 'The Jesus And Mary Chain'});
isa_ok($art, 'DBIx::Class::ResultSet', 'get a DBIx::Class::ResultSet object');
my $next = $art->next;
ok(!defined($next), 'Nothing next in ResultSet');
my $cd = $schema->resultset("CD")->search({title => 'Rubbersoul'});
@cd = $cd->next;
cmp_ok(@cd, '==', 1, 'Return something even in array context');
ok(@cd && !defined($cd[0]), 'Array contains an undef as only element');

$art = $schema->resultset("Artist")->single({name => 'Bikini Bottom Boys'});
ok(!defined($art), 'Find on primary id: artist not found');
@cd = $schema->resultset("CD")->single({title => 'The Singles 1962-2006'});
cmp_ok(@cd, '==', 1, 'Return something even in array context');
ok(@cd && !defined($cd[0]), 'Array contains an undef as only element');

$art = $schema->resultset("Artist")->search({name => 'Random Girl Band'});
isa_ok($art, 'DBIx::Class::ResultSet', 'get a DBIx::Class::ResultSet object');
$next = $art->single;
ok(!defined($next), 'Nothing next in ResultSet');
$cd = $schema->resultset("CD")->search({title => 'Call of the West'});
@cd = $cd->single;
cmp_ok(@cd, '==', 1, 'Return something even in array context');
ok(@cd && !defined($cd[0]), 'Array contains an undef as only element');
Commit	Line	Data
57dc206e	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5	use lib qw(t/lib);
	6	use DBICTest;
	7
	8	my $schema = DBICTest->init_schema();
	9
	10	plan tests => 17;
	11
	12	my $art = $schema->resultset("Artist")->find(4);
	13	ok(!defined($art), 'Find on primary id: artist not found');
	14	my @cd = $schema->resultset("CD")->find(6);
	15	cmp_ok(@cd, '==', 1, 'Return something even in array context');
	16	ok(@cd && !defined($cd[0]), 'Array contains an undef as only element');
	17
	18	$art = $schema->resultset("Artist")->find({artistid => '4'});
	19	ok(!defined($art), 'Find on unique constraint: artist not found');
	20	@cd = $schema->resultset("CD")->find({artist => '2', title => 'Lada-Di Lada-Da'});
	21	cmp_ok(@cd, '==', 1, 'Return something even in array context');
	22	ok(@cd && !defined($cd[0]), 'Array contains an undef as only element');
	23
	24	$art = $schema->resultset("Artist")->search({name => 'The Jesus And Mary Chain'});
	25	isa_ok($art, 'DBIx::Class::ResultSet', 'get a DBIx::Class::ResultSet object');
	26	my $next = $art->next;
	27	ok(!defined($next), 'Nothing next in ResultSet');
	28	my $cd = $schema->resultset("CD")->search({title => 'Rubbersoul'});
	29	@cd = $cd->next;
	30	cmp_ok(@cd, '==', 1, 'Return something even in array context');
	31	ok(@cd && !defined($cd[0]), 'Array contains an undef as only element');
	32
	33	$art = $schema->resultset("Artist")->single({name => 'Bikini Bottom Boys'});
	34	ok(!defined($art), 'Find on primary id: artist not found');
	35	@cd = $schema->resultset("CD")->single({title => 'The Singles 1962-2006'});
	36	cmp_ok(@cd, '==', 1, 'Return something even in array context');
	37	ok(@cd && !defined($cd[0]), 'Array contains an undef as only element');
	38
	39	$art = $schema->resultset("Artist")->search({name => 'Random Girl Band'});
	40	isa_ok($art, 'DBIx::Class::ResultSet', 'get a DBIx::Class::ResultSet object');
	41	$next = $art->single;
	42	ok(!defined($next), 'Nothing next in ResultSet');
	43	$cd = $schema->resultset("CD")->search({title => 'Call of the West'});
	44	@cd = $cd->single;
	45	cmp_ok(@cd, '==', 1, 'Return something even in array context');
	46	ok(@cd && !defined($cd[0]), 'Array contains an undef as only element');