re structure test, in object oriented way

test/remote/NRT/Batch.pm

@@ -0,0 +1,37 @@
+use NRT::Test;# qw( rq assertEqual);
+use NRT::Helper;
+#require NRT::Test ;
+#require NRT::Helper;
+
+package Batch;
+
+sub new {
+    $tester = Test::new( %config );
+    my ($classe, %config) = @_;
+    my $this = {};
+    $classe = ref($classe) || $classe;
+    bless ( $this, $classe );
+    $this->{tester} = Test->new( %config );
+    return $this;
+}
+
+sub test_rq_empty {
+  my $this = shift;
+  my $rq = $this->{tester}->get_code();  
+  return $this->{tester}->assertEqual( $rq, "404 Not Found" );
+}
+
+sub run {
+  my $this = shift;
+  $this->test_rq_empty();
+  $this->brief();
+}
+
+sub brief {
+  my $this = shift;;
+  print "\nResults :\n";
+  Helper::printColor( "bright_green", "Tests succeed : ".$this->{tester}->{countSuccess}."\n" );
+  Helper::printColor( "bright_red", "Tests failed  : ".$this->{tester}->{countFailure}."\n" );
+}
+
+return 1;

test/remote/NRT/Helper.pm

@@ -0,0 +1,13 @@
+use Term::ANSIColor;
+
+package Helper;
+
+sub printColor {
+  my $color = (exists $_[0])? $_[0] : "";
+  my $text = (exists $_[0])? $_[1] : "";
+  print Term::ANSIColor::color( "$color" );
+  print "$text";
+  print Term::ANSIColor::color('reset')
+}
+
+return 1;

test/remote/NRT/Test.pm

@@ -0,0 +1,110 @@
+use NRT::Helper;
+
+package Test;
+require Exporter;
+#@ISA = qw(Exporter);
+#@EXPORT = qw(get_countSuccess get_countFailure rq assertEqual assertNotEqual get_code);
+
+sub new {
+  my ($classe, %config) = @_;
+  my $this = {};
+  $classe = ref($classe) || $classe;
+  bless ( $this, $classe );
+  $this->{url} = "$config{Authentification}{Protocol}$config{Authentification}{Host}$config{Authentification}{Path}";
+  $this->{ua} = LWP::UserAgent->new(timeout => 10);
+  $this->{ua}->env_proxy;
+  $this->{countSuccess} = 0;
+  $this->{countFailure} = 0;
+  return $this;
+}
+
+sub rq {
+  my $path = (exists $_[0])? $_[0] : "";
+  my $method = (exists $_[1])? $_[1] : "";
+  my $content = (exists $_[2])? $_[2] : "";
+
+  my $req = HTTP::Request->new("$method" => "$url$path");
+  $req->content_type('application/json');
+  $req->content("$content");
+  my $res = $ua->request($req);
+  return $res->decoded_content;
+}
+
+sub assertEqual {
+  my ($this, $value1, $value2, $equal ) = @_;
+  $equal ||= 1;
+  my $success = 0;
+
+  my $test = ( $value1 eq $value2 );
+  $test = ( $equal )? $test : !$test;
+
+  if( $test )
+  {
+    $this->record_result( 1 );
+    print " $value1 ";
+    Helper::printColor( "bright_blue", "equal");
+    print " $value2\n";
+    return 1;
+  }else{
+    $this->record_result( 0 );
+    print " $value1 ";
+    Helper::printColor( "bright_blue", "NOT equal");
+    print " $value2\n";
+    return 0;
+  };
+}
+
+sub assertNotEqual {
+  my $this = shift;
+  $this->assertEqual( $_[0], $_[1], 0 );
+}
+
+sub get_code {
+  my ($this, $path) = @_;
+  if(!defined $path){
+    $path = "";
+    #exit 1;
+  }
+  my $response = $this->{ua}->get( "$this->{url}$path" );
+
+  if ($response->is_success) {
+    return $response->decoded_content;
+  }else{
+    return $response->status_line;
+  }
+}
+
+sub record_result {
+  my $this = shift ;
+  my $status = (exists $_[0])? $_[0] : false;
+
+  if( $status ){
+    Helper::printColor( "green", "Success :");
+    $this->{countSuccess}++;
+  }else{
+    Helper::printColor( "red", "Failure :");
+    $this->{countFailure}++;
+  }
+}
+
+sub json_parse {
+  my $json_text = (exists $_[0])? $_[0] : "";
+  my $json = JSON->new;
+  return $json->decode($json_text);
+}
+
+sub get_countSuccess {
+  my $this = shift;
+  return $this->{countSuccess} ;
+}
+
+sub get_countFailure{
+  return $countFailure ;
+}
+
+sub get_url{
+  my $this = shift;
+  return $this->{url} ;
+}
+
+return 1;

