t/cdbi/max_min_value_of.t

   1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
   2 use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 #----------------------------------------------------------------------
  10 # Test database failures
  11 #----------------------------------------------------------------------
  12
  13 use lib 't/cdbi/testlib';
  14 use Film;
  15
  16 Film->create({
  17     title => "Bad Taste",
  18     numexplodingsheep => 10,
  19 });
  20
  21 Film->create({
  22     title => "Evil Alien Conquerers",
  23     numexplodingsheep => 2,
  24 });
  25
  26 is( Film->maximum_value_of("numexplodingsheep"), 10 );
  27 is( Film->minimum_value_of("numexplodingsheep"), 2  );
  28
  29 done_testing;