## Also need to test some stuff that should generate errors.
## ----------------------------------------------------------------------------
-
use strict;
use warnings;
use lib qw(t/lib);
use DBICTest;
-plan tests => 53;
+plan tests => 98;
+
## ----------------------------------------------------------------------------
## Get a Schema and some ResultSets we can play with.
ok( $formerly->name eq 'VOID_PK_Formerly Named', "Got Correct name for result object");
## Create the expected children sub objects?
- use Data::Dump qw/dump/;
+ ok( $crap->can('cds'), "Has cds relationship");
+ ok( $girl->can('cds'), "Has cds relationship");
+ ok( $damn->can('cds'), "Has cds relationship");
+ ok( $formerly->can('cds'), "Has cds relationship");
ok( $crap->cds->count == 0, "got Expected Number of Cds");
ok( $girl->cds->count == 2, "got Expected Number of Cds");
## Test from a belongs_to perspective, should create artist first,
## then CD with artistid.
-
- diag("Starting Void Context BelongsTO with No PKs");
-
+
my $cds = [
{
title => 'Some CD3BB',
## This first group of tests checks to make sure we can call populate
## with the parent having many children and let the keys be automatic
-
- diag("Starting Void Context Has Many with No PKs");
my $artists = [
{
ok( $formerly->name eq 'VOID_Formerly Named', "Got Correct name for result object");
## Create the expected children sub objects?
- use Data::Dump qw/dump/;
-
- warn dump map { $_->get_columns } $damn->cds;
+ ok( $crap->can('cds'), "Has cds relationship");
+ ok( $girl->can('cds'), "Has cds relationship");
+ ok( $damn->can('cds'), "Has cds relationship");
+ ok( $formerly->can('cds'), "Has cds relationship");
ok( $crap->cds->count == 0, "got Expected Number of Cds");
ok( $girl->cds->count == 2, "got Expected Number of Cds");
## Did the cds get expected information?
my ($cd1, $cd2) = $girl->cds->search({},{order_by=>'year ASC'});
-
+
+ ok($cd1, "Got a got CD");
+ ok($cd2, "Got a got CD");
ok( $cd1->title eq "VOID_My First CD", "Got Expected CD Title");
ok( $cd2->title eq "VOID_Yet More Tweeny-Pop crap", "Got Expected CD Title");
}
-}
-
-__END__
-## ----------------------------------------------------------------------------
-## Error cases
-## ----------------------------------------------------------------------------
-
-SHOULD_CAUSE_ERRORS: {
-
- ## bad or missing PKs
- ## changing columns
- ## basically errors for non well formed data
- ## check for the first incomplete problem
- ## can we solve the problem of void context and no PKs?
-
-}
-
-
-
-
-
-
+}
\ No newline at end of file