X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F96multi_create.t;h=d63bf890205d6078bbfd22814cdbbe9aec8ddbdb;hb=9ffcb5b812d3a5fc8823bd40e98618fa3fabd2bc;hp=77cc347e5b50746d7d92475ee90ade82d934edc5;hpb=0c62fa59d419dcec4df6da35f2b09381685e57b0;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/96multi_create.t b/t/96multi_create.t index 77cc347..d63bf89 100644 --- a/t/96multi_create.t +++ b/t/96multi_create.t @@ -6,7 +6,7 @@ use Test::Exception; use lib qw(t/lib); use DBICTest; -plan tests => 79; +plan tests => 77; my $schema = DBICTest->init_schema(); @@ -513,9 +513,6 @@ eval { }; 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' }; @@ -536,7 +533,8 @@ eval { }; 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' }; @@ -552,8 +550,7 @@ eval { 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 {