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