use lib qw(t/lib);
use DBICTest;
-plan tests => 79;
+plan tests => 77;
my $schema = DBICTest->init_schema();
};
diag $@ if $@;
-TODO: {
-local $TODO = 'Next 2 evals are NOT supposed to work, jnaps code will be torn to bits in another branch';
-#SPECIAL_CASE
eval {
my $kurt_cobain = { name => 'Kurt Cobain' };
};
diag $@ if $@;
-#SPECIAL_CASE2
+=pod
+# This test case has been moved to t/96multi_create/cd_single.t
eval {
my $pink_floyd = { name => 'Pink Floyd' };
is($a->cds && $a->cds->first->title, 'The Wall', 'CD insertion ok');
};
diag $@ if $@;
-}
-
+=cut
diag '* Create foreign key col obj including PK (See test 20 in 66relationships.t)';
eval {