1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
|
use strict;
use Test::More;
BEGIN {
eval "use DBD::SQLite";
plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 27);
}
use lib 't/testlib';
use Film;
use Blurb;
is(Blurb->primary_column, "title", "Primary key of Blurb = title");
is_deeply [ Blurb->_essential ], [ Blurb->primary_column ], "Essential = Primary";
eval { Blurb->retrieve(10) };
is $@, "", "No problem retrieving non-existent Blurb";
Film->might_have(info => Blurb => qw/blurb/);
Film->create_test_film;
{
ok my $bt = Film->retrieve('Bad Taste'), "Get Film";
isa_ok $bt, "Film";
is $bt->info, undef, "No blurb yet";
# bug where we couldn't write a class with a might_have that didn't_have
$bt->rating(16);
eval { $bt->update };
is $@, '', "No problems updating when don't have";
is $bt->rating, 16, "Updated OK";
is $bt->blurb, undef, "Bad taste has no blurb";
$bt->blurb("Wibble bar");
$bt->update;
is $bt->blurb, "Wibble bar", "And we can write the info";
}
{
my $bt = Film->retrieve('Bad Taste');
my $info = $bt->info;
isa_ok $info, 'Blurb';
is $bt->blurb, $info->blurb, "Blurb is the same as fetching the long way";
ok $bt->blurb("New blurb"), "We can set the blurb";
$bt->update;
is $bt->blurb, $info->blurb, "Blurb has been set";
$bt->rating(18);
eval { $bt->update };
is $@, '', "No problems updating when do have";
is $bt->rating, 18, "Updated OK";
# cascade delete?
{
my $blurb = Blurb->retrieve('Bad Taste');
isa_ok $blurb => "Blurb";
$bt->delete;
$blurb = Blurb->retrieve('Bad Taste');
is $blurb, undef, "Blurb has gone";
}
}
Film->create_test_film;
{
ok my $bt = Film->retrieve('Bad Taste'), "Get Film";
$bt->blurb("Wibble bar");
$bt->update;
is $bt->blurb, "Wibble bar", "We can write the info";
# Bug #15635: Operation `bool': no method found
$bt->info->delete;
my $blurb = eval { $bt->blurb };
is $@, '', "Can delete the blurb";
is $blurb, undef, "Blurb is now undef";
eval { $bt->delete };
is $@, '', "Can delete the parent object";
}
Film->create_test_film;
{
ok my $bt = Film->retrieve('Bad Taste'), "Get Film (recreated)";
is $bt->blurb, undef, "Bad taste has no blurb";
$bt->blurb(0);
$bt->update;
is $bt->blurb, 0, "We can write false values";
$bt->blurb(undef);
$bt->update;
is $bt->blurb, undef, "And explicit NULLs";
$bt->delete;
}
|
