1 package # hide from PAUSE
7 use base 'DBIC::Test::SQLite';
9 __PACKAGE__->set_table('Movies');
10 __PACKAGE__->columns('Primary', 'Title');
11 __PACKAGE__->columns('Essential', qw( Title ));
12 __PACKAGE__->columns('Directors', qw( Director CoDirector ));
13 __PACKAGE__->columns('Other', qw( Rating NumExplodingSheep HasVomit ));
15 # Disables the implicit autoinc-on-non-supplied-pk behavior
16 # (and the warning that goes with it)
17 # This is the same behavior as it was pre 0.082900
18 __PACKAGE__->column_info('title')->{is_auto_increment} = 0;
24 codirector VARCHAR(80),
26 numexplodingsheep INTEGER,
31 sub create_test_film {
32 return shift->create({
34 Director => 'Peter Jackson',
36 NumExplodingSheep => 1,
43 sub DESTROY { shift->delete }