1use strict; 2use Test::More; 3 4#---------------------------------------------------------------------- 5# Test database failures 6#---------------------------------------------------------------------- 7 8BEGIN { 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 18use lib 't/cdbi/testlib'; 19use Film; 20 21Film->create({ 22 title => "Bad Taste", 23 numexplodingsheep => 10, 24}); 25 26Film->create({ 27 title => "Evil Alien Conquerers", 28 numexplodingsheep => 2, 29}); 30 31is( Film->maximum_value_of("numexplodingsheep"), 10 ); 32is( Film->minimum_value_of("numexplodingsheep"), 2 ); 33