5 eval "use DBD::SQLite";
6 plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 24);
9 @YA::Film::ISA = 'Film';
11 #local $SIG{__WARN__} = sub { };
19 Film->create_test_film;
20 ok(my $btaste = Film->retrieve('Bad Taste'), "We have Bad Taste");
21 ok(my $pj = $btaste->Director, "Bad taste has_a() director");
22 ok(!ref($pj), ' ... which is not an object');
24 ok(Film->has_a('Director' => 'Director'), "Link Director table");
28 Name => 'Peter Jackson',
29 Birthday => -300000000,
36 $btaste = Film->retrieve('Bad Taste');
38 ok($pj = $btaste->Director, "Bad taste now has_a() director");
39 isa_ok($pj => 'Director');
40 is($pj->id, 'Peter Jackson', ' ... and is the correct director');
42 # Oh no! Its Peter Jacksons even twin, Skippy! Born one minute after him.
43 my $sj = Director->create(
45 Name => 'Skippy Jackson',
46 Birthday => (-300000000 + 60),
51 is($sj->id, 'Skippy Jackson', 'We have a new director');
53 Film->has_a(CoDirector => 'Director');
55 $btaste->CoDirector($sj);
57 is($btaste->CoDirector->Name, 'Skippy Jackson', 'He co-directed');
59 $btaste->Director->Name,
61 "Didnt interfere with each other"
64 { # Ensure search can take an object
65 my @films = Film->search(Director => $pj);
66 is @films, 1, "1 Film directed by $pj";
67 is $films[0]->id, "Bad Taste", "Bad Taste";
74 # Skippy directs a film and Peter helps!
75 $sj = Director->retrieve('Skippy Jackson');
76 $pj = Director->retrieve('Peter Jackson');
78 fail_with_bad_object($sj, $btaste);
83 my $btaste = YA::Film->retrieve('Bad Taste');
84 is(ref($btaste->Director), 'Director', 'inheriting has_a()');
85 is(ref($btaste->CoDirector), 'Director', 'inheriting has_a()');
86 is($btaste->CoDirector->Name, 'Skippy Jackson', ' ... correctly');
90 my ($dir, $codir) = @_;
91 my $tastes_bad = YA::Film->create(
93 Title => 'Tastes Bad',
97 NumExplodingSheep => 23
100 is($tastes_bad->_Director_accessor, 'Skippy Jackson', 'Director_accessor');
101 is($tastes_bad->Director->Name, 'Skippy Jackson', 'Director');
102 is($tastes_bad->CoDirector->Name, 'Peter Jackson', 'CoDirector');
104 $tastes_bad->_CoDirector_accessor,
106 'CoDirector_accessor'
110 sub fail_with_bad_object {
111 my ($dir, $codir) = @_;
115 Title => 'Tastes Bad',
117 CoDirector => $codir,
119 NumExplodingSheep => 23
128 __PACKAGE__->table('foo');
129 __PACKAGE__->columns('All' => qw/ id fav /);
131 __PACKAGE__->db_Main->do( qq{
141 __PACKAGE__->table('bar');
142 __PACKAGE__->columns('All' => qw/ id fav /);
144 __PACKAGE__->db_Main->do( qq{
152 Foo->has_a("fav" => "Film");
153 Bar->has_a("fav" => "Foo");
154 my $foo = Foo->create({ id => 6, fav => 'Bad Taste' });
155 my $bar = Bar->create({ id => 2, fav => 6 });
156 isa_ok($bar->fav, "Foo");
157 isa_ok($foo->fav, "Film");
161 Foo->add_trigger(after_create => sub { $foo = shift->fav });
162 my $gwh = Foo->create({ id => 93, fav => 'Good Will Hunting' });
163 isa_ok $foo, "Film", "Object in after_create trigger";