[dbsrgits/DBIx-Class.git] / t / relationship / after_update.t

#!/usr/bin/perl -w

use strict;
use warnings;  

use Test::More;
use lib qw(t/lib);
use DBICTest;

my $schema = DBICTest->init_schema();

plan tests => 2;

my $bookmark = $schema->resultset("Bookmark")->find(1);
my $link = $bookmark->link;
my $link_id = $link->id;

my $new_link = $schema->resultset("Link")->new({
    id      => 42,
    url     => "http://monstersarereal.com",
    title   => "monstersarereal.com"
});

# Changing a relationship by id rather than by object would cause
# old related_resultsets to be used.
$bookmark->link($new_link->id);
is $bookmark->link->id, $new_link->id;

$bookmark->update;
is $bookmark->link->id, $new_link->id;
Commit	Line	Data
e60dc79f	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More;
	7	use lib qw(t/lib);
	8	use DBICTest;
	9
	10	my $schema = DBICTest->init_schema();
	11
	12	plan tests => 2;
	13
	14	my $bookmark = $schema->resultset("Bookmark")->find(1);
	15	my $link = $bookmark->link;
	16	my $link_id = $link->id;
	17
	18	my $new_link = $schema->resultset("Link")->new({
	19	id => 42,
	20	url => "http://monstersarereal.com",
	21	title => "monstersarereal.com"
	22	});
	23
	24	# Changing a relationship by id rather than by object would cause
	25	# old related_resultsets to be used.
	26	$bookmark->link($new_link->id);
	27	is $bookmark->link->id, $new_link->id;
	28
	29	$bookmark->update;
	30	is $bookmark->link->id, $new_link->id;