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     next;
  13   }
  14   eval "use DBD::SQLite";
  15   plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 2);
  16 }
  17
  18 use lib 't/cdbi/testlib';
  19 use Film;
  20
  21 Film->create({
  22     title => "Bad Taste",
  23     numexplodingsheep => 10,
  24 });
  25
  26 Film->create({
  27     title => "Evil Alien Conquerers",
  28     numexplodingsheep => 2,
  29 });
  30
  31 is( Film->maximum_value_of("numexplodingsheep"), 10 );
  32 is( Film->minimum_value_of("numexplodingsheep"), 2  );