r27901@agaton (orig r5562): robkinyon | 2009-02-20 04:37:12 +0000
r5547@rkinyon-lt-osx (orig r5546): robkinyon | 2009-02-19 23:29:39 -0500
Added qualifiers as to when as_query will work
use lib qw(t/lib);
use DBICTest;
-plan tests => 85;
+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)';
++## Create foreign key col obj including PK
++## See test 20 in 66relationships.t
eval {
my $new_cd_hashref = {
cdid => 27,