test activity assertion

test/remote/NRT/Batch.pm

 use NRT::Test;
 use NRT::Helper;
 use NRT::User;
+use NRT::Activity;
 
 package Batch;
 
     $this->{tester} = Test->new( %config );
     $this->{users} = [];
     $this->{users_index} = 0;
+    $this->{default_user_index} = "";
     return $this;
 }
 
 
 sub test_user {
   my $this = shift;
-  my $user1_index = $this->add_user(
-    $this->{config}{Authentification}{Email},
-    $this->{config}{Authentification}{Username},
-    $this->{config}{Authentification}{Password} );
-  $this->{tester}->test_user_authentification(
-    $this->{users}[$user1_index]);
-  $this->{tester}->test_user_already_created( 
-    $this->{users}[$user1_index]);
+  $this->{tester}->test_user_authentification( $this->get_default_user );
+  $this->{tester}->test_user_already_created( $this->get_default_user );
   my $user2_index = $this->add_user(
     $this->{config}{User}{Email},
     $this->{config}{User}{Username},
-      $this->{config}{User}{Password} );
+    $this->{config}{User}{Password} );
   $this->{tester}->test_user_not_exists(
     $this->{users}[$user2_index]);
   $this->{tester}->test_user_create(
   return $this->{users_index}++;
 }
 
+sub add_default_user {
+  my ($this) = @_ ;
+  return $this->{default_user_index} = $this->add_user(
+    $this->{config}{Authentification}{Email},
+    $this->{config}{Authentification}{Username},
+    $this->{config}{Authentification}{Password} )
+}
+
+sub get_default_user {
+  my ($this) = @_ ; 
+  if( $this->{default_user_index} eq "" ){
+    $this->add_default_user  ;
+  }
+  return $this->{users}[ $this->{default_user_index} ];  
+}
+
+sub test_activity {
+  my $this = shift;
+    
+  my $activity = Activity->new( "test_1", $this->get_default_user );
+  $this->{tester}->test_create_activity( $activity );
+  $this->{tester}->test_activity_exists( $activity );
+  $this->{tester}->test_activity_remove( $activity );
+  $this->{tester}->test_activity_not_exists( $activity );
+}
+
 sub run {
   my $this = shift;
-  $this->test_rq_empty();
+  #$this->test_rq_empty();
   $this->test_user();
+  return $this->test_activity();
   $this->brief();
 }
 

test/remote/NRT/Test.pm

 
 sub assertEqual {
   my ($this, $value1, $value2, $equal ) = @_;
-  $equal ||= 1;
+  $equal //= 1;
   my $success = 0;
 
   my $test = ( $value1 eq $value2 );
   $test = ( $equal )? $test : !$test;
+  $assertedComparator = ($equal)? "equal" : "NOT equal" ;
+  $unassertedComparator = ($equal)? "NOT equal" : "equal" ;
 
   if( $test )
   {
     $this->record_result( 1 );
     print " $value1 ";
-    Helper::printColor( "bright_blue", "equal");
+    Helper::printColor( "bright_blue", $assertedComparator);
     print " $value2\n";
     return 1;
   }else{
     $this->record_result( 0 );
     print " $value1 ";
-    Helper::printColor( "bright_blue", "NOT equal");
+    Helper::printColor( "bright_blue", $assertedComparator);
     print " $value2\n";
     return 0;
   };
 
 sub assertNotEqual {
   my $this = shift;
-  $this->assertEqual( $_[0], $_[1], 0 );
+  return $this->assertEqual( $_[0], $_[1], 0 );
 }
 
 sub get_code {
 
 sub test_user_not_exists {
   my ($this, $user) = @_;
-  my $user = $user->fetch();
-  return $this->assertEqual( $user, 0 );
+  return $this->assertNotEqual( $ruser->{data}{attributes}{email}, $user->{email} );
 }
 
 sub test_user_create {
 
 sub test_user_already_created {
   my ($this, $user) = @_;
-  my $creation = $user->create;
-  return $this->assertNotEqual( $creation, "422 Unprocessable Entity");
+  my $creation = $user->fetch;
+  return $this->assertEqual( $creation->{data}{id}, $user->get_id);
+}
+
+sub test_create_activity {
+  my ($this, $activity) = @_;
+  my $res = $activity->create;
+  return $this->assertEqual( $res->{data}{attributes}{name}, $activity->{name} );
+}
+
+sub test_activity_remove {
+  my ($this, $activity) = @_;
+  return $activity->remove;
+  return $this->assertEqual( $ractivity->{data}{id}, $activity->{id} );
+}
+
+sub test_activity_exists {
+  my ($this, $activity) = @_;
+  my $ractivity = $activity->fetch;
+  return $this->assertEqual( $ractivity->{data}{id}, $activity->{id} );
+}
+
+sub test_activity_not_exists {
+  my ($this, $activity) = @_;
+  my $ractivity = $activity->fetch;
+  return $this->assertNotEqual( $ractivity->{data}{id}, $activity->{id} );
 }
 
 return 1;

test/remote/NRT/User.pm

 use LWP::Simple;
 use NRT::Test;
+use NRT::Activity;
 use Crypt::JWT(decode_jwt);
 
 package User;
   $this->{manager} = $manager;
   $this->{token} = "";
   $this->{id} = "";
+  $this->{activities} = [];
   return $this;
 }
 
 
 sub fetch {
   my ($this) = @_ ;
-  $token = $this->get_token;
-  if( !$token ){
-    return 0;
-  }
-  my $user_id = Crypt::JWT::decode_jwt(token => $token, ignore_signature => 1)->{user_id};
-  return $this->{manager}->rq( "users/".$user_id, "GET", "", $this->get_token );
+  return $this->{manager}->rq(
+    "users/".$this->get_id,
+    "GET",
+    "",
+    $this->get_token );
 }
 
 sub get_token {
     0 ;
 }
 
+sub get_id {
+  my $this = shift;
+  if( !($this->{id} eq "") ){
+    return $this->{id};
+  }
+  $token = $this->get_token;
+  if( !$token ){
+    return 0;
+  }
+  return Crypt::JWT::decode_jwt(token => $token, ignore_signature => 1)->{user_id};
+}
+
+sub create_activity {
+  my ($this, $name) = @_;
+  my $activity = Activity->new(
+    $name,
+    $this);;
+  return $activity;
+}
+
 return 1;

test/remote/test.pl

 use JSON qw( );
 use Data::Dumper;
 
-use NRT::User;
 use NRT::Batch;
 
 print User::v ;