Changeset 2590

Timestamp:

06/17/08 16:31:06 (5 months ago)

Author:

mpaschal

Message:

Move tests for alias and conjunctor support into Test::Search
BugzID: 79953

Files:

• branches/release-40/t/driver-tests.pl (modified) (6 diffs)
• branches/release-40/t/lib/MT/Test.pm (modified) (1 diff)

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

@@ -206 +206 @@
-use base qw( Test::Class MT::Test );
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-}
-
-sub basic : Tests(5) {
+    my $self = shift;
+    $self->make_basic_data();
+
-    my $foo = Foo->load(1);  # not a search
-
+
-    is_object(scalar Foo->load({ id => 1 }), $foo, 'Foo #1 by id hash is Foo #1');
-    is_object(scalar Foo->load({ id => 1, name => 'foo' }), $foo, 'Foo #1 by id-name hash is Foo #1');
@@ -239 +279 @@
-
-sub sorting : Tests(6) {
+    my $self = shift;
+    $self->make_basic_data();
+    
-    my ($tmp, @tmp);
-    my @foo = map { Foo->load($_) } (1..2);
@@ -282 +325 @@
-
-sub ranges : Tests(9) {
+    my $self = shift;
+    $self->make_basic_data();
+
-    my $tmp;
-    my @foo = map { Foo->load($_) } (1..2);
@@ -331 +377 @@
-}
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-}
-
@@ -339 +445 @@
-use MT::Test;
-
-32
+26
-
-my($foo, @foo, @bar);
@@ -804 +910 @@
-}
-
-# -or
-my $newdata = Foo->new;
-$newdata->status(11);
-$newdata->name('Apple');
-$newdata->text('MacBook');
-$newdata->save;
-$newdata = Foo->new;
-$newdata->status(12);
-$newdata->name('Linux');
-$newdata->text('Ubuntu');
-$newdata->save;
-$newdata = Foo->new;
-$newdata->status(13);
-$newdata->name('Microsoft');
-$newdata->text('Vista');
-$newdata->save;
-$newdata = Foo->new;
-$newdata->status(10);
-$newdata->name('Microsoft');
-$newdata->text('XP');
-$newdata->save;
-$newdata = Foo->new;
-$newdata->status(10);
-$newdata->name('Apple');
-$newdata->text('iBook');
-$newdata->save;
-
-my $count = Foo->count( [{status => 10}, -or => {name => 'Apple'}] );
-# ==> select count(*) from mt_foo where foo_status = 10 or foo_name = 'Apple'
-is($count, 3, '-or count');
-
-$count = Foo->count( [ { status => { '<=' => 20 }, name => 'Apple' }, -and_not => { status => 11 } ] );
-# ==> select count(*) from mt_foo where (foo_status <= 20 and foo_name = 'Apple') and not (foo_status = 11)
-is($count, 1, '-and_not count');
-
-$count = Foo->count( [
-    { status => 10 },
-    -or => { name => 'Apple' },
-    -or => { name => { like => '%nux' } },
-] );
-# ==> select count(*) from mt_foo where (foo_status = 10) or (foo_name = 'Apple') or (foo_name like '%nux')
-# (selects Apple+MacBook, Apple+iBook, Microsoft+XP, Linux+Ubuntu)
-is($count, 4, '-or count, 3 clauses');
-
-# alias support
-my $vista = Foo->load({name=>'Microsoft', status=>13});
-my $newbar = Bar->new;
-$newbar->foo_id($vista->id);
-$newbar->name('Silverlight');
-$newbar->status(2);
-$newbar->save;
-sleep(3);
-$newbar = Bar->new;
-$newbar->foo_id($vista->id);
-$newbar->name('IronPython');
-$newbar->status(3);
-$newbar->save;
-sleep(3);
-my $mb = Foo->load({name=>'Apple', status=>11});
-$newbar = Bar->new;
-$newbar->foo_id($mb->id);
-$newbar->name('IronRuby');
-$newbar->status(0);
-$newbar->save;
-
-# select * from foo, bar bar1, bar bar2
-# where bar1.bar_foo_id = foo_id
-# and bar2.bar_foo_id = bar1.bar_foo_id
-# and bar1.status = 2
-# and bar2.status = 3
-my @a_foos = Foo->load(
-    undef,
-    { join => [ 'Bar', undef, { foo_id => \'= foo_id', status => 2 },
-        { join => [ 'Bar', undef, { foo_id => \'= bar1.bar_foo_id', status => 3 },
-            { alias => 'bar2' } ],
-          alias => 'bar1'
-        }
-      ],
-      sort => 'created_on', direction => 'descend',
-    }
-);
-is(scalar(@a_foos), 1, 'join the same table using alias 1');
-is($a_foos[0]->id, $vista->id, 'join the same table using alias 2');
-
-@a_foos = Foo->load(
-    undef,
-    { join => [ 'Bar', undef, { foo_id => \'= foo_id', status => 2 },
-        { join => [ 'Bar', undef, { foo_id => \'= bar1.bar_foo_id', status => 0 },
-            { alias => 'bar2' } ],
-          alias => 'bar1'
-        }
-      ],
-      sort => 'created_on', direction => 'descend',
-    }
-);
-is(scalar(@a_foos), 0, 'join the same table using alias 3');
- 
-
-1;

branches/release-40/t/lib/MT/Test.pm

@@ -1011 +1011 @@
-}
-
+sub make_objects {
+    my $self = shift;
+    my @obj_data = @_;
+
+    for my $data (@obj_data) {
+        if (my $wait = delete $data->{__wait}) {
+            sleep($wait);
+        }
+        my $class = delete $data->{__class};
+        my $obj = $class->new;
+        $obj->set_values($data);
+        $obj->save() or die "Could not save test Foo: ", $obj->errstr, "\n";
+    }
+}
+
-1;