Versioning! With tests! Woo!
[dbsrgits/DBIx-Class.git] / t / lib / DBICVersionNew.pm
CommitLineData
c9d2e0a2 1package DBICVersion::Table;
2
3use base 'DBIx::Class';
4use strict;
5use warnings;
6
7__PACKAGE__->load_components(qw/ Core/);
8__PACKAGE__->table('TestVersion');
9
10__PACKAGE__->add_columns
11 ( 'Version' => {
12 'data_type' => 'INTEGER',
13 'is_auto_increment' => 1,
14 'default_value' => undef,
15 'is_foreign_key' => 0,
16 'is_nullable' => 0,
17 'size' => ''
18 },
19 'VersionName' => {
20 'data_type' => 'VARCHAR',
21 'is_auto_increment' => 0,
22 'default_value' => undef,
23 'is_foreign_key' => 0,
24 'is_nullable' => 1,
25 'size' => '20'
26 },
27 );
28
29__PACKAGE__->set_primary_key('Version');
30
31package DBICVersion::Schema;
32use base 'DBIx::Class::Schema';
33use strict;
34use warnings;
35
36our $VERSION = '2.0';
37
38__PACKAGE__->register_class('Table', 'DBICVersion::Table');
39__PACKAGE__->load_components('+DBIx::Class::Schema::Versioned');
40
41sub upgrade_directory
42{
43 return 't/var/';
44}
45
461;