5 eval "use DBIx::Class::CDBICompat;";
7 plan (skip_all => 'Class::Trigger and DBIx::ContextualFetch required');
10 eval "use DBD::SQLite";
11 plan $@ ? (skip_all => 'needs DBD::SQLite for testing') : (tests => 18);
18 is(Blurb->primary_column, "title", "Primary key of Blurb = title");
19 is_deeply [ Blurb->columns('Essential') ], [ Blurb->primary_column ], "Essential = Primary";
21 eval { Blurb->retrieve(10) };
22 is $@, "", "No problem retrieving non-existent Blurb";
24 Film->might_have(info => Blurb => qw/blurb/);
26 Film->create_test_film;
29 ok my $bt = Film->retrieve('Bad Taste'), "Get Film";
31 is $bt->info, undef, "No blurb yet";
32 # bug where we couldn't write a class with a might_have that didn't_have
35 is $@, '', "No problems updating when don't have";
36 is $bt->rating, 16, "Updated OK";
38 is $bt->blurb, undef, "Bad taste has no blurb";
39 $bt->blurb("Wibble bar");
41 is $bt->blurb, "Wibble bar", "And we can write the info";
45 my $bt = Film->retrieve('Bad Taste');
47 isa_ok $info, 'Blurb';
49 is $bt->blurb, $info->blurb, "Blurb is the same as fetching the long way";
50 ok $bt->blurb("New blurb"), "We can set the blurb";
52 is $bt->blurb, $info->blurb, "Blurb has been set";
56 is $@, '', "No problems updating when do have";
57 is $bt->rating, 18, "Updated OK";
61 my $blurb = Blurb->retrieve('Bad Taste');
62 isa_ok $blurb => "Blurb";
64 $blurb = Blurb->retrieve('Bad Taste');
65 is $blurb, undef, "Blurb has gone";