Generalize autoinc/count test
[dbsrgits/DBIx-Class-Historic.git] / t / cdbi / construct.t
1 use strict;
2 use Test::More;
3
4 BEGIN {
5   eval "use DBIx::Class::CDBICompat;";
6   plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@")
7           : (tests=> 5);
8 }
9
10 INIT {
11     use lib 't/cdbi/testlib';
12     use Film;
13 }
14
15 {
16     Film->insert({
17         Title     => "Breaking the Waves",
18         Director  => 'Lars von Trier',
19         Rating    => 'R'
20     });
21
22     my $film = Film->construct({
23         Title     => "Breaking the Waves",
24         Director  => 'Lars von Trier',
25     });
26
27     isa_ok $film, "Film";
28     is $film->title,    "Breaking the Waves";
29     is $film->director, "Lars von Trier";
30     is $film->rating,   "R",
31         "constructed objects can get missing data from the db";
32 }
33
34 {
35     package Foo;
36     use base qw(Film);
37     Foo->columns( TEMP => qw(temp_thing) );
38     my $film = Foo->construct({
39         temp_thing  => 23
40     });
41     
42     ::is $film->temp_thing, 23, "construct sets temp columns";
43 }