t/cdbi/max_min_value_of.t

   1 use strict;
   2 use Test::More;
   3
   4 #----------------------------------------------------------------------
   5 # Test database failures
   6 #----------------------------------------------------------------------
   7
   8 BEGIN {
   9   eval "use DBIx::Class::CDBICompat;";
  10   if ($@) {
  11     plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
  12   }
  13   plan tests => 2;
  14 }
  15
  16 use lib 't/cdbi/testlib';
  17 use Film;
  18
  19 Film->create({
  20     title => "Bad Taste",
  21     numexplodingsheep => 10,
  22 });
  23
  24 Film->create({
  25     title => "Evil Alien Conquerers",
  26     numexplodingsheep => 2,
  27 });
  28
  29 is( Film->maximum_value_of("numexplodingsheep"), 10 );
  30 is( Film->minimum_value_of("numexplodingsheep"), 2  );