DBIx::Recordset - MySQL DeleteWithLinks() test fails

[Terrence Brannon]

So far, postgres and sqlite pass the test suite. mysql is failing with 
this error:

Clear (Delete all) disabled for table : (! && !(7 & wmCLEAR)) at 
blib/lib/DBIx/\
Database.pm line 57
       
DBIx::Database::Base::savecroak('DBIx::Recordset=HASH(0x86248dc)','Clea\
r (Delete all) disabled for table : (! && !(7 & wmCLEAR))') called at 
blib/lib/\
DBIx/Recordset.pm line 2733
       
DBIx::Recordset::DeleteWithLinks('DBIx::Recordset=HASH(0x86248dc)','HAS\
H(0x8618170)','HASH(0x850f0f0)') called at blib/lib/DBIx/Recordset.pm 
line 2778
       
DBIx::Recordset::DeleteWithLinks('DBIx::Recordset=HASH(0x84da3f8)','HAS\
H(0x8624744)') called at test.pl line 1957
       
main::DoTest('mysql','dbi:mysql:princepawn','princepawn','money1') call\
ed at test.pl line 4031

test.pl:1957 is:
       $set1 -> DeleteWithLinks ({ 'id' => 1
                                               })  or die "not ok 
($DBI::errst\
r)" ;

Recordset.pm:2778 is:
                     $$updset -> DeleteWithLinks ({$lf => $mv}, $seen) ;
Recordset.pm: 2732-2833 is:
 my $clear_disabled_diag =
     "(!$expr && !($self->{'*WriteMode'} & wmCLEAR))";
   $self -> savecroak ("Clear (Delete all) disabled for table 
$self->{'*Table'\
}: $clear_disabled_diag") if (!$expr && !($self->{'*WriteMode'} & 
wmCLEAR)) ;

I added the diagnostic string to the croak message so it would be clear 
why the
exception is being thrown. It is being thrown because the WriteMode must 
be 8 for it
to bitwise-and to a true value with wmClear.

So the question is: how did this test pass with the other 2 drivers and 
fail with this one?



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]