Commit | Line | Data |
e60dc79f |
1 | use strict; |
4a233f30 |
2 | use warnings; |
e60dc79f |
3 | use Test::More; |
4 | |
5 | #---------------------------------------------------------------------- |
6 | # Test database failures |
7 | #---------------------------------------------------------------------- |
8 | |
50891152 |
9 | use lib 't/cdbi/testlib'; |
e60dc79f |
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 ); |
d9bd5195 |
24 | |
25 | done_testing; |