Permalink
Switch branches/tags
Find file
Fetching contributors…
Cannot retrieve contributors at this time
45 lines (32 sloc) 1.03 KB
BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
use DBIx::Class::Optional::Dependencies -skip_all_without => 'cdbicompat';
use strict;
use warnings;
use Test::More;
use lib 't/cdbi/testlib';
{
package # hide from PAUSE
MyFilm;
use base 'DBIC::Test::SQLite';
use strict;
__PACKAGE__->set_table('Movies');
__PACKAGE__->columns(All => qw(id title));
# Disables the implicit autoinc-on-non-supplied-pk behavior
# (and the warning that goes with it)
# This is the same behavior as it was pre 0.082900
__PACKAGE__->column_info('id')->{is_auto_increment} = 0;
sub create_sql {
return qq{
id INTEGER PRIMARY KEY AUTOINCREMENT,
title VARCHAR(255)
}
}
}
my $film = MyFilm->create({ title => "For Your Eyes Only" });
ok $film->id;
my $new_film = $film->copy;
ok $new_film->id;
isnt $new_film->id, $film->id, "copy() gets new primary key";
$new_film = $film->copy(42);
is $new_film->id, 42, "copy() with new id";
done_testing;