fix, now really adding new user

test/remote/NRT/Batch.pm

@@ -24,26 +24,40 @@ sub test_rq_empty {
 
 sub test_user {
   my $this = shift;
-  return $this->test_user_authentification;
+  my $user1_index = $this->add_user(
+    $this->{config}{Authentification}{Email},
+    $this->{config}{Authentification}{Username},
+    $this->{config}{Authentification}{Password} );
+  $this->test_user_authentification( $user1_index );
+
+  my $user2_index = $this->add_user(
+    $this->{config}{User}{Email},
+    $this->{config}{User}{Username},
+    $this->{config}{User}{Password} );
+  return $this->test_user_create( $user2_index );
 }
 
 sub test_user_authentification {
-  my $this = shift;
-  my $index = $this->add_user(
-      $this->{config}{Authentification}{Email},
-      $this->{config}{Authentification}{Password} );
+  my ($this, $index) = @_;
   my $auth = $this->{users}[ $index ]->authentification;
   return $this->{tester}->assertEqual( $auth->{email}, $this->{config}{Authentification}{Email} );
 }
 
+sub test_user_create {
+  my ($this, $index) = @_;
+  return $this->create_user( $index );
+}
+
+sub create_user {
+    my ($this, $index) = @_; print "\ncreate user :". $this->{users}[ $index ]->{username} ."\n";
+  return $this->{users}[ $index ]->create;  
+}
+
 sub add_user {
-  my ($this, $email, $password) = @_ ;
+  my ($this, $email, $username, $password) = @_ ;
   push(
     @{$this->{users}},
-      User->new(
-        $this->{config}{Authentification}{Email},
-	$this->{config}{Authentification}{Password},
-        $this->{tester})) ;
+      User->new( $email, $username, $password, $this->{tester})) ;
   return $this->{users_index}++;
 }