5 eval "use DBIx::Class::CDBICompat;";
7 plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
12 use lib 't/cdbi/testlib';
16 is(Blurb->primary_column, "title", "Primary key of Blurb = title");
17 is_deeply [ Blurb->columns('Essential') ], [ Blurb->primary_column ], "Essential = Primary";
19 eval { Blurb->retrieve(10) };
20 is $@, "", "No problem retrieving non-existent Blurb";
22 Film->might_have(info => Blurb => qw/blurb/);
24 Film->create_test_film;
27 ok my $bt = Film->retrieve('Bad Taste'), "Get Film";
29 is $bt->info, undef, "No blurb yet";
30 # bug where we couldn't write a class with a might_have that didn't_have
33 is $@, '', "No problems updating when don't have";
34 is $bt->rating, 16, "Updated OK";
36 is $bt->blurb, undef, "Bad taste has no blurb";
37 $bt->blurb("Wibble bar");
39 is $bt->blurb, "Wibble bar", "And we can write the info";
43 my $bt = Film->retrieve('Bad Taste');
45 isa_ok $info, 'Blurb';
47 is $bt->blurb, $info->blurb, "Blurb is the same as fetching the long way";
48 ok $bt->blurb("New blurb"), "We can set the blurb";
50 is $bt->blurb, $info->blurb, "Blurb has been set";
54 is $@, '', "No problems updating when do have";
55 is $bt->rating, 18, "Updated OK";
59 my $blurb = Blurb->retrieve('Bad Taste');
60 isa_ok $blurb => "Blurb";
62 $blurb = Blurb->retrieve('Bad Taste');
63 is $blurb, undef, "Blurb has gone";
69 my $host = Film->create({ title => "Gwoemul" });
70 $host->blurb("Monsters are real.");
71 my $info = $host->info;
72 is $info->blurb, "Monsters are real.";
74 $host->discard_changes;
75 is $host->info->id, $info->id,
76 'relationships still valid after discard_changes';
78 ok $host->info->delete;
79 $host->discard_changes;
80 ok !$host->info, 'relationships rechecked after discard_changes';