[dbsrgits/DBIx-Class.git] / t / cdbi-t / max_min_value_of.t

#!/usr/bin/perl -w

use strict;
use Test::More;

#----------------------------------------------------------------------
# Test database failures
#----------------------------------------------------------------------

BEGIN {
  eval "use DBIx::Class::CDBICompat;";
  if ($@) {
    plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
    next;
  }
  eval "use DBD::SQLite";
  plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 2);
}

use lib 't/testlib';
use Film;

Film->create({
    title => "Bad Taste",
    numexplodingsheep => 10,
});

Film->create({
    title => "Evil Alien Conquerers",
    numexplodingsheep => 2,
});

is( Film->maximum_value_of("numexplodingsheep"), 10 );
is( Film->minimum_value_of("numexplodingsheep"), 2  );
Commit	Line	Data
e60dc79f	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4	use Test::More;
	5
	6	#----------------------------------------------------------------------
	7	# Test database failures
	8	#----------------------------------------------------------------------
	9
	10	BEGIN {
	11	eval "use DBIx::Class::CDBICompat;";
	12	if ($@) {
	13	plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
	14	next;
	15	}
	16	eval "use DBD::SQLite";
	17	plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 2);
	18	}
	19
	20	use lib 't/testlib';
	21	use Film;
	22
	23	Film->create({
	24	title => "Bad Taste",
	25	numexplodingsheep => 10,
	26	});
	27
	28	Film->create({
	29	title => "Evil Alien Conquerers",
	30	numexplodingsheep => 2,
	31	});
	32
	33	is( Film->maximum_value_of("numexplodingsheep"), 10 );
	34	is( Film->minimum_value_of("numexplodingsheep"), 2 );