[Bast-commits] r5181 - DBIx-Class/0.08/branches/multicreate/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2008-11-23 08:17:46 +0000 (Sun, 23 Nov 2008)
New Revision: 5181

Modified:
   DBIx-Class/0.08/branches/multicreate/t/96multi_create.t
Log:
todoify tests about to be broken

Modified: DBIx-Class/0.08/branches/multicreate/t/96multi_create.t
===================================================================
--- DBIx-Class/0.08/branches/multicreate/t/96multi_create.t	2008-11-23 07:40:46 UTC (rev 5180)
+++ DBIx-Class/0.08/branches/multicreate/t/96multi_create.t	2008-11-23 08:17:46 UTC (rev 5181)
@@ -457,6 +457,8 @@
 };
 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' };
@@ -494,7 +496,9 @@
   is($a->cds && $a->cds->first->title, 'The Wall', 'CD insertion ok');
 };
 diag $@ if $@;
+}
 
+
 ## Create foreign key col obj including PK
 ## See test 20 in 66relationships.t
 eval {