isnt refaddr $btaste2, refaddr $btaste3,
"Removing from object_index and retrieving again gives new object";
$btaste3->clear_object_index;
my $btaste4 = Film->retrieve('Bad Taste');
isnt
n("\x00", $source->primary_columns);
my $idx_test = join("\x00", $index->fields);
isnt ( $pk_test, $idx_test, "no additional index for the primary columns exists in $source_name");
({ 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_fi
ed');
isa_ok($event->varchar_datetime, 'DateTime', 'DateTime returned');
## skip inflation field
isnt(ref($event->skip_inflation), 'DateTime', 'No DateTime returned for skip inflation column');
# kl