test/remote/test.pl

@@ -1,112 +1,32 @@
-# @file journal.pl
 #!/usr/bin/perl
+# @file journal.pl
 # @author nas
 # @date 31/01/2022
 # @brief Remote call to the API in order to test
-
+BEGIN { push @INC,'.'; };
 use Config::Std;
 use LWP::UserAgent ();
 use lib qw(..);
 use JSON qw( );
 use Data::Dumper;
-use Term::ANSIColor;
 
-read_config 'test.cfg' => my %config; 
+use NRT::User;
+use NRT::Batch;
+#require NRT::User;
+#require NRT::Batch;
 
-local $url = "$config{Authentification}{Protocol}$config{Authentification}{Host}$config{Authentification}{Path}";
+print User::v ;
+read_config 'test.cfg' => our %config; 
+
+our $url = "$config{Authentification}{Protocol}$config{Authentification}{Host}$config{Authentification}{Path}";;
 local $ua = LWP::UserAgent->new(timeout => 10);
 $ua->env_proxy;
 
-my $count_success = 0;
-my $count_failure = 0;
-
-sub print_color {
-  my $color = (exists $_[0])? $_[0] : "";
-  my $text = (exists $_[0])? $_[1] : "";
-  print color( "$color" );
-  print "$text";
-  print color('reset')
-}
-
-sub record_result {
-  my $status = (exists $_[0])? $_[0] : false;
-
-  if( $status ){
-    print_color( "green", "Success :");
-    $count_success++;
-  }else{
-    print_color( "red", "Failure :");
-    $count_failure++;
-  }
-}
-
-sub batch_brief {
-    print "\nResults :\n";
-    print_color( "bright_green", "Tests succeed : $count_success\n" );
-    print_color( "bright_red", "Tests failed  : $count_failure\n" );
-}
-
-sub get_code {
-  my $path = (exists $_[0])? $_[0] : "";
-  my $response = $ua->get( "$url$path" );
-
-  if ($response->is_success) {
-    return $response->decoded_content;
-  }
-  else {
-    return $response->status_line;
-  }
-}
-
-sub assertEqual {
-  my $value1 = (exists $_[0])? $_[0] : "";
-  my $value2 = (exists $_[1])? $_[1] : "";
-  my $equal = (exists $_[1])? $_[1] : 1;
-  my $success = 0;
-
-  my $test = ( $value1 eq $value2 );
-  $test = ( $equal )? $test : !$test;
-
-  if( $test )
-  {
-    record_result( 1 );
-    print " $value1 ";
-    print_color( "bright_blue", "equal");
-    print " $value2\n";
-  }else{
-    record_result( 0 );
-    print " $value1 ";
-    print_color( "bright_blue", "NOT equal");
-    print " $value2\n";
-  };
-}
-
-sub assertNotEqual {
-    assertEqual( $_[0], $_[1], 0 );
-}
-
-sub rq {
-  my $path = (exists $_[0])? $_[0] : "";
-  my $method = (exists $_[1])? $_[1] : "";
-  my $content = (exists $_[2])? $_[2] : "";
-
-  my $req = HTTP::Request->new("$method" => "$url$path");
-  $req->content_type('application/json');
-  $req->content("$content");
-  my $res = $ua->request($req);
-  return $res->decoded_content;
-  return $res->as_string;
-}
-
-sub json_parse {
-  my $json_text = (exists $_[0])? $_[0] : "";
-  my $json = JSON->new;
-  return $json->decode($json_text);
-}
-
+our $batch = Batch->new( %config );
 print "\nMaking all tests\n";
-assertEqual( get_code(), "404 Not Found" );
+#NRT::Basic::rq_empty;
 
-my $result = json_parse( rq( "tokens", "POST", "{\"user\" : {\"email\" : \"$config{Authentification}{Email}\", \"password\" : \"$config{Authentification}{Password}\"}}" ));
-assertEqual( "$config{Authentification}{Email}", $result->{"email"});
-batch_brief();
+#Test::init;
+#Batch::brief;
+#Batch::run();
+$batch->run();