t/cdbi/max_min_value_of.t

   1 use strict;
   2 use Test::More;
   3
   4 #----------------------------------------------------------------------
   5 # Test database failures
   6 #----------------------------------------------------------------------
   7
   8 use lib 't/cdbi/testlib';
   9 use Film;
  10
  11 Film->create({
  12     title => "Bad Taste",
  13     numexplodingsheep => 10,
  14 });
  15
  16 Film->create({
  17     title => "Evil Alien Conquerers",
  18     numexplodingsheep => 2,
  19 });
  20
  21 is( Film->maximum_value_of("numexplodingsheep"), 10 );
  22 is( Film->minimum_value_of("numexplodingsheep"), 2  );
  23
  24 done_testing;