test user authentification

.gitignore

@@ -35,4 +35,8 @@
 .env
 
 # Ignore config file
-*.cfg
+*.cfg
+
+# Do not git perl dependencies
+test/remote/bin
+test/remote/lib

test/remote/NRT/Batch.pm

@@ -1,7 +1,6 @@
-use NRT::Test;# qw( rq assertEqual);
+use NRT::Test;
 use NRT::Helper;
-#require NRT::Test ;
-#require NRT::Helper;
+use NRT::User;
 
 package Batch;
 
@@ -10,7 +9,10 @@ sub new {
     my $this = {};
     $classe = ref($classe) || $classe;
     bless ( $this, $classe );
+    $this->{config} = {%config} ;
     $this->{tester} = Test->new( %config );
+    $this->{users} = [];
+    $this->{users_index} = 0;
     return $this;
 }
 
@@ -20,9 +22,35 @@ sub test_rq_empty {
   return $this->{tester}->assertEqual( $rq, "404 Not Found" );
 }
 
+sub test_user {
+  my $this = shift;
+  return $this->test_user_authentification;
+}
+
+sub test_user_authentification {
+  my $this = shift;
+  my $index = $this->add_user(
+      $this->{config}{Authentification}{Email},
+      $this->{config}{Authentification}{Password} );
+  my $auth = $this->{users}[ $index ]->authentification;
+  return $this->{tester}->assertEqual( $auth->{email}, $this->{config}{Authentification}{Email} );
+}
+
+sub add_user {
+  my ($this, $email, $password) = @_ ;
+  push(
+    @{$this->{users}},
+      User->new(
+        $this->{config}{Authentification}{Email},
+	$this->{config}{Authentification}{Password},
+        $this->{tester})) ;
+  return $this->{users_index}++;
+}
+
 sub run {
   my $this = shift;
   $this->test_rq_empty();
+  return $this->test_user();
   $this->brief();
 }
 

test/remote/NRT/Test.pm

@@ -1,9 +1,8 @@
 use NRT::Helper;
+use LWP::UserAgent;
 
 package Test;
 require Exporter;
-#@ISA = qw(Exporter);
-#@EXPORT = qw(get_countSuccess get_countFailure rq assertEqual assertNotEqual get_code);
 
 sub new {
   my ($classe, %config) = @_;
@@ -19,14 +18,14 @@ sub new {
 }
 
 sub rq {
+  my $this = shift ;
   my $path = (exists $_[0])? $_[0] : "";
   my $method = (exists $_[1])? $_[1] : "";
   my $content = (exists $_[2])? $_[2] : "";
-
-  my $req = HTTP::Request->new("$method" => "$url$path");
+  my $req = HTTP::Request->new("$method" => "$this->{url}$path");
   $req->content_type('application/json');
   $req->content("$content");
-  my $res = $ua->request($req);
+  my $res = $this->{ua}->request($req);
   return $res->decoded_content;
 }
 
@@ -88,9 +87,10 @@ sub record_result {
 }
 
 sub json_parse {
-  my $json_text = (exists $_[0])? $_[0] : "";
+  my $this = shift;
+  my $json_text = shift;
   my $json = JSON->new;
-  return $json->decode($json_text);
+  return $json->decode("$json_text");
 }
 
 sub get_countSuccess {

test/remote/test.pl

@@ -5,7 +5,7 @@
 # @brief Remote call to the API in order to test
 BEGIN { push @INC,'.'; };
 use Config::Std;
-use LWP::UserAgent ();
+use LWP::UserAgent;
 use lib qw(..);
 use JSON qw( );
 use Data::Dumper;
@@ -18,4 +18,4 @@ read_config 'test.cfg' => our %config;
 our $batch = Batch->new( %config );
 print "\nMaking all tests\n";
 
-$batch->run();
+print $batch->run();