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