Changeset 2590 for branches/release-40/t/lib/MT/Test.pm

Timestamp:

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

Author:

mpaschal

Message:

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

Files:

• branches/release-40/t/lib/MT/Test.pm (modified) (1 diff)

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;