Changeset 2592

Timestamp:

06/17/08 16:45:27 (20 months ago)

Author:

mpaschal

Message:

Test straight-up -and, too
Don't bother sorting a result set that's supposed to have one result
spacing
BugzID: 79953

Files:

• branches/release-40/t/driver-tests.pl (modified) (3 diffs)

branches/release-40/t/driver-tests.pl

@@ -415 +415 @@
 } 
 
-sub conjunctions : Tests(3) {
+sub conjunctions : Tests(4) {
     my $self = shift;
     $self->make_pc_data();
@@ -421 +421 @@
 
     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 +438 @@
         -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');