Index: /branches/release-40/t/driver-tests.pl
===================================================================
--- /branches/release-40/t/driver-tests.pl (revision 2591)
+++ /branches/release-40/t/driver-tests.pl (revision 2592)
@@ -415,5 +415,5 @@
 } 
 
-sub conjunctions : Tests(3) {
+sub conjunctions : Tests(4) {
     my $self = shift;
     $self->make_pc_data();
@@ -421,10 +421,15 @@
 
     my @res = Foo->load([
-        {status => 10},
-        -or => {name => 'Apple'},
+        { status => 10 },
+        -or => { name => 'Apple' },
     ]);
     @res = sort { $a->id <=> $b->id } @res;
-    # where foo_status = 10 or foo_name = 'Apple'
     are_objects(\@res, [ @foos[0,3,4] ], '-or results');
+
+    @res = Foo->load([
+        { name => 'Microsoft' },
+        -and => { status => 10 },
+    ]);
+    are_objects(\@res, [ $foos[3] ], '-and results');
 
     @res = Foo->load([
@@ -433,5 +438,4 @@
         -and_not => { status => 11 },
     ]);
-    @res = sort { $a->id <=> $b->id } @res;
     # where (foo_status <= 20 and foo_name = 'Apple') and not (foo_status = 11)
     are_objects(\@res, [ $foos[4] ], '-and_not results');