Commit | Line | Data |
0567538f |
1 | sub run_tests { |
2 | |
2f6e5af9 |
3 | plan tests => 2; |
0567538f |
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 | |
2f6e5af9 |
12 | my $copied = $artist->copy({ name => 'Don\'t tell the RIAA', artistid => undef }); |
13 | is($copied->name, 'Don\'t tell the RIAA', "Copied with PKs ok."); |
14 | |
0567538f |
15 | } |
16 | |
17 | 1; |