t/cdbi/max_min_value_of.t

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