Changeset 54

Show
Ignore:
Timestamp:
05/04/06 00:03:47 (4 years ago)
Author:
sky
Message:

r57@crucially-3 (orig r980): ykerherve | 2005-08-23 10:20:45 -0700
more tests for my own understanding


Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/t/11-sql.t

    r20 r54  
    44 
    55use Data::ObjectDriver::SQL; 
    6 use Test::More tests => 33; 
     6use Test::More tests => 38; 
    77 
    88my $stmt = ns(); 
    … …  
    8585is($stmt->bind->[1], 'baz'); 
    8686 
     87$stmt = ns(); 
     88$stmt->add_where(foo => [ -and => 'foo', 'bar', 'baz']); 
     89is($stmt->as_sql_where, "WHERE (foo = ? AND foo = ? AND foo = ?)\n"); 
     90is(scalar @{ $stmt->bind }, 3); 
     91is($stmt->bind->[0], 'foo'); 
     92is($stmt->bind->[1], 'bar'); 
     93is($stmt->bind->[2], 'baz'); 
     94 
    8795sub ns { Data::ObjectDriver::SQL->new }