move all test in the test class

test/remote/NRT/Batch.pm

@@ -28,80 +28,26 @@ sub test_user {
     $this->{config}{Authentification}{Email},
     $this->{config}{Authentification}{Username},
     $this->{config}{Authentification}{Password} );
-  $this->test_user_authentification( $user1_index );
-  $this->test_user_already_created( $user1_index );
-
+  $this->{tester}->test_user_authentification(
+    $this->{users}[$user1_index]);
+  $this->{tester}->test_user_already_created( 
+    $this->{users}[$user1_index]);
   my $user2_index = $this->add_user(
     $this->{config}{User}{Email},
     $this->{config}{User}{Username},
       $this->{config}{User}{Password} );
-  $this->test_user_not_exists( $user2_index );
-  $this->test_user_create( $user2_index );
-  $this->test_user_exists( $user2_index );
-  $this->test_user_remove( $user2_index );
-  $this->test_user_removed( $user2_index );
-  $this->test_user_already_removed( $user2_index );
-}
-
-sub test_user_authentification {
-  my ($this, $index) = @_;
-  my $auth = $this->{users}[ $index ]->authentification;
-  return $this->{tester}->assertEqual( $auth->{email}, $this->{users}[ $index ]->{email} );
-}
-
-sub test_user_exists {
-  my ($this, $index) = @_;
-  my $user = $this->{users}[ $index ]->fetch;
-  return $this->{tester}->assertEqual( $user->{data}{attributes}{email}, $this->{users}[ $index ]->{email} );
-}
-
-sub test_user_not_exists {
-  my ($this, $index) = @_;
-  my $user = $this->{users}[ $index ]->fetch();
-  return $this->{tester}->assertEqual( $user, 0 );
-}
-
-sub test_user_removed {
-  my ($this, $index) = @_;
-  my $user = $this->{users}[ $index ]->fetch();
-  return $this->{tester}->assertEqual( $user, '404 Not Found' );
-}
-
-sub test_user_create {
-  my ($this, $index) = @_;
-  my $creation = $this->{users}[ $index ]->create();
-  return $this->{tester}->assertEqual( $creation->{data}{attributes}{email}, $this->{users}[ $index ]->{email} );
-}
-
-sub test_user_already_removed {
-  my ($this, $index) = @_;
-  return $this->{tester}->assertEqual($this->remove_user( $index ), '404 Not Found');
-}
-
-sub test_user_remove {
-  my ($this, $index) = @_;
-  return $this->{tester}->assertEqual($this->remove_user( $index ), '204 No Content');
-}
-
-sub remove_user {
-  my ($this, $index) = @_;
-  return $this->{users}[ $index ]->remove;
-}
-
-sub test_user_already_created {
-  my ($this, $index) = @_;
-  my $creation = $this->create_user( $index );
-  return $this->{tester}->assertNotEqual( $creation, "422 Unprocessable Entity");
-}
-
-sub create_user {
-  my ($this, $index) = @_;
-  return $this->{users}[ $index ]->create;  
-}
-
-sub remove_user {
-  my ($this, $index) = @_;
-  return $this->{users}[ $index ]->remove;  
+  $this->{tester}->test_user_not_exists(
+    $this->{users}[$user2_index]);
+  $this->{tester}->test_user_create(
+    $this->{users}[$user2_index]);
+  $this->{tester}->test_user_exists(
+    $this->{users}[$user2_index]);
+  $this->{tester}->test_user_remove(
+    $this->{users}[$user2_index]);
+  $this->{tester}->test_user_removed(
+    $this->{users}[$user2_index]);
+  $this->{tester}->test_user_already_removed(
+    $this->{users}[$user2_index]);
 }
 
 sub add_user {

test/remote/NRT/Test.pm

@@ -126,4 +126,56 @@ sub get_url{
   return $this->{url} ;
 }
 
+sub test_rq_empty {
+  my $this = shift;
+  my $rq = $this->get_code();
+  return $this->assertEqual( $rq, "404 Not Found" );
+}
+
+sub test_user_authentification {
+  my ($this, $user) = @_;
+  my $auth = $user->authentification;
+  return $this->assertEqual( $auth->{email}, $user->{email} );
+}
+
+sub test_user_exists {
+  my ($this, $user) = @_;
+  my $ruser = $user->fetch;
+  return $this->assertEqual( $ruser->{data}{attributes}{email}, $user->{email} );
+}
+
+sub test_user_not_exists {
+  my ($this, $user) = @_;
+  my $user = $user->fetch();
+  return $this->assertEqual( $user, 0 );
+}
+
+sub test_user_create {
+  my ($this, $user) = @_;
+  my $creation = $user->create();
+  return $this->assertEqual( $creation->{data}{attributes}{email}, $user->{email} );
+}
+
+sub test_user_already_removed {
+  my ($this, $user) = @_;
+  return $this->assertEqual($user->remove, '404 Not Found');
+}
+
+sub test_user_removed {
+  my ($this, $user) = @_;
+  my $user = $user->fetch();
+  return $this->assertEqual( $user, '404 Not Found' );
+}
+
+sub test_user_remove {
+  my ($this, $user) = @_;
+  return $this->assertEqual( $user->remove, '204 No Content');
+}
+
+sub test_user_already_created {
+  my ($this, $user) = @_;
+  my $creation = $user->create;
+  return $this->assertNotEqual( $creation, "422 Unprocessable Entity");
+}
+
 return 1;