Commit | Line | Data |
70350518 |
1 | use strict; |
8273e845 |
2 | use warnings; |
70350518 |
3 | |
4 | use Test::More; |
5 | use lib qw(t/lib); |
6 | use DBICTest; |
7 | |
a47e1233 |
8 | my $schema = DBICTest->init_schema(); |
0567538f |
9 | |
2f6e5af9 |
10 | plan tests => 2; |
0567538f |
11 | |
0a8462d4 |
12 | $schema->class("Artist")->load_components(qw/PK::Auto::SQLite/); |
13 | # Should just be PK::Auto but this ensures the compat shim works |
0567538f |
14 | |
15 | # add an artist without primary key to test Auto |
f9db5527 |
16 | my $artist = $schema->resultset("Artist")->create( { name => 'Auto' } ); |
0567538f |
17 | $artist->name( 'Auto Change' ); |
18 | ok($artist->update, 'update on object created without PK ok'); |
19 | |
2f6e5af9 |
20 | my $copied = $artist->copy({ name => 'Don\'t tell the RIAA', artistid => undef }); |
21 | is($copied->name, 'Don\'t tell the RIAA', "Copied with PKs ok."); |
22 | |