[dbsrgits/DBIx-Class.git] / t / cdbi / construct.t

use strict;
use Test::More;

BEGIN {
  eval "use DBIx::Class::CDBICompat;";
  plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@")
          : (tests=> 5);
}

INIT {
    use lib 't/cdbi/testlib';
    use Film;
}

{
    Film->insert({
        Title     => "Breaking the Waves",
        Director  => 'Lars von Trier',
        Rating    => 'R'
    });

    my $film = Film->construct({
        Title     => "Breaking the Waves",
        Director  => 'Lars von Trier',
    });

    isa_ok $film, "Film";
    is $film->title,    "Breaking the Waves";
    is $film->director, "Lars von Trier";
    is $film->rating,   "R",
        "constructed objects can get missing data from the db";
}

{
    package Foo;
    use base qw(Film);
    Foo->columns( TEMP => qw(temp_thing) );
    my $film = Foo->construct({
        temp_thing  => 23
    });
    
    ::is $film->temp_thing, 23, "construct sets temp columns";
}
Commit	Line	Data
e60dc79f	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: $@")
146c1838	7	: (tests=> 5);
e60dc79f	8	}
	9
	10	INIT {
50891152	11	use lib 't/cdbi/testlib';
e60dc79f	12	use Film;
	13	}
	14
146c1838	15	{
	16	Film->insert({
	17	Title => "Breaking the Waves",
	18	Director => 'Lars von Trier',
	19	Rating => 'R'
	20	});
e60dc79f	21
146c1838	22	my $film = Film->construct({
	23	Title => "Breaking the Waves",
	24	Director => 'Lars von Trier',
	25	});
e60dc79f	26
146c1838	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	}