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