Changeset 22675

Timestamp:

03/09/10 00:42:07 (17 months ago)

Author:

alex

Message:

Elevated ResultIterator? to a top-level class

Location:

branches/mnw21/pathquery_refactor/intermine/perl/t

Files:

• 08_service/02_result_iterator.t (modified) (1 diff)
• tests/Test/InterMine/Query.pm (modified) (2 diffs)
• tests/Test/InterMine/ResultIterator.pm (moved) (moved from branches/mnw21/pathquery_refactor/intermine/perl/t/tests/Test/InterMine/Service/ResultIterator.pm) (2 diffs)
• tests/Test/InterMine/Service.pm (modified) (1 diff)

branches/mnw21/pathquery_refactor/intermine/perl/t/08_service/02_result_iterator.t

@@ -1 +1 @@
 use lib 't/tests';
-use Test::InterMine::Service::ResultIterator;
+use Test::InterMine::ResultIterator;
 Test::Class->runtests;

branches/mnw21/pathquery_refactor/intermine/perl/t/tests/Test/InterMine/Query.pm

@@ -35 +35 @@
 
 use InterMine::Service;
-use InterMine::Service::ResultIterator;
+use InterMine::ResultIterator;
 
 sub startup : Test(startup => 2) {
@@ -66 +66 @@
     $test->{service} = $service;
 
-    my $iterator = Test::MockObject::Extends->new('InterMine::Service::ResultIterator');
+    my $iterator = Test::MockObject::Extends->new('InterMine::ResultIterator');
     $iterator->mock(
     all_lines => sub {

branches/mnw21/pathquery_refactor/intermine/perl/t/tests/Test/InterMine/ResultIterator.pm

@@ -1 @@
-package Test::InterMine::Service::ResultIterator;
+package Test::InterMine::ResultIterator;
 
 
@@ -12 +12 @@
 use IO::String;
 
-sub class {'InterMine::Service::ResultIterator'}
+sub class {'InterMine::ResultIterator'}
 
 # need good results, bad ones, long ones, and interrupted ones

branches/mnw21/pathquery_refactor/intermine/perl/t/tests/Test/InterMine/Service.pm

@@ -61 +61 @@
     my $fakeRes = Test::MockObject->new;
     $fakeRes->fake_module(
-    'InterMine::Service::ResultIterator',
+    'InterMine::ResultIterator',
     new => sub {
         my $class = shift;