Commit | Line | Data |
---|---|---|
b6e40530 | 1 | use Test::More; |
2 | ||
3 | use DBIx::Class::PK::Auto; | |
4 | use DBIx::Class::PK::Auto::SQLite; | |
5 | ||
6 | plan tests => 2; | |
7 | ||
8 | use lib qw(t/lib); | |
9 | ||
10 | use_ok('DBICTest'); | |
11 | ||
12 | unshift(@DBICTest::Artist::ISA, qw/DBIx::Class::PK::Auto | |
13 | DBIx::Class::PK::Auto::SQLite/); | |
14 | ||
15 | # add an artist without primary key to test Auto | |
16 | my $artist = DBICTest::Artist->create( { name => 'Auto' } ); | |
17 | $artist->name( 'Auto Change' ); | |
18 | ok($artist->update, 'update on object created without PK ok'); |