t/cdbi-t/max_min_value_of.t

   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  );