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