1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
use strict;
use Test::More;
#----------------------------------------------------------------------
# Test database failures
#----------------------------------------------------------------------
BEGIN {
eval "use DBIx::Class::CDBICompat;";
if ($@) {
plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
next;
}
eval "use DBD::SQLite";
plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 2);
}
use lib 't/cdbi/testlib';
use Film;
Film->create({
title => "Bad Taste",
numexplodingsheep => 10,
});
Film->create({
title => "Evil Alien Conquerers",
numexplodingsheep => 2,
});
is( Film->maximum_value_of("numexplodingsheep"), 10 );
is( Film->minimum_value_of("numexplodingsheep"), 2 );
|
